INI2VARIABLE
-
- [ offen ]
-
dust997 -
12. August 2009 um 21:42 -
Geschlossen -
Erledigt
-
-
hi...
Du hast dir die Antwort doch schon selbst gegeben...
guck mal nach IniReadSection
MFG chris

-
Mit IniReadSection liest du die Ini- Datei ein, in einer ForNext-Schleife setzt du die Variablen mit Assign.
-
Die INI kriegt bloß immer neue variablen. @Deepred wäre cool wenn du mir ein Beispielcode gibst. Hab die For next schleife nie kapiert xD
Hab das zurzeit ganz simpel und beknackt gelöst. Das problem maximum 10 variablen.
Code
Alles anzeigenWhile 1 If $nserien = 0 Then ExitLoop Else $2split = $iniparse[2][0] $split = StringSplit($2split, ";") $n1 = $split[1] $s1 = $split[2] $e1 = $split[3] $p1 = $split[4] $u1 = $iniparse[2][1] If $nserien = 1 Then ExitLoop EndIf $2split = $iniparse[3][0] $split = StringSplit($2split, ";") $n2 = $split[1] $s2 = $split[2] $e2 = $split[3] $p2 = $split[4] $u2 = $iniparse[3][1] If $nserien = 2 Then ExitLoop EndIf $2split = $iniparse[4][0] $split = StringSplit($2split, ";") $n3 = $split[1] $s3 = $split[2] $e3 = $split[3] $p3 = $split[4] $u3 = $iniparse[4][1] If $nserien = 3 Then ExitLoop EndIf $2split = $iniparse[5][0] $split = StringSplit($2split, ";") $n4 = $split[1] $s4 = $split[2] $e4 = $split[3] $p4 = $split[4] $u4 = $iniparse[5][1] If $nserien = 4 Then ExitLoop EndIf $2split = $iniparse[6][0] $split = StringSplit($2split, ";") $n5 = $split[1] $s5 = $split[2] $e5 = $split[3] $p5 = $split[4] $u5 = $iniparse[6][1] If $nserien = 5 Then ExitLoop EndIf $2split = $iniparse[7][0] $split = StringSplit($2split, ";") $n6 = $split[1] $s6 = $split[2] $e6 = $split[3] $p6 = $split[4] $u6 = $iniparse[7][1] If $nserien = 6 Then ExitLoop EndIf $2split = $iniparse[8][0] $split = StringSplit($2split, ";") $n7 = $split[1] $s7 = $split[2] $e7 = $split[3] $p7 = $split[4] $u7 = $iniparse[8][1] If $nserien = 7 Then ExitLoop EndIf $2split = $iniparse[9][0] $split = StringSplit($2split, ";") $n8 = $split[1] $s8 = $split[2] $e8 = $split[3] $p8 = $split[4] $u8 = $iniparse[9][1] If $nserien = 8 Then ExitLoop EndIf $2split = $iniparse[10][0] $split = StringSplit($2split, ";") $n9 = $split[1] $s9 = $split[2] $e9 = $split[3] $p9 = $split[4] $u9 = $iniparse[10][1] If $nserien = 9 Then ExitLoop EndIf $2split = $iniparse[11][0] $split = StringSplit($2split, ";") $n10 = $split[1] $s10 = $split[2] $e10 = $split[3] $p10 = $split[4] $u10 = $iniparse[11][1] If $nserien = 10 Then ExitLoop EndIf EndIf WEnd -
Du kannst das auch viiiiiel kürzer machen:
-
Ich bin gerade selber drauf gekommen als ich gemerkt habe, dass in [0][0] die anzahl der reihen angegeben wird xD
Vielen dank^^