На главную страницу
Русский English
 


Поддержка
Форум
Техподдержка
Закрытый разделПерсональная

Авторизация

Запомнить меня на этом компьютере
  Забыли свой пароль?
  Регистрация



Поиск по сайту


Подписка

Изменение параметров

Hits 67418769
10119
Hosts 3609063
2100
Visitors 53571302
9772

94


Главная / Поддержка / Форумы / Макро

Форум «Макро»

Версия для печати Версия для печати

Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация


Тема: «Rastr и VB » в форуме: Макро   Просмотров: 11825
 
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 23.12.2010 22:25:29
 
 
Здравствуйте. Пытаюсь импортировать данные из растра в Visual Basic, при помощи:
Set rastr = WScript.CreateObject("Ast­ra.Rastr")
shabl1 = "C:\Program Files\RastrWin\SHABLON\ре­жим.rg2"
File1 = "C:\...\asd.rg2"
rastr1 = rastr.Load(1, File1, shabl1)
но VB выдает ошибку необходим объект. Может кто пробовал сделать это?
пытался так же через
Set rastr = actxserver("Astra.Rastr")­
shabl1 = "C:\Program Files\RastrWin\SHABLON\ре­жим.rg2"
File1 = "C:\...\asd.rg2"
rastr1 = rastr.Load(1, File1, shabl1)
но тогда почему то ошибка в том что якобы не определены Sub или Function, то есть команду actxserver он не хочет воспринимать.
Если кто сможет помочь буду благодарен.
 
Профиль
Наверх
Михаил Реутов
Постоянный посетитель
 
Всего сообщений: 224
Дата регистрации: 21.11.2007
Создано: 24.12.2010 00:32:45
 
 
Метод Load ничего не возвращает.
надо так
Код

rastr.Load 1, File1, shabl1

 
Профиль
Наверх
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 24.12.2010 01:05:30
 
 
Я, наверное, не так объяснил...или не так понял...при запуске программы выдается ошибка объект не найдет, если верить отладке, то это в самой первой строке, то есть
Set rastr = WScript.CreateObject("Ast­ra.Rastr")
или эта строка вообще не нужна?
P.S. просто только начал осваивать возможности автоматизации некоторых расчетов, так что извините, если что не так.
 
Профиль
Наверх
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 24.12.2010 11:18:15
 
 
Код

Private Sub Command1_Click()
Set rastr = CreateObject("Astra.Rastr­")
shabl1 = "C:Program FilesRastrWinSHABLON&#240­;åæèì­.rg2"
File1 = "C:Documents and Settings1Ðà&#22­5;î÷è&#233­; ñòîë&­#239;ðîâ&#­229;ðêàthe­ end.rg2"
rastr.Load 1, File1, shabl1
End Sub

Private Sub Command2_Click()
tabs = rastr.tables("node")
End Sub

Private Sub Command3_Click()
Text1.Text = rastr
End Sub

в данном случае при компиляции ошибок не возникает, но ругается на tabs = rastr.tables("node"), что необходим объект.
 
Профиль
Наверх
Михаил Одинцов
Постоянный посетитель
 
Всего сообщений: 148
Дата регистрации: 22.07.2008
Создано: 24.12.2010 12:38:52
 
 
Что если попробовать:
tabs = rastr.item("node")
 
Профиль
Наверх
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 24.12.2010 13:38:56
 
 
Получаеся то же самое что и при tabs = rastr.tables("node").
мне кажется он в самом начале не загружает данные из растра в vb...но как тогда быть не могу понять.
 
Профиль
Наверх
Александр Александров
Администратор
 
Всего сообщений: 659
Дата регистрации: 31.05.2008
Создано: 24.12.2010 14:36:41
 
 
Здесь
 
Профиль
Наверх
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 24.12.2010 15:34:34
 
 
Как писать макросы в растре я понял, а мне именно нужен экспорт из растра в visual basic для написания программы по работе со схемой после ее эквивалентирования.
Просто каждый раз последовательность меняется, и менять алгоритмы макросов как то не очень удобно. Вот вся суть проблемы.
 
Профиль
Наверх
Михаил Реутов
Постоянный посетитель
 
Всего сообщений: 224
Дата регистрации: 21.11.2007
Создано: 24.12.2010 19:30:15
 
 
Ошибки могут появляться, если явно не объявлены переменные:
Код

Dim rastr As Object, tabs As Object
Dim shabl1 As String, File1 As String

Цитата
advokat пишет:
Я, наверное, не так объяснил...или не так понял...при запуске программы выдается ошибка объект не найдет, если верить отладке, то это в самой первой строке, то есть Set rastr = WScript.CreateObject("Ast­?ra.Rastr") или эта строка вообще не нужна?

Отладчик, скорей всего, ругается на WScript. Эта переменная у Вас ранее была объявлена? Наверное, нет.
Объект WScript автоматически создается только в "контексте" VBScript (некорректно написал, да уж ладно), а не в Visual Basic. Ознакомьтесь здесь и здесь.
Напиши без WScript:
Код
Set rastr = CreateObject("Ast??ra.Ras­tr")

Цитата
advokat пишет:
в данном случае при компиляции ошибок не возникает, но ругается на tabs = rastr.tables("node"), что необходим объект.

Попробуй так:
Код

Set tabs = Rastr.Tables("node")

Цитата
advokat пишет:
мне именно нужен экспорт из растра в visual basic

Что Вы имеете ввиду под словом "экспорт"?
 
Профиль
Наверх
advokat
Заглянувший
 
Всего сообщений: 6
Дата регистрации: 06.12.2010
Создано: 24.12.2010 21:58:22
 
 
Спасибо, вроде получилось.
Под экспортом я имел ввиду получение таблиц из растра visual basic'ом.
 
Профиль
Наверх



Читают тему
гостей: 1, пользователей: 0, из них скрытых: 0


Список форумов
Новые темы
Список тем
Поиск по форумам
Помощь
Войти
Регистрация







Программный комплекс «RasrWin»
Программный комплекс «RastrWin»
© «RastrWin», 1988-2019