[RESOLVED] Inputbox update GUI after file selection

[jfcby]

Hi,

How can I get my script to update the GUI after I select a file using a input box and saving the results to an ini file.

My ini file:

CODE

[Dirs]

DirAppDataCom=C:\Documents and Settings\All Users\Application Data

DirAppDataDir=C:\Documents and Settings\jfc14\Application Data

DirComFiles=C:\Program Files\Common Files

DirDsktpCom=C:\Documents and Settings\All Users\Desktop

DirDsktp=C:\Documents and Settings\jfc14\Desktop

DirDocCom=C:\Documents and Settings\All Users\Documents

DirMyDoc=C:\Documents and Settings\jfc14\My Documents

DirProFiles=C:\Program Files

DirProCom=C:\Documents and Settings\All Users\Start Menu\Programs

DirPro=C:\Documents and Settings\jfc14\Start Menu\Programs

DirSys=C:\WINDOWS\system32

ScriptFullPath=C:\Program Files\AutoIT3\My Projects\InputBox.au3

DirWin=C:\WINDOWS

DirWrk=C:\Program Files\AutoIT3\My Projects

CompName=OM-587485

[default]

setgdir=

setgpath=

setgfull=C:\Program Files\AutoIT3\My Projects\InputBox2.txt

setgexcelcap=InputBox2.txt - Notepad2

My Autoit code:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Global $sIni, $Dirs, $GUI

Global $DefsetgFull, $DefSetgDir, $DefSetgPath, $DefSetgExcelCap
Global $sFilePath1, $sFilePath2, $sFile
Global $array1

;Set ini file
$sIni = @ScriptDir & "\InputBox.ini"
_sIni()

;Read ini file
_rIni()

$GUI = GUICreate("InputBox", 350, 225) ; Create dialog box displayed center

; Main Label Title
$lbl_txt1 = GUICtrlCreateLabel("InputBox example test!", 5, 10, 345, 15, $SS_CENTER)

; Open File Label
$lbl_txt2 = GUICtrlCreateLabel("Select or Open File", 5, 75, 215, 25)

; Inputbox
$ipt_1 = GuiCtrlCreateInput($DefSetgFull, 5, 100, 330, 16, -1)

; Buttons
$btn_Select = GUICtrlCreateButton("Select", 185, 125, 75, 25)
$btn_Open = GUICtrlCreateButton("Open", 261, 125, 75, 25)

GUISetState() ; display dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $btn_Select
            ;Select File            
            $sFile = FileOpenDialog("Select file:", $DefSetgFull, "All Files (*.*)")
            If @error Then ContinueLoop
             GUICtrlSetData($ipt_1, $sFile) ; GUI will be updated at next iteration
             IniWrite($sIni, "default", "setgfull", $sFile)
             
             ;Read ini file
             _rINI()
             MsgBox(0, "", "Select: " & $DefSetgFull)
            
            ;Set selected file caption title
            $array1 = StringSplit($sFile, '\', 1)
            IniWrite($sIni, "default", "setgexcelcap", $array1[UBound($array1) -1] & " - Notepad2")             
            
        Case $msg = $btn_Open
            ;Open File
                MsgBox(1, "", StringLen($DefSetgExcelCap) & " -- " & $DefSetgExcelCap)
            If Not WinExists($DefSetgExcelCap) Then                 
                ;=MsgBox(1, "", $DefSetgExcelCap & " < Caption ---- Path > " & $sFilePath1)
                ;=MsgBox(1, "", $DefSetgFull & " < Default Full Path")
                MsgBox(0, "", "Open: " & $DefSetgFull)                  
                ShellExecute($DefSetgFull)
            EndIf
        EndSelect
    WEnd
        
    Func _exit()
        Exit
    EndFunc

    Func _sIni()
        ;Settings for ini file
        
        $Dirs = "DirAppDataCom=" & @AppDataCommonDir & @LF & _
                "DirAppDataDir=" & @AppDataDir & @LF & _
                "DirComFiles=" & @CommonFilesDir & @LF & _ 
                "DirDsktpCom=" & @DesktopCommonDir & @LF & _
                "DirDsktp=" & @DesktopDir & @LF & _
                "DirDocCom=" & @DocumentsCommonDir & @LF & _
                "DirMyDoc=" & @MyDocumentsDir & @LF & _
                "DirProFiles=" & @ProgramFilesDir & @LF & _
                "DirProCom=" & @ProgramsCommonDir & @LF & _
                "DirPro=" & @ProgramsDir & @LF &  _
                "DirSys=" & @SystemDir & @LF & _
                "ScriptFullPath=" & @ScriptFullPath & @LF & _
                "DirWin=" & @WindowsDir & @LF & _
                "DirWrk=" & @WorkingDir & @LF & _
                "CompName=" & @ComputerName & @LF 
        IniWriteSection($sIni, "Dirs", $Dirs)       
    EndFunc     ;iniFile
    
    Func _rIni()
        ;Read ini file
        $DefSetgDir = IniRead($sIni, "Default", "setgdir", "NotFound")
        $DefSetgPath = IniRead($sIni, "Default", "setgpath", "NotFound")
        $DefSetgFull = IniRead($sIni, "Default", "setgfull", "NotFound")
        $DefSetgExcelCap = IniRead($sIni, "Default", "setgexcelcap", "NotFound")        
    EndFunc

Thank you for yur help,

jfcby

Edited May 28, 2009 by jfcby

[GEOSoft]

See GUICtrlSetData() in the help file.

GUICtrlSetData($ipt_1, $sFile)

[jfcby]

See GUICtrlSetData() in the help file.

GUICtrlSetData($ipt_1, $sFile)

GEOSoft,

Thanks for your reply.

1. Do I have

GUICtrlSetData($ipt_1, $sFile)

in the correct place.

1a. If not where should it be in the code?

2. I want only one instance of a file open. After I select a file I'm using WinExist to check if the file is open. Now, even if the file is open it opens another file.

How can I get the code to check if a file is open and open it if not found?

Thank you for yur help,

jfcby

[jfcby]

This is the completed working code:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Global $sIni, $Dirs, $GUI

Global $DefsetgFull, $DefSetgDir, $DefSetgPath, $DefSetgExcelCap
Global $sFilePath1, $sFilePath2, $sFile
Global $array1

;Set ini file
$sIni = @ScriptDir & "\InputBox.ini"
_sIni()

;Read ini file
_rIni()

$GUI = GUICreate("InputBox", 350, 225) ; Create dialog box displayed center

; Main Label Title
$lbl_txt1 = GUICtrlCreateLabel("InputBox example test!", 5, 10, 345, 15, $SS_CENTER)

; Open File Label
$lbl_txt2 = GUICtrlCreateLabel("Select or Open File", 5, 75, 215, 25)

; Inputbox
$ipt_1 = GuiCtrlCreateInput($DefSetgFull, 5, 100, 330, 16, -1)

; Buttons
$btn_Select = GUICtrlCreateButton("Select", 185, 125, 75, 25)
$btn_Open = GUICtrlCreateButton("Open", 261, 125, 75, 25)

GUISetState() ; display dialog box

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $btn_Select
            ;Select File            
            $sFile = FileOpenDialog("Select file:", $DefSetgFull, "All Files (*.*)")
            If @error Then ContinueLoop
             GUICtrlSetData($ipt_1, $sFile) ; GUI will be updated at next iteration
             IniWrite($sIni, "default", "setgfull", $sFile)
             
             ;Set selected file caption title
             $array1 = StringSplit($sFile, '\', 1)
             IniWrite($sIni, "default", "setgexcelcap", $array1[UBound($array1) -1] & " - Notepad2")    
             
             ;Read ini file
             _rINI()
             MsgBox(0, "", "Select: " & $DefSetgFull)
            
                        
            
        Case $msg = $btn_Open
            ;Open File
                MsgBox(1, "", StringLen($DefSetgExcelCap) & " -- " & $DefSetgExcelCap)
            If Not WinExists($DefSetgExcelCap) Then                 
                ;=MsgBox(1, "", $DefSetgExcelCap & " < Caption ---- Path > " & $sFilePath1)
                ;=MsgBox(1, "", $DefSetgFull & " < Default Full Path")
                MsgBox(0, "", "Open: " & $DefSetgFull)                  
                ShellExecute($DefSetgFull)
            EndIf
        EndSelect
    WEnd
        
    Func _exit()
        Exit
    EndFunc

    Func _sIni()
        ;Settings for ini file
        
        $Dirs = "DirAppDataCom=" & @AppDataCommonDir & @LF & _
                "DirAppDataDir=" & @AppDataDir & @LF & _
                "DirComFiles=" & @CommonFilesDir & @LF & _ 
                "DirDsktpCom=" & @DesktopCommonDir & @LF & _
                "DirDsktp=" & @DesktopDir & @LF & _
                "DirDocCom=" & @DocumentsCommonDir & @LF & _
                "DirMyDoc=" & @MyDocumentsDir & @LF & _
                "DirProFiles=" & @ProgramFilesDir & @LF & _
                "DirProCom=" & @ProgramsCommonDir & @LF & _
                "DirPro=" & @ProgramsDir & @LF &  _
                "DirSys=" & @SystemDir & @LF & _
                "ScriptFullPath=" & @ScriptFullPath & @LF & _
                "DirWin=" & @WindowsDir & @LF & _
                "DirWrk=" & @WorkingDir & @LF & _
                "CompName=" & @ComputerName & @LF 
        IniWriteSection($sIni, "Dirs", $Dirs)       
    EndFunc     ;iniFile
    
    Func _rIni()
        ;Read ini file
        $DefSetgDir = IniRead($sIni, "Default", "setgdir", "NotFound")
        $DefSetgPath = IniRead($sIni, "Default", "setgpath", "NotFound")
        $DefSetgFull = IniRead($sIni, "Default", "setgfull", "NotFound")
        $DefSetgExcelCap = IniRead($sIni, "Default", "setgexcelcap", "NotFound")        
    EndFunc

jfcby