advokat
Заглянувший
Всего сообщений: 6
Дата регистрации: 06.12.2010
|
Создано:
23.12.2010 22:25:29
|
Здравствуйте. Пытаюсь импортировать данные из растра в Visual Basic, при помощи:
Set rastr = WScript.CreateObject("Astra.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("Astra.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ðåæèì.rg2"
File1 = "C:Documents and Settings1Ðàáî÷èé ñòîëïðîâåðêà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.Rastr") |
| Цитата |
|---|
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'ом.
|
|
|
