Second press on button won't go to for loop

dragosv6 · September 26, 2020

Hi guys

this is my first topic and i hope that i posted in the correct section

i have a text file like below with somewhere 3000-4000 lines

aaa = bbb
ccc = ddd

i made an input and a button

when i input aaa i want to show bbb

when i input ccc i want to show ddd

and so on

i created a script and if i input aaa and press once it shows bbb. But after that if i input ccc and press the second time i will get nothing

#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <INet.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Inet.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>


Opt("GUIOnEventMode", 1)

Global $handleGUI = GUICreate("gui", 1250, 900)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xFFFFFF)




Local $idMenu1 = GUICtrlCreateMenu("Menu")

Local $idMenu3 = GUICtrlCreateMenu("About")



GUICtrlCreateGroup("Option Checker", 960, 20, 220, 200)
GUICtrlSetFont(-1, 11, 500)
Global $inputfa = GUICtrlCreateInput("aaa", 970, 59, 85, 28) ;input FA
GUICtrlSetFont(-1, 12, 700)
Global $statusfa = GUICtrlCreateLabel("", 970, 100, 80, 28) ; Valid
GUICtrlSetColor(-1, 0x00FF00) ; Green;
GUICtrlSetFont(-1, 12, 700) ; Bold
Global $fadescription = GUICtrlCreateLabel("", 970, 120, 300, 38)
GUICtrlSetFont(-1, 11, 700) ; Bold
;GUICtrlSetFont(-1, 11, 700)

Global $checkfa = GUICtrlCreateButton("Check FA", 1070, 59, 95, 30)
GUICtrlSetFont(-1, 11, 500)
;GUICtrlSetOnEvent(-1, "checkfagui")
GUICtrlSetOnEvent(-1, "checkfa")


Global $FaPath = @ScriptDir & "\test.txt"
Global $FaFileOpen = FileOpen(@ScriptDir & "\test.txt", 0)
Global $FaFileRead = FileReadLine($FaFileOpen, 1)
GUISetState()

While 1
    Sleep(20000)
WEnd



Func checkfa()


    $readinputfa = GUICtrlRead($inputfa)
    GUICtrlSetState($checkfa, $GUI_HIDE)
    Global $loadingfa = GUICtrlCreateButton("Loading", 1070, 59, 95, 30)
    GUICtrlSetFont(-1, 11, 500)


    If $FaFileOpen = -1 Then

        MsgBox(0, "File is missing!", "")
    EndIf

    $i = 0

    For $i = 1 To _FileCountLines($FaFileOpen)

        Local $line = FileReadLine($FaPath, $i)
        Local $faoption = StringMid($line, 1, 3)
        Local $fadescriptionline = StringMid($line, 7, 30)


        If $readinputfa = $faoption Then

            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $fadescriptionline)
            GUICtrlSetState($loadingfa, $GUI_HIDE)
            GUICtrlSetState($checkfa, $GUI_SHOW)

            FileClose($FaFileOpen)

            ExitLoop

        EndIf

    Next

EndFunc   ;==>checkfa

Func _Exit()
    Exit
EndFunc   ;==>_Exit

word_finder.txt

Edited September 26, 2020 by Jos
Simply add source in codebox <>

Danp2 · September 26, 2020

Welcome to the forums. From what I can see, you open the file at the beginning of your script and then close it in the fucntion checkfa. After that, you won't be able to read from the file.

If the file contents aren't constantly changing, then you can avoid this issue by reading the file contents into an array and then performing your search against the array.

dragosv6 · September 26, 2020

Hey Danp2

Thanks for the answer

Can u give me an example so i can put it into my code?

thanks!

Dan_555 · September 26, 2020

Hi.

Use FileReadToArray and _ArraySearch. Both have an Example in the Autoit Help file.

But, if you want to make your script workable, then move the

  FileClose($FaFileOpen)

line from CheckFa function to the _Exit function. (or just comment it out ... )

Edited September 26, 2020 by Dan_555

dragosv6 · September 26, 2020

28 minutes ago, Dan_555 said:
Hi.

Use FileReadToArray and _ArraySearch. Both have an Example in the Autoit Help file.

But, if you want to make your script workable, then move the
  FileClose($FaFileOpen)
line from CheckFa function to the _Exit function.

nop . not working

Jos · September 26, 2020

Where did you move it to?

dragosv6 · September 26, 2020

I managed to create an array like Danp2 suggested and do a comparison but something is missing

Thanks guys for trying to help me

wordchecker.au3

test.txt

zeenmakr · September 26, 2020

@dragosv6 i would recommend these naming variable practices: $iLineCount - the 'i' is for interger; $sFileName - 's'=string, $hFileOpen - h=handle, a=array, c=control ect... it's difficult to read your code the way it is.

7 hours ago, dragosv6 said:

i have a text file like below with somewhere 3000-4000 lines

aaa = bbb
ccc = ddd

i made an input and a button

when i input aaa i want to show bbb

when i input ccc i want to show ddd

are the list in test.txt file created by you or computer generated? either way, it is easier to use IniRead() but you need to add the 'section' tag to test.txt like this

[Animals Dictionary]
dog = Puppy
cat = Kitten

[Cars Dictionary]
tesla = Model S 3 X Y
truck = Cybertruck

[EN Dictionary]
aaa = a1
bbb = b1

try this

#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#Include <Array.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <INet.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Inet.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>


Opt("GUIOnEventMode", 1)

;~ HotKeySet('{ESC}', '_Exit')

Global $sFilePath = @ScriptDir & "\test.txt"

; GUI
Global $hGUI = GUICreate("My Dictionary", 1250, 900)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xFFFFFF)

Local $idMenu1 = GUICtrlCreateMenu("Menu")
Local $idMenu3 = GUICtrlCreateMenu("About")

GUICtrlCreateGroup("Option Checker", 960, 20, 220, 200)
GUICtrlSetFont(-1, 11, 500)

Global $cUserLookUp = GUICtrlCreateInput("dog", 970, 59, 85, 28) ;input FA
GUICtrlSetFont(-1, 12, 700)
GUICtrlSetTip(-1, 'Enter term to search')

Global $cLookupStatus = GUICtrlCreateLabel("Status", 970, 100, 80, 28) ;display status label
;~ GUICtrlSetColor(-1, 0x00FF00) ; Green;
;~ GUICtrlSetFont(-1, 12, 700) ; Bold
GUICtrlSetTip(-1, 'Status')

Global $cLookupResult = GUICtrlCreateLabel("Result", 970, 120, 300, 38) ;display result found
GUICtrlSetFont(-1, 11, 700) ; Bold
;GUICtrlSetFont(-1, 11, 700)
GUICtrlSetTip(-1, 'Result')

Global $cBtnSearch = GUICtrlCreateButton("Find", 1070, 59, 95, 30) ;action
GUICtrlSetFont(-1, 11, 500)
;GUICtrlSetOnEvent(-1, "checkfagui")
GUICtrlSetOnEvent(-1, "_DictionaryFinder")

GUISetState()

; Loop until the user exits.
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ; Delete the previous GUIs and all controls.
            GUIDelete($hGUI)
            ExitLoop
            
    EndSwitch
WEnd


; -----------------------
; e.g dictionary format
; -----------------------
;~ [Animals Dictionary]
;~ dog = puppy
;~ dat = Kitten

;~ [Cars Dictionary]
;~ tesla = Model S 3 X Y
;~ truck = Cybertruck

;~ [EN Dictionary]
;~ aaa = a1
;~ bbb = b1

Func _DictionaryFinder()
    Local $sDictionaryType
    Local $sw = 1
    Switch $sw
        Case 1
          Local $sDictionaryType = "Animals Dictionary"
        Case 2
           Local $sDictionaryType = "Cars Dictionary"
        Case 3
           Local $sDictionaryType = "EN Dictionary"
    EndSwitch
    
    Local $sUserLookupTerm = GUICtrlRead($cUserLookUp)
    Local $sDefaultValue = "No Search Result Found"
    Local $sRead = IniRead($sFilePath, $sDictionaryType, $sUserLookupTerm, $sDefaultValue)
    
;~     If $sRead == $sDefaultValue Then
    If StringCompare($sRead, $sDefaultValue, $STR_NOCASESENSEBASIC) Then
          GUICtrlSetData($cLookupStatus,"SUCCESS")
          GUICtrlSetColor($cLookupStatus, 0x00FF00)         ; Green
          GUICtrlSetFont($cLookupStatus, 12, 700)           ; Bold
          
          GUICtrlSetData($cLookupResult, $sUserLookupTerm &' = '& $sRead)    ;set result
          
    Else
          GUICtrlSetData($cLookupStatus,"FAIL")
          GUICtrlSetColor($cLookupStatus, 0xff0000)         ; red
          GUICtrlSetFont($cLookupStatus, 12, 700)           ; Bold
          
          GUICtrlSetData($cLookupResult, $sUserLookupTerm &' = '& $sRead)    ;set result
    EndIf
EndFunc



; WARNING THERE ARE LOTS OF PROBLEMS IN THIS FUNCTION - no changes made yet
Func _DictionaryFinderXXX()
  Local $hFileOpen = FileOpen($sFilePath, $FO_READ)

  Local $sUserLookupTerm = GUICtrlRead($cUserLookUp)
  GUICtrlSetState($cBtnSearch, $GUI_HIDE)
  Global $loadingfa = GUICtrlCreateButton("Loading", 1070, 59, 95, 30)

  Dim $aDictionary
  If Not _FileReadToArray($sFilePath, $aDictionary) Then
      MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
      Exit
  EndIf
  _ArrayDisplay($aDictionary, "Debug: $aDictionary")

  ; Split lines into 2D array
  Dim $aSplittedLine[$aDictionary[0] + 1][2] = [["col1", "col2"]]
  ;MsgBox(0,"","" & $aDictionary[0] )

  For $x = 1 To $aDictionary[0]
      $aLookupWord = StringSplit($aDictionary[$x], "=")
      If $aLookupWord[0] = 2 Then
          $aSplittedLine[$x][0] = $aLookupWord[1]
          $aSplittedLine[$x][1] = $aLookupWord[2]
      EndIf

      If $sUserLookupTerm = $aSplittedLine[$x][0] Then

          GUICtrlSetData($cLookupStatus,"Valid!")
          GUICtrlSetColor(-1, 0x00FF00) ; Green;
          GUICtrlSetFont(-1, 12, 700) ; Bold
          
          GUICtrlSetData($cLookupResult,$aSplittedLine[$x][1])
          GUICtrlSetState($loadingfa, $GUI_HIDE)
          GUICtrlSetState($cBtnSearch, $GUI_SHOW)

      EndIf
  Next
  _ArrayDisplay($aSplittedLine, "Debug: $aSplittedLine")
EndFunc

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Dan_555 · September 26, 2020

The textfile contains following line:

aaa = bbb

when you are using the string split method, the aaa has a space after it, so the array gets the "aaa " as a string, which does not match the aaa search.

this should work:

#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <INet.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Inet.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>


Opt("GUIOnEventMode", 1)

Global $handleGUI = GUICreate("gui", 1250, 900)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xFFFFFF)




Local $idMenu1 = GUICtrlCreateMenu("Menu")

Local $idMenu3 = GUICtrlCreateMenu("About")



GUICtrlCreateGroup("Option Checker", 960, 20, 220, 200)
GUICtrlSetFont(-1, 11, 500)
Global $inputfa = GUICtrlCreateInput("aaa", 970, 59, 85, 28) ;input FA
GUICtrlSetFont(-1, 12, 700)
Global $statusfa = GUICtrlCreateLabel("", 970, 100, 80, 28) ; Valid
GUICtrlSetColor(-1, 0x00FF00) ; Green;
GUICtrlSetFont(-1, 12, 700) ; Bold
Global $fadescription = GUICtrlCreateLabel("", 970, 120, 300, 38)
GUICtrlSetFont(-1, 11, 700) ; Bold
;GUICtrlSetFont(-1, 11, 700)

Global $checkfa = GUICtrlCreateButton("Check FA", 1070, 59, 95, 30)
GUICtrlSetFont(-1, 11, 500)
;GUICtrlSetOnEvent(-1, "checkfagui")
GUICtrlSetOnEvent(-1, "Check")


Global $sFile = @ScriptDir & "\test.txt"
Global $FaFileOpen = FileOpen(@ScriptDir & "\test.txt", 0)

;Global $FaFileRead = FileReadLine($FaFileOpen, 1)




GUISetState()





While 1
    Sleep(20000)
WEnd






Func Check()

    $readinputfa = GUICtrlRead($inputfa)

    GUICtrlSetState($checkfa, $GUI_HIDE)
    Global $loadingfa = GUICtrlCreateButton("Loading", 1070, 59, 95, 30)

    Dim $text
    If Not _FileReadToArray($sFile, $text) Then
        MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
        Exit
    EndIf
    ;_ArrayDisplay($text, "Debug: $text")

    ; Split lines into 2D array
    Dim $avIPs[$text[0] + 1][2] = [["col1", "col2"]]

    ;MsgBox(0,"","" & $text[0] )


    For $x = 1 To $text[0]
        $array = StringSplit($text[$x], "=")


        If $array[0] = 2 Then
            $avIPs[$x][0] = StringStripWs($array[1],3)
            $avIPs[$x][1] = StringStripWs($array[2],3)
        EndIf

            ConsoleWrite ( $x & ": " & chr(34) & $readinputfa &chr(34) & " = " &chr(34) & $avIPs[$x][0] &chr(34) & @crlf)
        If $readinputfa = $avIPs[$x][0] Then
            ConsoleWrite ("found" & $avIPs[$x][1] & @crlf)
            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $avIPs[$x][1])


        EndIf
    Next
    ;_ArrayDisplay($avIPs, "Debug: $avIPs")

    GUICtrlSetState($loadingfa, $GUI_HIDE)
    GUICtrlSetState($checkfa, $GUI_SHOW)


EndFunc   ;==>Check


Func _Exit()
    FileClose($FaFileOpen)
    Exit
EndFunc   ;==>_Exit

Edited September 26, 2020 by Dan_555

dragosv6 · September 26, 2020

yap working!

i used the one that Dan_555 proposed but also tested the one zeenmakr suggested. Both are ok! gave u guys a thank you!

dragosv6 · September 26, 2020

19 minutes ago, Dan_555 said:

The textfile contains following line:

aaa = bbb

when you are using the string split method, the aaa has a space after it, so the array gets the "aaa " as a string, which does not match the aaa search.

this should work:

#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <INet.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Inet.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>


Opt("GUIOnEventMode", 1)

Global $handleGUI = GUICreate("gui", 1250, 900)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xFFFFFF)




Local $idMenu1 = GUICtrlCreateMenu("Menu")

Local $idMenu3 = GUICtrlCreateMenu("About")



GUICtrlCreateGroup("Option Checker", 960, 20, 220, 200)
GUICtrlSetFont(-1, 11, 500)
Global $inputfa = GUICtrlCreateInput("aaa", 970, 59, 85, 28) ;input FA
GUICtrlSetFont(-1, 12, 700)
Global $statusfa = GUICtrlCreateLabel("", 970, 100, 80, 28) ; Valid
GUICtrlSetColor(-1, 0x00FF00) ; Green;
GUICtrlSetFont(-1, 12, 700) ; Bold
Global $fadescription = GUICtrlCreateLabel("", 970, 120, 300, 38)
GUICtrlSetFont(-1, 11, 700) ; Bold
;GUICtrlSetFont(-1, 11, 700)

Global $checkfa = GUICtrlCreateButton("Check FA", 1070, 59, 95, 30)
GUICtrlSetFont(-1, 11, 500)
;GUICtrlSetOnEvent(-1, "checkfagui")
GUICtrlSetOnEvent(-1, "Check")


Global $sFile = @ScriptDir & "\test.txt"
Global $FaFileOpen = FileOpen(@ScriptDir & "\test.txt", 0)

;Global $FaFileRead = FileReadLine($FaFileOpen, 1)




GUISetState()





While 1
    Sleep(20000)
WEnd






Func Check()

    $readinputfa = GUICtrlRead($inputfa)

    GUICtrlSetState($checkfa, $GUI_HIDE)
    Global $loadingfa = GUICtrlCreateButton("Loading", 1070, 59, 95, 30)

    Dim $text
    If Not _FileReadToArray($sFile, $text) Then
        MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
        Exit
    EndIf
    ;_ArrayDisplay($text, "Debug: $text")

    ; Split lines into 2D array
    Dim $avIPs[$text[0] + 1][2] = [["col1", "col2"]]

    ;MsgBox(0,"","" & $text[0] )


    For $x = 1 To $text[0]
        $array = StringSplit($text[$x], "=")


        If $array[0] = 2 Then
            $avIPs[$x][0] = StringStripWs($array[1],3)
            $avIPs[$x][1] = StringStripWs($array[2],3)
        EndIf

            ConsoleWrite ( $x & ": " & chr(34) & $readinputfa &chr(34) & " = " &chr(34) & $avIPs[$x][0] &chr(34) & @crlf)
        If $readinputfa = $avIPs[$x][0] Then
            ConsoleWrite ("found" & $avIPs[$x][1] & @crlf)
            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $avIPs[$x][1])


        EndIf
    Next
    ;_ArrayDisplay($avIPs, "Debug: $avIPs")

    GUICtrlSetState($loadingfa, $GUI_HIDE)
    GUICtrlSetState($checkfa, $GUI_SHOW)


EndFunc   ;==>Check


Func _Exit()
    FileClose($FaFileOpen)
    Exit
EndFunc   ;==>_Exit

Dan one more question

if i want to insert a Else where to put it?

i tried to insert it here:

If $readinputfa = $avIPs[$x][0] Then
            ConsoleWrite ("found" & $avIPs[$x][1] & @crlf)
            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $avIPs[$x][1])

Else

    GUICtrlSetData($statusfa, "Invalid!")
            GUICtrlSetColor(-1, 0xFFFFFF) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            ;GUICtrlSetData($fadescription, $avIPs[$x][1])

EndIf

but it sais invalid all the time.

Dan_555 · September 26, 2020

Put an exitloop command just before the else

dragosv6 · September 26, 2020

4 minutes ago, Dan_555 said:

Put an exitloop command just before the else

nop same

For $x = 1 To $text[0]
$array = StringSplit($text[$x], "=")

        If $array[0] = 2 Then
            $avIPs[$x][0] = StringStripWs($array[1],3)
            $avIPs[$x][1] = StringStripWs($array[2],3)
        EndIf

            ;ConsoleWrite ( $x & ": " & chr(34) & $readinputfa &chr(34) & " = " &chr(34) & $avIPs[$x][0] &chr(34) & @crlf)
        If $readinputfa = $avIPs[$x][0] Then
            ConsoleWrite ("found:"& $avIPs[$x][0] & " = " & $avIPs[$x][1] & @crlf)
            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $avIPs[$x][1])

ExitLoop

Else
;ConsoleWrite ("notfound" & $avIPs[$x][1] & @crlf)
    GUICtrlSetData($statusfa, "Invalid!")
            GUICtrlSetColor(-1, 0xFFFFFF) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            ;GUICtrlSetData($fadescription, $avIPs[$x][1])

EndIf
Next

dragosv6 · September 26, 2020

and if i put 4000 lines it stays somewhere for 10 seconds and this time the Valid Or invalid keeps blinking

zeenmakr · September 26, 2020

10 minutes ago, dragosv6 said:

but it sais invalid all the time.

here is something to think about: although your original method works and because you have a large text file it takes longer than it is supposed to to search. because your file is formatted the way it it, take advantage the IniRead() which is much more efficient. _ArraySearch() is an alternative suggested after _FileReadToArray(). I dont' see why you need to re-invent the wheel. Also do take into account case sensitive check as well

6 minutes ago, Dan_555 said:

Put an exitloop command just before the else

Exitloop is for while loop, ContinueLoop is for for loop

zeenmakr · September 26, 2020

3 minutes ago, dragosv6 said:

and if i put 4000 lines it stays somewhere for 10 seconds and this time the Valid Or invalid keeps blinking

this is the inefficiency im referring to. Do or While loop allows to exit loop once search found

Dan_555 · September 26, 2020

Then do it in this way:

#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <guiconstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <INet.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Inet.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>


Opt("GUIOnEventMode", 1)

Global $handleGUI = GUICreate("gui", 1250, 900)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetBkColor(0xFFFFFF)




Local $idMenu1 = GUICtrlCreateMenu("Menu")

Local $idMenu3 = GUICtrlCreateMenu("About")



GUICtrlCreateGroup("Option Checker", 960, 20, 220, 200)
GUICtrlSetFont(-1, 11, 500)
Global $inputfa = GUICtrlCreateInput("aaa", 970, 59, 85, 28) ;input FA
GUICtrlSetFont(-1, 12, 700)
Global $statusfa = GUICtrlCreateLabel("", 970, 100, 80, 28) ; Valid
GUICtrlSetColor(-1, 0x00FF00) ; Green;
GUICtrlSetFont(-1, 12, 700) ; Bold
Global $fadescription = GUICtrlCreateLabel("", 970, 120, 300, 38)
GUICtrlSetFont(-1, 11, 700) ; Bold
;GUICtrlSetFont(-1, 11, 700)

Global $checkfa = GUICtrlCreateButton("Check FA", 1070, 59, 95, 30)
GUICtrlSetFont(-1, 11, 500)
;GUICtrlSetOnEvent(-1, "checkfagui")
GUICtrlSetOnEvent(-1, "Check")


Global $sFile = @ScriptDir & "\test.txt"
Global $FaFileOpen = FileOpen(@ScriptDir & "\test.txt", 0)

;Global $FaFileRead = FileReadLine($FaFileOpen, 1)




GUISetState()





While 1
    Sleep(20000)
WEnd






Func Check()
    local $found=-1
    $readinputfa = GUICtrlRead($inputfa)

    GUICtrlSetState($checkfa, $GUI_HIDE)
    Global $loadingfa = GUICtrlCreateButton("Loading", 1070, 59, 95, 30)

    Dim $text
    If Not _FileReadToArray($sFile, $text) Then
        MsgBox(4096, "Error", " Error reading text file to Array error:" & @error)
        Exit
    EndIf
    ;_ArrayDisplay($text, "Debug: $text")

    ; Split lines into 2D array
    Dim $avIPs[$text[0] + 1][2] = [["col1", "col2"]]

    ;MsgBox(0,"","" & $text[0] )


    For $x = 1 To $text[0]
        $array = StringSplit($text[$x], "=")


        If $array[0] = 2 Then
            $avIPs[$x][0] = StringStripWS($array[1], 3)
            $avIPs[$x][1] = StringStripWS($array[2], 3)
        EndIf

        ConsoleWrite($x & ": " & Chr(34) & $readinputfa & Chr(34) & " = " & Chr(34) & $avIPs[$x][0] & Chr(34) & @CRLF)
        If $readinputfa = $avIPs[$x][0] Then
            ConsoleWrite("found" & $avIPs[$x][1] & @CRLF)
            $found=$x
            ExitLoop
        EndIf
    Next
    ;_ArrayDisplay($avIPs, "Debug: $avIPs")

if $found>-1 then
            GUICtrlSetData($statusfa, "Valid!")
            GUICtrlSetColor(-1, 0x00FF00) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            GUICtrlSetData($fadescription, $avIPs[$found][1])
Else
                ;ConsoleWrite ("notfound" & $avIPs[$x][1] & @crlf)
            GUICtrlSetData($statusfa, "Invalid!")
            GUICtrlSetColor(-1, 0xFFFFFF) ; Green;
            GUICtrlSetFont(-1, 12, 700) ; Bold
            ;GUICtrlSetData($fadescription, $avIPs[$x][1])
EndIf


    GUICtrlSetState($loadingfa, $GUI_HIDE)
    GUICtrlSetState($checkfa, $GUI_SHOW)


EndFunc   ;==>Check


Func _Exit()
    FileClose($FaFileOpen)
    Exit
EndFunc   ;==>_Exit

Edit:

Of course, to read in the file and to split the array each time is a bit inefficient, it can be done once (provided that the text file is not changed on the fly).

from the Help file:

Quote

ExitLoop

Terminate a While/Do/For loop.

Edited September 26, 2020 by Dan_555

zeenmakr · September 26, 2020

4 minutes ago, Dan_555 said:

Terminate a While/Do/For loop.

stand corrected

dragosv6 · September 26, 2020

yap all good now

tried all possibilities and are fine

Thanks Dan_555 for the help.

Also Thanks zeenmakr for the ini suggestion.

Second press on button won't go to for loop

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

ExitLoop

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members