IniReadSection, Array und For

  • Hi, leider komme ich bei meiner Konstruktion nicht alleine weiter. ?(

    Ich möchte eine Language-Datei mit IniReadSection einlesen und mittels Array und For-Schleife ausgeben.
    Die Datei wird richtig gelesen, wie mein Gegenversuch mit MsgBox ergab.

    Spoiler anzeigen
    [autoit]


    Func _ini_read_lang()
    ;read_options
    $actual_lang_name = IniRead($ini, "language", "current", "Deutsch.lng")
    $actual_lang = $lang_dir & "\" & $actual_lang_name
    ;ini_read_lang

    Global $languages = IniReadSection($actual_lang, "default_values")
    If @error Then MsgBox(4096, "", "Error occurred, probably no lng file.")

    Dim $Label[13] = ['', $fileMenu, $startItem, $exitItem, $OptMenu, $langItem, $helpItem, $aboutItem, $gbSources, $lbLocation, $gbFormat, $bnStart, $bnCancel]

    For $i = 1 To $languages[0][0] ;< funktioniert !!

    ;For $i = 1 To 12 ;< funktioniert nicht ??

    MsgBox(4096, "", "Key: " & $languages[$i][0] & @CRLF & "Value: " & $languages[$i][1]) ;< funktioniert !!

    ;GUICtrlSetData($Label[$i], $languages[$i][1]) ;< funktioniert nicht ??
    Next

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

    EndFunc ;==>_ini_read_lang

    [/autoit]


    Language.ini

    Spoiler anzeigen


    [default_values]
    $fileMenu_txt=Datei
    $startItem_txt=Sichern
    $exitItem_txt=Beenden
    $OptMenu_txt=Optionen
    $langItem_txt=Sprache
    $helpItem_txt=Info
    $aboutItem_txt=Über...
    $gbSources_txt=Quelle:
    $lbLocation_txt=Speicherort:
    $gbFormat_txt=Format:
    $bnStart_txt=Sichern
    $bnCancel_txt=Beenden


    Danke für mögliche Hilfe

  • Ich weiß nicht genau was du meinst, aber vielleicht hilft dir das.


    [autoit]

    Dim $string
    $ini = "language.ini"
    $Sektion = IniReadSection($ini,"default_values")

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

    For $i = 1 To $Sektion[0][0]
    $string &= $Sektion[$i][0]&" "&$Sektion[$i][1]&@crlf
    Next

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

    MsgBox(64,"Sektion",$string)

    [/autoit]