problem with switch statement

[michaelleewebb]

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

[Melba23]

michaelleewebb,

Welcome to the AutoIt forum.

this is my first switch statement

So I suppose you looked carefully at the Help file to determine the correct syntax to use?

Switch works like this:

Switch <expression>
    Case <value>

as opposed to Select which works like this:

Select 
    Case <expression>

So when we look at your script we see:

Switch $nMsg
    Case $GUI_EVENT_CLOSE
    [...]           
    Case $nMsg = $Radio1
    [...]

Can you see why it is not working now?

M23

P.S. When you post code, please use Code tags. Put [autoit] before and [/autoit] after your posted code - then you get the nice scrollabel boxes.

[michaelleewebb]

thanks.