Логическое выражение из переменной в блоке If .. Then

[fishmen]

Подскажите, плиз, как мне передать логическое выражения для оператора If из переменной. Т.е я считываю в переменную str$ из файла строку, например InStr(varstrArray(10), "..") > 0. Далее это логическое выражение пытаюсь подставить в условие if str$ then, где вместо str$ хочу передать это логическое выражение и получаю ошибку. Что-то туплю - не знаю как это сделать.

[Alexanbar]

код в студию

[GSerg]

А что код.
Человек хочет собственный язык программирования, из файла.
Неслабо. Пиши собственный компилятор.

[fishmen]

Но ведь должны быть обходные пути!!!
Эта логическая переменная заранее не известна и может меняться.
А отрывок из кода такой.
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, str$
if str$ then
....

в строке может быть такое выражение InStr(varStrArray, ":") > 0

Должен же быть какой-то выход

[dr.MIG]

Если несколько переработать подход к поставленной задаче, не подойдёт MSScriptControl?

[Antonariy]

Да там и перерабатывать ничего не нужно - просто скормить Eval'у эту str$ и он вернет False или True.

Код: Выделить всё

Dim sc as New ScriptControl
sc.Language = "vbscript"
If sc.Eval(str$) Then ...

[GSerg]

А где Eval возьмёт объекты, на которые ссылается строка?

[fishmen]

А где Eval возьмёт объекты, на которые ссылается строка?

Все так, в строке есть переменная varstrArray(10). Боюсь, что Eval просто ее не определит. Может быть надо преобразовывать строку и подставлять уже ее значение вместо этой переменной.

[GSerg]

А для того, чтобы сделать это, и грамотно заменить в строке некий участок на его значение, и придётся писать свой синтаксический анализатор.
Проще хранить все данные в скриптконтроле тогда уж.

[Antonariy]

А где Eval возьмёт объекты, на которые ссылается строка?

Начнем с того, откуда в строке объекты? Если автор планировал просто подставить ее в If, то там по идее должно быть записано логическое выражение, состоящее из каких-то значений. Если выражение состоит из переменных, то видимо там же должны быть записаны их определения и значения. Что мешает разбить строку на две, в первой дефиниции, во второй выражение? Первую добавляем через AddCode, вот Eval и получает все необходимые данные.

[GSerg]

А пример этого значения приведён в первом же посте.
Массив там. На него ссылаются. И он уже существует в программе, и уже заполнен.

[Antonariy]

Да, под массив придется генерить кучу кода. Или подсунуть вместо массива коллекцию.

[Mikle]

Можно проще, весь код не в модуле, а в форме или классе. Все массивы, переменные и т. д., которые могут понадобиться в строке, объявлены как Public. Передаем в скрипт форму (AddObject) - и к переменным обращаемся так: Form1.MyVar. Можно обрамить все это With блоком, и писать имена просто с точки.

[keks-n]

А можно в AddObject в качестве имени объекта передать пустую строку, поставить GlobalMembers=True и тогда можно обращаться без точки.

[fishmen]

Можно проще, весь код не в модуле, а в форме или классе. Все массивы, переменные и т. д., которые могут понадобиться в строке, объявлены как Public. Передаем в скрипт форму (AddObject) - и к переменным обращаемся так: Form1.MyVar. Можно обрамить все это With блоком, и писать имена просто с точки.

Честно говоря, не совсем понятно как это применимо в моем случае, сорри. А можно чуток поподробнее, может пример небольшой. Или ссылку, где это можно почитать - не приходилось пока работать с этим.

[Mikle]

Вот простой пример, попробуй на ходу редактировать текст:

[fishmen]

Спасибо! Пошел разбираться

[fishmen]

Ура, все получилось.
Всем огромное человеческое спасибо.