Unable to have button write line to a file

[majaeger]

Hello,

I'm trying to make an interface that writes the info typed into a text box to a log file when clicking a button. Clearing the text box on submit would be an added bonus but not required. Here is the code I'm working with.

expandcollapse popup

#include <Date.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>

$tCur = _Date_Time_GetLocalTime()
$sDateTime = _Date_Time_SystemTimeToDateTimeStr($tCur)

; Open log file
$results = "Results.txt"
$file = FileOpen(@ScriptDir & "\" & $results, 1)
; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
 EndIf

GUICreate("Write", 350, 200)
GUISetBkColor(0xFFFFFF)

$text = GUICtrlCreateInput("", 42, 27, 200, 20)

; MENU
$File = GUICtrlCreateMenu("File")
$Exit = GUICtrlCreateMenuItem("Exit", $File)
$Help = GUICtrlCreateMenu("Help")
$About = GUICtrlCreateMenuItem("About", $Help)

; BUTTONS
$nextb = GUICtrlCreateButton("Next", 36, 115, 75, 30)

GUISetState(@SW_SHOW)

    While 1
    $guimsg = GUIGetMsg()
        Select
            Case $guimsg = $Exit
               Exit
            Case $guimsg = $GUI_EVENT_CLOSE
               Exit
             Case $guimsg = $nextb
               Call ("one")
            Case $guimsg = $About
              MsgBox(64, "About", "Version 1.0")
        EndSelect
     WEnd

Func one()
   $nstep = GUICtrlRead($text)
   FileWriteLine($file, $sDateTime & @TAB & $nstep & @TAB & "Next")
   Return
EndFunc

Edited April 3, 2014 by Melba23
Added code tags

[BrewManNH]

You reused the $file variable name for the menu item, so there's no file to write to when you call the one function. Give them unique names.

[Melba23]

majaeger,

Welcome to the AutoIt forum.

When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

M23

[majaeger]

Thanks BrewManNH, I figured i just needed another set of eyes looking at it!

[majaeger]

Thanks for the assistance Melba23!