Jump to content
Sign in to follow this  

FileWriteLine writes wrong in file

Recommended Posts



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)


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()


Case $msg = $GUI_EVENT_CLOSE


Case $msg = $Afslut_rename_programmet


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)


MsgBox(4096, "drag drop file", GUICtrlRead($projekt_nr))

Case $msg = $Rename_ens_Parter

MsgBox(4096, "drag drop file", GUICtrlRead($projekt_nr))



EndFunc ;==>Example



Share this post

Link to post
Share on other sites

$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...

Share this post

Link to post
Share on other sites

Tanks, but I can stil not get et to work

Share this post

Link to post
Share on other sites

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.

Share this post

Link to post
Share on other sites

It dit the trix. Tanks a lot ^_^

Share this post

Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  


Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.