Lesler Posted May 5, 2009 Share Posted May 5, 2009 Hello I have a strange problem. When I write a decent box, "Indtast projekt nr" Is worth again to 11 in the file even though I have not written 11 in the input box. Has anyone had an idea of what I'm doing wrong Thank you in advance #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <File.au3> Opt('MustDeclareVars', 1) Example() Func Example() Local $Rename_Parter, $Rename_ens_Parter,$Rename_flanger, $Rename_ens_flanger, $Afslut_rename_programmet,$type,$projekt_nr,$rende_nr,$syrefast, $msg, $sidste_nr GUICreate("Blücher rename",700, 500) ; will create a dialog box that when displayed is centered Opt("GUICoordMode", 2) $Rename_Parter = GUICtrlCreateButton("Rename Parter", 10, 100, 165, 30, 0) $Rename_ens_Parter = GUICtrlCreateButton("Rename ens Parter", -165, 10, 165, 30, 0) $Rename_flanger = GUICtrlCreateButton("Rename flanger", 15, -70, 165, 30, 0) $Rename_ens_flanger = GUICtrlCreateButton("Rename ens flanger", -165, 10, 165, 30, 0) $Afslut_rename_programmet = GUICtrlCreateButton("Afslut rename programmet", 120, 267, 165, 41, 0) GUICtrlCreateLabel("Indtast type:", -630, -450) $type= GUICtrlCreateInput("", -165, -15, 165, 20) GUICtrlCreateLabel("Indtast projekt_nr:", 15, -40) $projekt_nr= GUICtrlCreateInput("", -165,0, 165, 20) GUICtrlCreateLabel("Indtast rende_nr:", 15, -40) $rende_nr= GUICtrlCreateInput("", -165,0, 165, 20) $syrefast = GUICtrlCreateCheckbox("Maker ved syrefast", 28, -20, 161, 15) GUICtrlCreateLabel("Indtast ens løbenr:", -350, 60) $sidste_nr= GUICtrlCreateInput("", -165,0, 165, 20) GUISetState() ; will display an dialog box with 2 button ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Afslut_rename_programmet exit Case $msg = $Rename_Parter FileOpen("X:\TSA\Special\programmer\rename_mle\rename_mle.txt", 2) FileWriteLine("X:\TSA\Special\programmer\rename_mle\rename_mle.txt", $projekt_nr) FileClose("X:\TSA\Special\programmer\rename_mle\rename_mle.txt") MsgBox(4096, "drag drop file", GUICtrlRead($projekt_nr)) Case $msg = $Rename_ens_Parter MsgBox(4096, "drag drop file", GUICtrlRead($projekt_nr)) EndSelect WEnd EndFunc ;==>Examplerename_mle.au3rename_mle.txt Link to comment Share on other sites More sharing options...
Juvigy Posted May 5, 2009 Share Posted May 5, 2009 $projekt_nr= GUICtrlCreateInput("", -165,0, 165, 20) - this only creates the control. You also need something like : $projekt_n1=GUICtrlRead($projekt_nr) - be advised that it returns Strings... Link to comment Share on other sites More sharing options...
Lesler Posted May 5, 2009 Author Share Posted May 5, 2009 Tanks, but I can stil not get et to work Link to comment Share on other sites More sharing options...
Juvigy Posted May 5, 2009 Share Posted May 5, 2009 You need to put the "$projekt_n1=GUICtrlRead($projekt_nr)" in the loop Also put one "msgbox(0,"",$projekt_n1) right after it to test what it puts. Link to comment Share on other sites More sharing options...
Lesler Posted May 5, 2009 Author Share Posted May 5, 2009 It dit the trix. Tanks a lot Link to comment Share on other sites More sharing options...
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