Jump to content

michaelleewebb

Members
  • Posts

    2
  • Joined

  • Last visited

michaelleewebb's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. maybe someone can help me out here. the code does not execute in the matter i expect. program excutes line 44, $nMsg = GUIGetMsg(). then it jumps past the switch statement and the case statements and goes to line 49. anyone see what i'm doing wrong. this is my first switch statement, i'm not impressed. it should never even reach line 49, $nMsg = 0. #include "Dbug.au3" Global $CurrentLink #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 438, 192, 124) $Label1 = GUICtrlCreateLabel("Label1", 144, 48, 84, 17) $Radio1 = GUICtrlCreateRadio("Local", 320, 40, 97, 25) $Radio2 = GUICtrlCreateRadio("Server", 312, 88, 105, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### dim $file dim $line dim $Ans $file = FileOpen("C:\mydata.txt", 0) ; Check if file opened for reading OK ;If $file = -1 Then ; MsgBox(0, "Error", "Unable to open file.") ; Exit ;EndIf ;While 1 ; $line = FileReadLine($file) ; If @error = -1 Then ExitLoop ; $Ans =StringInStr($line,"C:\dbaseform") ; if $Ans = 0 Then ;not fould, must be set to the remote server ; $CurrentLink = "server" ; GUICtrlSetData($Label1,"Remote Server") ; Else ; GUICtrlSetData($Label1,"Local") ; EndIf ; MsgBox(0, "Line read:", $line) ;Wend ;FileClose($file) dim $nMsg Dim $LinkChanged $LinkChanged = False While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $nmsg = $radio1 $CurrentLink = "server" $LinkChanged = True Case $nmsg = $radio2 $CurrentLink = "local" $LinkChanged = True EndSwitch if $LinkChanged = true Then ChangeLink($CurrentLink) $LinkChanged = False EndIf WEnd Func ChangeLink($mystring) if $mystring = "local" Then $Ans = FileCopy("C:\mydatalocal.txt","C:\mydata.txt",1) if $Ans = 0 Then ;failure MsgBox(0,"ERROR","Unable to Write to Mydata.txt") EndIf Else FileCopy("C:\mydataserver.txt","C:\mydata.txt",1) if $Ans = 0 Then ;failure MsgBox(0,"ERROR","Unable to Write to Mydata.txt") EndIf EndIf EndFunc test 1.au3
×
×
  • Create New...