Execute не объявляет переменные

[Ilyialat]

Есть код:

$a = 0

Func f()
msgbox(0,'','f')
EndFunc

Func Executeau3($filename)
$file = FileOpen($filename)
While 1
$line = FileReadLine($file)
If @error == -1 Then ExitLoop
Execute($line)
WEnd
FileClose($file)
EndFunc

Executeau3('test.au3')

Содержание test.au3:

$a = 1 ;работает
f();работает
$b = 1;не работает

Вопрос: Почему Execute не объявляет переменные и как можно это обойти?

 

[firex]

Execute( 'Assign ( "varname", "data" [, flag] )' )

 

[Ilyialat]

Я только что сам до этого дошёл =)) Но... Это чутка неудобно... Пока что буду юзать это)

 

[firex]

Ilyialat
Объяви в начале скрипта массив, а затем функцией Execute уже меняй значения в ячейках.

 

[Ilyialat]

test.au3 - полностью независимый файл. Единственное, он юзает функции из файла, который его запускает.
Пример: Есть файл с определёнными мною функциями. Он выполняет пользовательский код, в котором используются мои фунции.

 

[Ilyialat]

test.au3

Global $pArray[5] = [0,0,0,0,0]
$pArray[2] = 5
MsgBox( 64, '', $pArray[2] )

;Не работает
Ты, наверное, хотел в основной скрипт добавить переменную, чего мне делать нельзя. Основной скрипт будет скомпилирован.

 

[firex]

Ilyialat
Ты не понял меня.

Содержимое скрипта:

Global $pArray[5] = [0,0,0,0,0]

;$твоя функция чтения файла с операциями$
MsgBox( 0, '', $pArray[2] )

Содержимое блокнота:

$pArray[2] = 5

 

[Ilyialat]

Это ты не понял.
Скомп. скрипт(главный):

Func Executeau3($filename)
$file = FileOpen($filename)
While 1
$line = FileReadLine($file)
If @error == -1 Then ExitLoop
Execute($line)
WEnd
FileClose($file)
EndFunc

Func message($text)
msgbox(0,0,$text)
EndFunc

Executeau3('user_code.au3')

user_code.au3

Assign('text','')
$text = Random(1,100,1)
message($text)

 

[firex]

Global $pArray[5] = [0,0,0,0,0]

Func Executeau3($filename)
    $file = FileOpen($filename)
    While 1
        $line = FileReadLine($file)
        If @error == -1 Then ExitLoop
        Execute($line)
    WEnd
    FileClose($file)
EndFunc

Func message()
    For $i = 0 To 4 Step 1
        MsgBox(0,0,$pArray[$i])
    Next
EndFunc

Executeau3('user_code.au3')

user_code.au3

$pArray[0] = "test"
$pArray[1] = "test1"
$pArray[2] = "test2"
$pArray[3] = "test3"
$pArray[4] = "test4"
message()

Массиву можно дать имя к примеру "userVars", только таким способом скрипту можно передать значение большого кол-ва переменных без предварительного сорения в шапке скрипта. Ну или Assign.

 

[Ilyialat]

А ну над этим я думал
фкн Var

Dim $VarArray[999][2]
Func Var($var, $value = '-')
if $value == '-' Then
For $i = 1 to UBound($VarArray)-1
if $VarArray[$i][0]=$value Then
Return $VarArray[$i][1]
EndIf
Else
For $i=1 to UBound($VarArray)-1
if $VarArray[$i][0]=$value Then
$VarArray[$i][1]=$value
return 1
EndIf
Next
$VarArray[$i+1,0]= $var
$VarArray[$i+1,1]= $value
EndIf
EndFunc

 

[Ilyialat]

Слишком тяжело разобрать мне код без комментов
У меня есть код, работающий с переменными через .ini файл =)
Но всё равно спасибо=)
Вопрос - почему Execute("$b = 0") не работает?

 

[Ilyialat]

Может быть... А надо мне это для следующего...
Хочу сделать платформу, похожую на ЕленаБот...
Она использует ImageSearch.dll
Специально для dll написано дополнение
Там есть кэш координат(полезная вещь!), тыканье в случайные места битмапа с различной скоростью с шансом промаха... Вот я и тружусь =)

 

[CreatoR]

Для общей информации: PluginInclude - Подключение внешних динамических библиотек

 

[Ilyialat]

Спасибо =)