crazyjts Posted March 8, 2009 Posted March 8, 2009 I've made a simple GUI below and can read from info.txt and write the default values into the input boxes at GUI startup. What I can't get to happen is to have new values read from the input boxes and written to the info.txt file. For some reason, no matter what value I put into the 3 input boxes I get integer results in info.txt and the test msgbox. expandcollapse popup#Include <Misc.au3> #Include <File.au3> #Include <String.au3> #include <GuiConstantsEx.au3> ;Check to see if the Info.txt file exists. If not, ask to create it $InfoFile = FileExists("C:\Info.txt") If $InfoFile = 0 Then $FileCreate = MsgBox(1,"Error - Missing file","The file C:\Info.txt was not found." & @CRLF & "Click OK to create this file now and continue setup or Cancel to quit the program") If $FileCreate = 1 Then SplashTextOn("Create missing file","Creating C:\Info.txt",250,50) FileWriteLine("C:\Info.txt","Server not yet set" & @CRLF & "Login name not yet set" & @CRLF & "Password not yet set") Sleep(1000) SplashOff() Else Exit EndIf EndIf ; Set values for account info by reading from C:\Info.txt $Server = FileReadLine("C:\Info.txt",1) $LoginName = FileReadLine("C:\Info.txt",2) $LoginPswd = FileReadLine("C:\Info.txt",3) ; GUI form GuiCreate("Account Info", 400, 200) ; GUI Labels and Input boxes GuiCtrlCreateLabel("Enter the requested account information below", 25, 5, 400, 25) GuiCtrlCreateLabel("Server name:", 25, 25, 75, 25) $Input1 = GuiCtrlCreateInput($Server, 100, 23, 125, 25) GuiCtrlCreateLabel("Account login:", 25, 50, 75, 25) $Input2 = GuiCtrlCreateInput($LoginName, 100, 48, 126) GuiCtrlCreateLabel("Account pswd:", 25, 75, 75, 25) GuiCtrlCreateLabel("==>", 250, 75, 20, 25) $Input3 = GuiCtrlCreateInput($LoginPswd, 100, 73, 125, 25) ; Gui Buttons $BtnOK = GuiCtrlCreateButton("OK", 75, 150, 75, 25) $BtnExit = GuiCtrlCreateButton("Exit", 250, 150, 75, 25) $BtnReadMe = GuiCtrlCreateButton("ReadMe", 290, 70, 75, 25) ; GUI show GuiSetState(@SW_SHOW) ; GUI Message Loop While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop ElseIf $msg = $BtnOK Then GUICtrlRead($Input1) GUICtrlRead($Input2) GUICtrlRead($Input2) MsgBox(0,"",$Input1 & " " & $Input2 & " " & $Input3) $File = FileOpen("C:\Info.txt",2);Opens Info.txt and erases the existing content FileClose($File) FileWrite("C:\Info.txt",$Input1 & @CRLF & $Input2 & @CRLF & $Input3) ExitLoop ElseIf $msg = $BtnExit Then Exit ElseIf $msg = $BtnReadMe Then MsgBox(0,"","You need to enter the info asked for") EndIf WEnd
crazyjts Posted March 8, 2009 Author Posted March 8, 2009 GUICtrlRead($Input1) etc.Perfect...I just couldn't figure that one out. Thank you
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now