Подскажите как выполнить условие при действии?
В общем нужно, чтоб из массива бралось одно слово писало его на сайте, а когда цикл For $i выберет следующее значение, то вставить новое слово на сайте
так у меня пишет все слова в строке
а так только одно первое слово ну или другое смотря какое значение поставлю
Добавлено:
пришла мысль может вынести ее из в функции в отдельную функцию?
В общем нужно, чтоб из массива бралось одно слово писало его на сайте, а когда цикл For $i выберет следующее значение, то вставить новое слово на сайте
так у меня пишет все слова в строке
Код:
Func _Script() ;
Dim $aArray[176]=["А", "B", "C",........, "z"]
;.....
For $i = GUICtrlRead($Input1) To GUICtrlRead($Input2)
_IENavigate($oIE, $sUrl)
Sleep(20)
;.....
Sleep(200)
MouseClick("left", 310, 190, 1, 0)
Sleep(200)
Send("^a") ; Послать Ctrl+A
For $i = 0 To UBound($aArray) - 1
Send($aArray[1])
Next
Sleep(200)
MouseClick("left", 310, 190, 1, 0)
Sleep(200)
;.....
Sleep(1000)
_IELinkClickByText($oIE,"Выход")
Sleep(50)
;.....
Next
EndFunc
а так только одно первое слово ну или другое смотря какое значение поставлю
Код:
Func _Script() ;
Dim $aArray[176]=["А", "B", "C",........, "z"]
;.....
For $i = GUICtrlRead($Input1) To GUICtrlRead($Input2)
_IENavigate($oIE, $sUrl)
Sleep(20)
;.....
Sleep(200)
MouseClick("left", 310, 190, 1, 0)
Sleep(200)
Send("^a") ; Послать Ctrl+A
Send($aArray[1])
Sleep(200)
MouseClick("left", 310, 190, 1, 0)
Sleep(200)
;.....
Sleep(1000)
_IELinkClickByText($oIE,"Выход")
Sleep(50)
;.....
Next
EndFunc
Добавлено:
Сообщение автоматически объединено:
пришла мысль может вынести ее из в функции в отдельную функцию?