IniWrite Problem

  • Hey Com,

    Ich habe folgenden simplen Script geschrieben:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include
    #include
    #include
    #include
    #include
    #Region ### START Koda GUI section ### Form=C:\Users\Jonas\Downloads\koda_1.7.2.0\Forms\Anlegen.kxf
    $Form1 = GUICreate("Bookmarkliste anlegen", 503, 189, 192, 146)
    $linkinput = GUICtrlCreateInput("", 112, 36, 361, 21)
    $laber123 = GUICtrlCreateLabel("Link:", 75, 36, 31, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label1 = GUICtrlCreateLabel("Titel:", 73, 60, 33, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("Beschreibung:", 16, 84, 90, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("Tags:", 67, 108, 39, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $titelinput = GUICtrlCreateInput("", 112, 60, 361, 21)
    $beschreibunginput = GUICtrlCreateInput("", 112, 84, 361, 21)
    $tagsinput = GUICtrlCreateInput("", 112, 108, 361, 21)
    $naechster = GUICtrlCreateButton("N?chsten Bookmark erstellen", 248, 144, 163, 25, $WS_GROUP)
    $Fertig = GUICtrlCreateButton("Fertig", 416, 144, 75, 25, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Bookmark Nr.:", 16, 4, 104, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $bookmarknummer = GUICtrlCreateLabel("1", 120, 5, 13, 16)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0xA0A0A4)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $nummer = 1
    $listdir = FileSaveDialog("Speicherort ausw?hlen", @ScriptDir & "\Bookmarkinis", "Bookmarklisten (*.ini)")

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

    While 1
    $Msg = GUIGetMsg()
    Switch $Msg
    Case $GUI_EVENT_CLOSE

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

    EndSwitch

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

    Select
    Case $Msg = $naechster
    GUICtrlSetData($linkinput, "")
    GUICtrlSetData($titelinput, "")
    GUICtrlSetData($beschreibunginput, "")
    GUICtrlSetData($tagsinput, "")

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

    $nummer += 1
    GUICtrlSetData($bookmarknummer, $nummer)
    IniWrite($listdir, "Link", $nummer, $linkinput)
    IniWrite($listdir, "Titel", $nummer, $titelinput)
    IniWrite($listdir, "Beschreibung", $nummer, $beschreibunginput)
    IniWrite($listdir, "Tags", $nummer, $tagsinput)

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

    Case $Msg = $Fertig

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

    IniWrite($listdir, "Total", "1", $nummer)
    MsgBox(64, "Fertig !", " Es wurden erfolgreich " & $nummer & " Bookmarks in einer Liste erstellt !")
    $nummer = 1
    IniWrite($listdir, "Link", $nummer, $linkinput)
    IniWrite($listdir, "Titel", $nummer, $titelinput)
    IniWrite($listdir, "Beschreibung", $nummer, $beschreibunginput)
    IniWrite($listdir, "Tags", $nummer, $tagsinput)
    GUIDelete()
    ExitLoop
    EndSelect

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

    WEnd

    [/autoit]

    Dieser Script laesst den User Bookmarks erstellen und speichert diese in einer Ini datei. Mehr nicht. Das Problem ist es speichert die Eingaben des Users garnicht richtig ab. Stattdessen speichert es irendwelche Zahlen ?(

    Ich finde einfach meinen Fehler nicht. Koennte mir einer behilflich sein ?

    lG

    Clonker

    Einmal editiert, zuletzt von clonker (22. September 2010 um 04:23)

  • Hey Clonker.

    [autoit]

    $linkinput = GUICtrlCreateInput("", 112, 36, 361, 21)
    IniWrite($listdir, "Link", $nummer, $linkinput)

    [/autoit]


    Du speicherst jeweils die Identifkationsnummer des Steuerelements ab.

    So sollte es funktionieren.

    [autoit]

    IniWrite($listdir, "Link", $nummer, GUICtrlRead($linkinput))

    [/autoit]