Динамический код...

[Джеффи]

Здравствуйте!

У меня возникла потрбность создать небольшую функцию позволяющую исполнять код динамически...

Я знаю что есть такая процедура CallByName она 100% запускает процедуры по имени возможно ли такое же обращение к переменным?

Или вообще как легче сделать: MyIf("a = 1 and b = 2", c = 1) причём так чтобы первый параметр процедуры задавался программно...

Может есть другие способы...

Подскажите пожалуста...
С уважением, Джеффи.

[kirrun]

Так.. я не понял ничего... В начале вопрос "возможно ли такое же обращение к переменным?" а потом "так чтобы первый параметр процедуры задавался программно"... Честно говоря, я не совсем понял что требуется...

[Джеффи]

Создать динамическое условие... т.е. не писать код до запуска программы "IF ... Then ... End If" а сделать тоже самое из обычной строки...

Незнаю... я наверно лучше не объясню может кто-то меня поймёт...

[kirrun]

Не... че-т я все равно не понял...

[Джеффи]

Это executelineex кажется....

Как раз мне не нужно её использовать!

Кароче расскажите мне про CallByName

[kirrun]

Прямой дорогой тебе в подпись FAKK2...

Или ищи сам про CallByName или объясни понятнее че те нада... Мона даже примерный код.. Как ты себе это представляешь... Короч,Е опиши задачу конкретно... ну или хотябы понятно...

[Konst_One]

Microsoft Script Control

[Джеффи]

Чтож просили ну получайте

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


Private Function CreateDinamicIf(a as long, b as long)
For i = a to b step 1
if not i = b then CreateDinamicIf = CreateDinamicIf "Not X = "& i & " And" else CreateDinamicIf = CreateDinamicIf "Not X = "& i
next i
End Sub

Sub Main
if MyIf(CreateDinamicIf) = true then print "ок" else print "блин"
end sub

Я спрашиваю как мне сделать функцию MyIf которая на основе параметра создавала внутри себя условие и выдавала верно ли оно.

Без скрипт контролла

P.S. По ссылке FAKK2 я ходил

[BV]

2 kirrun

Если бы давали премии за флуд, то ты был бы чемпионом

[kirrun]

BV

Спасибо. Стараюсь

ЗЫ. Все равно не понял че надо... Лана, без меня тут разберетесь...

[Джеффи]

BV

Спасибо. Стараюсь

ЗЫ. Все равно не понял че надо... Лана, без меня тут разберетесь...

Мог бы это не писать

ЗЫ. Флудер

[Джеффи]

Понял ты меня правильно. Спасибо тебе за это!!!

Ща попробую привидённый тобою пример

[Джеффи]

Function CallByName(Object As Object, ProcName As String, CallType As VbCallType, Args() As Variant)
Member of VBA.Interaction
Support IDispatch::Invoke

Я не знаю что ты хотел этим сказать... но это я и так знаю, мне бы примерчик какой с комментариями...

Sub MyIf(что)
if что \xxxx=что \ yyyyy then
if int(Rnd(1)*что+10)>32897 then
MyIf=true
else
MyIf=false
end if
end if
end sub

Для начала Sub MyIf(что) заменяем на Function MyIf(что) , далее if что \xxxx=что \ yyyyy then если кто-то не знает делить на ноль нельзя , if int(Rnd(1)*что+10)>32897 then а это что