Здравствуйте. Не могу понять что не так. Есть кусок кода.
Выдает ошибку:
Подскажите, где ошибка?
Код:
Global $Extention[8] = ["_d", "_ad", "_i", "_z", "_ne", "_pc", "_pa", "_jr"]
;...........
Func InsertTheCardsIntoABClient()
;мне страшно
$Temp2Dir = @ScriptDir & "\_temp"
For $a = 0 To 7
If $CountOfCard[$a] > 0 Then
$Temp2List = _FileListToArray($Temp2Dir, $Extention[$a], 1)
For $s = 1 To $CountOfCard[$a]
ClickOnButtonToInsertCards($a + 1)
WinWaitActive("Оберіть файл для завантаження даних")
Sleep(500)
Send($Temp2Dir & "\" & $Temp2List[$s])
Sleep(100)
ControlClick("ІАС ДКРС <" & $LoginUserName &">", _
"Оберіть файл для завантаження даних", _
"[CLASS:TButton; INSTANCE:2]", "left", 1)
CardInsertedSuccess()
If $a = 2 Then
ABClientClose()
Sleep(1000)
ClearKruDataDir()
Sleep(1000)
ABClientOpen()
EndIf
Next
WriteLog("Подлиты все " & $Extention[$a] & ".kru")
EndIf
Next
WriteLog("Подлиты все карты")
$IsCardCame = 0
$CountOfCard[8] = [0, 0, 0, 0, 0, 0, 0, 0]
EndFunc ; --- InsertTheCardsIntoABClient() ---
Выдает ошибку:
Код:
C:\IKPodliv\IKPodliv.au3 (430) : ==> Subscript used with non-Array variable.:
Send($Temp2Dir & "\" & $Temp2List[$s])
Send($Temp2Dir & "\" & $Temp2List^ ERROR
Подскажите, где ошибка?