VBNet - Форум - код из текстового файла

Вопрос: код из текстового файла Добавлено: 23.02.09 03:54

Автор вопроса: e-lie

никак не могу добиться, чтобы текст из файла воспринимался как часть кода программы. перерыл ваш форум. перерыл пол ру и забугорного нета
пробывал EbExecuteLine с vba6.dll и MSScriptControl
примерный код такой:
Sub ANALIZING(data As String)
'<-----код из текстового файла----->
if data = "1" then
winsock.senddata "1" & vbcrlf
end if

if data = "548" then
winsock.senddata "чонить еще" & vbcrlf
end if
'<----/код из текстового файла----->
End Sub

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Kardinal ICQ: 360041513 Вопросов: 1 Ответов: 164	Web-сайт: kg7.ru Профиль \| \| #1	Добавлено: 23.02.09 09:21
	То что ты написал - это отправка данных. Для запуска вб скрипта есть специалный контрол. И что подразумеваешь под выполнением кода? Элементы языка можно повторить-сделать свой интерпритатор Ответить

Номер ответа: 2 Автор ответа: e-lie Вопросов: 2 Ответов: 6	Профиль \| \| #2	Добавлено: 23.02.09 12:32
	То что ты написал - это отправка данных. я знаю что я написал)) Для запуска вб скрипта есть специалный контрол. если я не ошибаюсь, зовется он MSScriptControl но он пишет ошибку всегда когда идет обращение к какому-либо объекту (в моём случай к винсоку) Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #3	Добавлено: 23.02.09 15:39
	очевидно потому что, он не знает, что winsock это какой то объект Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #4	Добавлено: 23.02.09 18:14
	Set Script = CreateObject("ScriptControl") With Script .Language = "VBScript" .UseSafeSubset = False .AddObject "Winsock1", Form1.Winsock1 ' ! .AddCode "Твой код тут" Err.Clear .Run "MyProcedure", Value ' ! If .Error.Line Or Err.Number Then If Len(ExecCode) Then ExecCode = "Ошибка " & .Error.Description & " в строке " & .Error.Line .Error.Clear Else ExecCode = "Ошибка " & Err.Description Err.Clear End If MsgBox ExecCode, vbCritical, App.Title End If .Reset End With Unload Script Set Script = Nothing Твой код например: Option Explicit Sub MyProcedure(Value) Winsock1.Senddata Value & vbCrLf End Sub или Option Explicit Sub MyProcedure(Value) If Value = "548" Then Winsock1.Senddata "чонить еще" & vbCrLf End Sub Ответить

Номер ответа: 5 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #5	Добавлено: 23.02.09 18:20
	Можно и всю форму .AddObject "Form1", Form1 Ответить

Номер ответа: 6 Автор ответа: e-lie Вопросов: 2 Ответов: 6	Профиль \| \| #6	Добавлено: 23.02.09 21:25
	т.е. после Можно и всю форму .AddObject "Form1", Form1 можно использовать любой объект на форме?? Ответить

Номер ответа: 7 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #7	Добавлено: 24.02.09 01:53
	Ну наверное, посмотри внимательно .AddObject в моем ответе 4. Ответить

Страница: 1 |