Verzweifel an GuiCtrlSetData..

  • Hey Leute , ich weiß ,dass es Spät ist ^^ aber ich verzweifel hier an diesem Problem.

    Wenn ich das

    [autoit]

    GUICtrlSetData($Input1, $readfile2)

    [/autoit]

    Weglasse läuft das SCript zwar ,aber es wird nicht eingefügt X( Warum

    MfG <--

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.2.13.13 (beta)
    Author: myName

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Local $log1 = "Data.ini"

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    If FileExists(@ScriptDir & "\AutoStarter\" & $log1) Then
    Local $readfile = FileOpen(@ScriptDir & "\AutoStarter\" & $log1, 0)
    Local $readfile2 = FileRead($readfile)
    GUICtrlSetData($Input1, $readfile2)
    FileClose(@ScriptDir & "\AutoStarter\" & $log1)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If FileExists(@ScriptDir & "\AutoStarter\" & $log1) = 0 Then
    FileWrite(@ScriptDir & "\AutoStarter\" & $log1, "")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If Not FileExists(@ScriptDir & "\AutoStarter") Then
    DirCreate(@ScriptDir & "\AutoStarter")
    EndIf
    If Not FileExists(@ScriptDir & "\AutoStarter\Data.ini") Then
    DirCreate(@ScriptDir & "\AutoStarter")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Ordner Suche", 601, 119, 193, 153)
    $Button1 = GUICtrlCreateButton("Suche Dein Ordner", 248, 16, 113, 41, 0)
    $Input1 = GUICtrlCreateInput("", 24, 72, 561, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    $paste1 = GUICtrlRead($Input1, 1)
    FileOpen(@ScriptDir & "\AutoStarter\" & $log1, 2)
    Sleep(100)
    FileWrite(@ScriptDir & "\AutoStarter\" & $log1, $paste1)
    FileClose(@ScriptDir & "\AutoStarter\" & $log1)
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Case $Button1

    [/autoit] [autoit][/autoit] [autoit]

    $var = FileOpenDialog("Such dir deine Datei aus!", @DesktopDir, "Your File...(*.Exe)", 5)
    GUICtrlSetData($Input1, $var)

    [/autoit] [autoit][/autoit] [autoit]

    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
  • Moin,

    Du versuchst Daten an ein Steuerelement zu senden, das zu diesem Zeitpunkt noch gar nicht existiert ! ;)

    Nicht vergessen: dein Skript wird von oben nach unten abgearbeitet ...

    EDIT:
    Versuch's mal so ...

    Spoiler anzeigen
    [autoit]

    Global $readfile = ""
    Global $ASDir = @ScriptDir & "\AutoStarter\"

    [/autoit] [autoit][/autoit] [autoit]

    If FileExists($ASDir & $log1) Then
    $readfile = FileRead($ASDir & $log1)
    ;~ GUICtrlSetData($Input1, $readfile2)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ...

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $Form1 = GUICreate(...)
    $Button1 = GUICtrlCreateButton(...)
    $Input1 = GUICtrlCreateInput($readfile, 24, 72, 561, 21)
    GUISetState(...)

    [/autoit]


    Gruß
    Greenhorn


    4 Mal editiert, zuletzt von Greenhorn (30. Mai 2009 um 20:00)