Array/Variable funzt nicht

  • Beim Klick auf den Namen soll "Func _Kunde()" ausgeführt werden, für jeden Eintrag soll die Kundennummer übertragen werden, geht aber nicht. Wer weis einen Rat???

    [autoit]


    #RequireAdmin
    #NoTrayIcon
    ; Variablen
    Global $lw_stick = StringLeft(@ScriptDir, 3),$i,$kdnr,$kdnur[10],$daten[10]
    $inifile = $lw_stick & "kunden.ini"

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

    #include <GUIConstants.au3>
    #include <Array.au3>
    Opt("GUIOnEventMode", 1)
    GUICreate("Kundenliste",400,500)
    HotKeySet("{ESC}", "MeinExit")
    GUISetOnEvent($GUI_EVENT_CLOSE, "MeinExit")

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

    $daten = IniReadSectionNames($inifile)

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

    For $i = 1 To $daten[0]
    $kunde = IniReadSection($inifile, $daten[$i])
    $kdnr = $kunde[2][1]
    $name = $kunde[1][1]
    $kdnur[$i] = $daten[$i]
    GuiCtrlCreateLabel($daten[$i], 15, $i*22, 50, 20)
    GuiCtrlCreateLabel($name, 70, $i*22, 220, 20)
    GUICtrlSetOnEvent(-1, '_Kunde')
    ; $kdnr[$i] = GUICtrlCreateButton("Starten", 310, $i*22, 80, 20)
    Next

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

    GuiSetState()

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

    ; Funktionen
    While 1
    Sleep(100)
    WEnd

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

    Func MeinExit()
    Exit
    EndFunc

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

    Func _Kunde()
    MsgBox(64,$kdnr,$kdnur[$i])
    ; Run(@COMSPEC & " /c Start " & $kdnr[$i])
    EndFunc

    [/autoit]


    Die ini-Datei:
    [1025]
    Kunde = Firma 1
    Nummer = 1025
    [9001]
    Kunde = Firma 2
    Nummer = 9001
    [1040]
    Kunde = Firma 3
    Nummer = 1040

  • Die Zeile Nummer kannst du aus der Ini-Datei streichen. So heißt ja schon die Sektion.

    Spoiler anzeigen
    [autoit]

    #RequireAdmin
    #NoTrayIcon

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

    #include <GUIConstantsEx.au3>
    Opt("GUIOnEventMode", 1)

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

    ; Variablen
    Global $lw_stick = StringLeft(@ScriptDir, 3), $i, $kdnr, $kdnur[10], $daten[10]
    $inifile = $lw_stick & "kunden.ini"

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

    GUICreate("Kundenliste", 400, 500)
    HotKeySet("{ESC}", "MeinExit")
    GUISetOnEvent($GUI_EVENT_CLOSE, "MeinExit")

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

    Global $daten = IniReadSectionNames($inifile)

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

    For $i = 1 To $daten[0]
    GUICtrlCreateLabel($daten[$i], 15, $i * 22, 50, 20)
    GUICtrlCreateLabel(IniRead($inifile, $daten[$i], 'Kunde', 'Firma nicht bekannt'), 70, $i * 22, 220, 20)
    GUICtrlSetOnEvent(-1, '_Kunde')
    Next

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

    GUISetState()

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

    ; Funktionen
    While 1
    Sleep(10000)
    WEnd

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

    Func MeinExit()
    Exit
    EndFunc ;==>MeinExit

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

    Func _Kunde()
    For $i = 0 To $daten[0]
    If IniRead($inifile, $daten[$i], 'Kunde', 'Firma nicht bekannt') = GUICtrlRead(@GUI_CtrlId) Then
    MsgBox(64, $daten[$i], GUICtrlRead(@GUI_CtrlId))
    ExitLoop
    EndIf
    Next
    ; Run(@COMSPEC & " /c Start " & $kdnr[$i])
    EndFunc ;==>_Kunde

    [/autoit]
  • Hey -funkey
    hast du eventuell noch eine Idee wie man nach der Kundennummer und/oder Namen sortieren kann???