Getting Results to Show

[BrettF]

I'm making an adress book program that saves the contacts into a file and then when you want to search for someone, it finds the file then displays the results and the info included in the file. what im having trouble with is where the results display. Its comes up blank ...

expandcollapse popup

#include <GUIConstants.au3>
Dim $name, $DOB, $ADD, $AGE, $PH
Global $Result
StartScreen ()
Func StartScreen () ; The Main Screen
$Form1 = GUICreate("What Would You Like to do?", 271, 100, 192, 125)
$Button1 = GUICtrlCreateButton("Add Entry", 8, 35, 81, 25)
$Button2 = GUICtrlCreateButton("Search", 8, 67, 81, 25)
GUICtrlCreateLabel("Add an Entry", 96, 40, 65, 25)
GUICtrlCreateLabel("Search for someone", 96, 72, 99, 25)
GUICtrlCreateLabel("To start; click on an option bellow.", 8, 8, 251, 25)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
        GUISetState (@SW_HIDE)
        AddEntry ()
    Case $msg = $Button2
        SearchNameGUI ()
    EndSelect
WEnd
Exit
EndFunc

Func AddEntry () ;Adds an entry to save to a .txt 
$Form1 = GUICreate("Add Entry", 162, 196, 192, 125)
GUICtrlCreateLabel("Name:", 8, 8, 56, 17)
$name = GUICtrlCreateInput("Name", 64, 8, 89, 21, -1, $WS_EX_CLIENTEDGE)
$DOB = GUICtrlCreateInput("DOB", 64, 32, 89, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("DOB:", 8, 32, 56, 17)
GUICtrlCreateLabel("Address:", 8, 104, 56, 17)
$PH = GUICtrlCreateInput("Phone", 64, 56, 89, 21, -1, $WS_EX_CLIENTEDGE)
$AGE = GUICtrlCreateInput("Age", 64, 80, 89, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Phone:", 8, 56, 56, 17)
GUICtrlCreateLabel("Age:", 8, 80, 56, 17)
$ADD = GUICtrlCreateInput("Adress(s)", 8, 120, 145, 69, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
MsgBox(64,"","Entry Sucessfully added!")
        GetInfo ()
        GUISetState (@SW_HIDE)
        StartScreen ()
    Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit
EndFunc

Func GetInfo () ;Writes the file that contains all the info on a contact
    $nme = GUICtrlRead ($name)
    $do = GUICtrlRead ($DOB)
    $p = GUICtrlRead ($PH)
    $ag = GUICtrlRead ($AGE)
    $ad = GUICtrlRead ($ADD)
    $open = FileOpen ("Contacts\" & $nme & ".txt", 2)
    FileWriteLine ($open, $nme)
    FileWriteLine ($open, $do)
    FileWriteLine ($open, $P)
    FileWriteLine ($open, $ag)
    FileWriteLine ($open, $ad)
    FileClose ($open)
EndFunc

Func SearchNameGUI () ;the search GUI
    #include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Search", 200, 40, 192, 125)
$Input1 = GUICtrlCreateInput("Name", 8, 8, 113, 21, -1, $WS_EX_CLIENTEDGE)
$Button1 = GUICtrlCreateButton("Search!", 128, 8, 65, 25)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
        GUISetState (@SW_HIDE)
    $Input = GUICtrlRead ($Input1)
If  FileExists("contacts\"&$Input&".txt") Then ;The bit that finds the file and possible problem
    $Result = $Input & ".txt"
$file = FileOpen($Result, 0)
$info = FileReadLine ($file, 1)
FileClose ($file)
#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("Search Results", 197, 206, 192, 125) ; The results and the other place where the problem could be
$Group1 = GUICtrlCreateGroup("Results:", 8, 8, 185, 193)
$Edit1 = GUICtrlCreateLabel($info, 16, 24, 169, 169, -1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit
Else
    MsgBox(4096,"ERROR!", "Entry Not Found")
    StartScreen ()
EndIf
    EndSelect
WEnd
Exit
EndFunc

I did try the FileFindFirstFile command but didnt get anywhere

[Xenobiologist]

Hi,

just to get you one step further:

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
Dim $name, $DOB, $ADD, $AGE, $PH
Global $Result
StartScreen()
Func StartScreen() ; The Main Screen
    $Form1 = GUICreate("What Would You Like to do?", 271, 100, 192, 125)
    $Button1 = GUICtrlCreateButton("Add Entry", 8, 35, 81, 25)
    $Button2 = GUICtrlCreateButton("Search", 8, 67, 81, 25)
    GUICtrlCreateLabel("Add an Entry", 96, 40, 65, 25)
    GUICtrlCreateLabel("Search for someone", 96, 72, 99, 25)
    GUICtrlCreateLabel("To start; click on an option bellow.", 8, 8, 251, 25)
    GUISetState(@SW_SHOW)
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button1
                GUISetState(@SW_HIDE)
                AddEntry()
            Case $msg = $Button2
                SearchNameGUI()
        EndSelect
    WEnd
    Exit
EndFunc   ;==>StartScreen

Func AddEntry() ;Adds an entry to save to a .txt
    $Form1 = GUICreate("Add Entry", 162, 196, 192, 125)
    GUICtrlCreateLabel("Name:", 8, 8, 56, 17)
    $name = GUICtrlCreateInput("Name", 64, 8, 89, 21, -1, $WS_EX_CLIENTEDGE)
    $DOB = GUICtrlCreateInput("DOB", 64, 32, 89, 21, -1, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("DOB:", 8, 32, 56, 17)
    GUICtrlCreateLabel("Address:", 8, 104, 56, 17)
    $PH = GUICtrlCreateInput("Phone", 64, 56, 89, 21, -1, $WS_EX_CLIENTEDGE)
    $AGE = GUICtrlCreateInput("Age", 64, 80, 89, 21, -1, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Phone:", 8, 56, 56, 17)
    GUICtrlCreateLabel("Age:", 8, 80, 56, 17)
    $ADD = GUICtrlCreateInput("Adress(s)", 8, 120, 145, 69, -1, $WS_EX_CLIENTEDGE)
    GUISetState(@SW_SHOW)
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(64, "", "Entry Sucessfully added!")
                GetInfo()
                GUISetState(@SW_HIDE)
                StartScreen()
            Case Else
                ;;;;;;;
        EndSelect
    WEnd
    Exit
EndFunc   ;==>AddEntry

Func GetInfo() ;Writes the file that contains all the info on a contact
    $nme = GUICtrlRead($name)
    $do = GUICtrlRead($DOB)
    $p = GUICtrlRead($PH)
    $ag = GUICtrlRead($AGE)
    $ad = GUICtrlRead($ADD)
    If Not _FileCreate(@ScriptDir & "\"& $nme & ".txt") Then
        MsgBox(4096, "Error", " Error Creating/Resetting log.      error:" & @error)
    EndIf
    $open = FileOpen(@ScriptDir & "\" & $nme & ".txt", 2)
    If $open = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    FileWriteLine($open, $nme)
    FileWriteLine($open, $do)
    FileWriteLine($open, $p)
    FileWriteLine($open, $ag)
    FileWriteLine($open, $ad)
    FileClose($open)
EndFunc   ;==>GetInfo

Func SearchNameGUI() ;the search GUI
    #include <GUIConstants.au3>
    ; == GUI generated with Koda ==
    $Form1 = GUICreate("Search", 200, 40, 192, 125)
    $Input1 = GUICtrlCreateInput("Name", 8, 8, 113, 21, -1, $WS_EX_CLIENTEDGE)
    $Button1 = GUICtrlCreateButton("Search!", 128, 8, 65, 25)
    GUISetState(@SW_SHOW)
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button1
                GUISetState(@SW_HIDE)
                $Input = GUICtrlRead($Input1)
                If FileExists(@ScriptDir & "\" & $Input & ".txt") Then ;The bit that finds the file and possible problem
                    $Result = $Input & ".txt"
                    $file = FileOpen($Result, 0)
                    $info = FileReadLine($file, 1)
                    FileClose($file)
                    #include <GUIConstants.au3>
                    ; == GUI generated with Koda ==
                    $Form1 = GUICreate("Search Results", 197, 206, 192, 125) ; The results and the other place where the problem could be
                    $Group1 = GUICtrlCreateGroup("Results:", 8, 8, 185, 193)
                    $Edit1 = GUICtrlCreateLabel($info, 16, 24, 169, 169, -1)
                    GUICtrlCreateGroup("", -99, -99, 1, 1)
                    GUISetState(@SW_SHOW)
                    While 1
                        $msg = GUIGetMsg()
                        Select
                            Case $msg = $GUI_EVENT_CLOSE
                                ExitLoop
                            Case Else
                                ;;;;;;;
                        EndSelect
                    WEnd
                    Exit
                Else
                    MsgBox(4096, "ERROR!", "Entry Not Found")
                    StartScreen()
                EndIf
        EndSelect
    WEnd
    Exit
EndFunc   ;==>SearchNameGUI

So long,

Mega