Ksaan
Знающий
- Сообщения
- 207
- Репутация
- 15
Не могу понять по чему скрипт берёт "Параметр=Значение" из другой секции ini.файла если сама секция не первая в списке
Я не понимаю он все верно находит совпадения в тексте а потом у меня начинается :stars:
Код:
Global $name = "www/mail.ru/", $var, $msg, $sector, $tipe = 0
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "_Hotkei_Login")
FileOpen(@DesktopDir & "\AutoIt-Test.ini")
$var = IniReadSectionNames(@DesktopDir & "\AutoIt-Test.ini")
While 1
Poisk_Texta()
Wend
Func Poisk_Texta()
If @error Then
MsgBox(4096, "", "Error occured, probably no INI file.")
Else
For $i = 1 To $var[0] step 1
$msg = $var[$i]
;~ ----------------------------------------------------
; MsgBox(4096, "", $msg)
$array = StringRegExp($name, $msg, 0)
;~ ------------------------------------------------------
; MsgBox(4096, "", $array)
if $array = 1 Then
;~ ----------------------------------------------------
; MsgBox(4096, "", "готово: " & $array)
; MsgBox(4096, "", "Обработка текста: " & $name & @CRLF & " Текст для поиска: " & $msg)
ExitLoop
;Else
;ContinueLoop
endif
Next
EndIf
EndFunc
Func _Hotkei_Login()
Dim $text = $msg
$sector = IniReadSection(@DesktopDir & "\AutoIt-Test.ini",$text)
$rovs = UBound($sector)
$rovs -= 1
$tipe += 1
MsgBox(4096, "", $sector[$tipe][0] & @CRLF & $sector[$tipe][1] & @CRLF & $rovs & @CRLF & $tipe)
If $tipe = $rovs then
$tipe = 0
EndIf
EndFunc
Func Terminate()
Exit
EndFunc
FileClose((@DesktopDir & "\AutoIt-Test.ini")
Я не понимаю он все верно находит совпадения в тексте а потом у меня начинается :stars: