Const Ini_Normal=0 
;Dies ist die Grundsektion; in normalen Inis steht hier nichts drin, da dies eigentlich gar keine Sektion ist. 
;Const SektionID=<einmalige ID>               
;eigene Sektionen kommen hier hin. 





Global NextWordTxt$ 

Function NextWord$(Txt$) 
   ;Diese Funktion gibt das nächste Wort im String zurück. 
   ;NextWordTxt$ beinhaltet den Rest des Strings 
   ;Als Trenner funktionieren 
   While Replace(Mid(Txt,1,1),Chr(9)," ")=" " 
      Txt=Mid(Txt,2,Len(Txt)-1) 
   Wend 
   Local ZW=Instr(Replace(Txt$,Chr(9)," ")," ") 
   If ZW=0 
      NextWordTxt$="" 
      Return Txt$ 
   Else 
      NextWordTxt$=Right(Txt$,Len(Txt$)-ZW+1) 
      Return Left(Txt$,ZW-1) 
   EndIf 
End Function 

Function HexToInt(HexS$);Umwandlung eines hexadezimalen Zahlenstrings in einen Integer 
   Local ZW 
   Local ZW2 
   Local Integer 
   HexS$=Upper(HexS$) 
   For ZW=1 To Len(HexS$) 
      Select Mid(HexS$,ZW,1) 
         Case "0" 
            Integer=Integer Shl 4 
            Integer=Integer Or $0 
         Case "1" 
            Integer=Integer Shl 4 
            Integer=Integer Or $1 
         Case "2" 
            Integer=Integer Shl 4 
            Integer=Integer Or $2 
         Case "3" 
            Integer=Integer Shl 4 
            Integer=Integer Or $3 
         Case "4" 
            Integer=Integer Shl 4 
            Integer=Integer Or $4 
         Case "5" 
            Integer=Integer Shl 4 
            Integer=Integer Or $5 
         Case "6" 
            Integer=Integer Shl 4 
            Integer=Integer Or $6 
         Case "7" 
            Integer=Integer Shl 4 
            Integer=Integer Or $7 
         Case "8" 
            Integer=Integer Shl 4 
            Integer=Integer Or $8 
         Case "9" 
            Integer=Integer Shl 4 
            Integer=Integer Or $9 
         Case "A" 
            Integer=Integer Shl 4 
            Integer=Integer Or $A 
         Case "B" 
            Integer=Integer Shl 4 
            Integer=Integer Or $B 
         Case "C" 
            Integer=Integer Shl 4 
            Integer=Integer Or $C 
         Case "D" 
            Integer=Integer Shl 4 
            Integer=Integer Or $D 
         Case "E" 
            Integer=Integer Shl 4 
            Integer=Integer Or $E 
         Case "F" 
            Integer=Integer Shl 4 
            Integer=Integer Or $F 
         Default 
            Return Integer 
      End Select 
   Next 
   Return Integer 
End Function 

Function BinToInt(BinS$);Umwandlung eines binären Zahlenstrings in einen Integer 
   Local ZW 
   Local Integer 
   For ZW=1 To Len(BinS$) 
      Select Mid(BinS$,ZW,1) 
         Case "0" 
            Integer=Integer Shl 1 
            Integer=Integer Or %0 
         Case "1" 
            Integer=Integer Shl 1 
            Integer=Integer Or %1 
         Default 
            Return Integer 
      End Select 
   Next 
   Return Integer 
End Function 

Function Int2%(val$);Umwandlung eines "Integerstrings" in einen Integer 
   Select Left(val$,1) 
      Case "$";Eine hexadezimale Zahl 
         Return HexToInt(Mid(val$,2,Len(val$)-1)) 
      Case "%";Eine Binärziffer 
         Return BinToInt(Mid(val$,2,Len(val$)-1)) 
      Default 
         Return Int(val$) 
   End Select 
End Function 



Function Load(FileStream,Strict=0) 
   ;Die eigentliche Ini-Ladefunktion 
   ;Bei Fehlern wird die Zeilennummer zurückgegeben, wenn der Parameter "Strict" "True" ist. 
   ;Sonst wird der Fehler einfach überlesen. 
;   Nicht eingerückte Kommentarzeilen, wie diese hier, kennzeichnen Teile, bei denen man etwas Eigeninitiative zeigen muss. :-) 
    
   Local LineText$,Word$ 
   Local Sektion 
   Local InBracket;1-"[",2-"=" 
   Local Brackettext$ 
   Local WertI%,WertF#,WertS$ 
    
   Local LineNr=0 
   ;-------------- 
;   Eigene Variablen 
   ;-------------- 
   Sektion=Ini_Normal 
   While Eof(FileStream)=0                  ;Zeilenweise durcharbeiten 
      InBracket=0 
      Brackettext="" 
      LineText=ReadLine(FileStream) 
      LineNr=LineNr+1 
       
      ;Zum vereinfachen des Lesens 
      ;Jeder wichtige "Begriff" wird jetzt durch Leerzeichen von den anderen getrennt. 
      LineText$=Replace(LineText,"["," [ ") 
      LineText$=Replace(LineText,"]"," ] ") 
      LineText$=Replace(LineText,Chr(34)," "+Chr(34)+" ") 
      LineText$=Replace(LineText,"="," = ") 
      LineText$=Replace(LineText,";"," ; ") 
       
      While Len(LineText)>0 
         Word$=NextWord(LineText$) 
         LineText$=NextWordTxt$ 
         Select InBracket 
            Case 1;[ 
               Select Word$ 
                  Case "]"      ;neue Sektion 
                     Select Brackettext$ 
;                        Case Lower("Sektionsname") 
;                           Sektion=SektionsID 
;                           ;Mache irgendwas weiteres 
                        Default   ;Sektion unbekannt? 
                           If Strict 
                              Return LineNr 
                           EndIf 
                     End Select 
                     Exit 
                  Case ";"      ;Hier ein Kommentar? 
                     If Strict 
                        Return LineNr 
                     EndIf 
                     Exit 
                  Default 
                     Brackettext$=Lower(Word$)   ;Name der neuen Sektion setzen. 
               End Select 
            Case 2;= 
               Select Word$      ;String aus Anführungszeichen extrahieren 
                  Case ";"      ;Hier ein Kommentar? 
                     If Strict 
                        Return LineNr 
                     EndIf 
                     Exit 
                  Case Chr(34)   ;ein Anführungszeichen->Jetzt wird der Wert ermittelt. 
                     WertI=Instr(LineText,Chr(34)) 
                     If WertI<2;kein abschließendes Anführungszeichen? 
                        If Strict 
                           Return LineNr 
                        EndIf 
                        Exit 
                     EndIf 
                     WertS=Mid(LineText,2,WertI-3) 
                  Default 
                     If Strict 
                        Return LineNr 
                     EndIf 
                     Exit 
               End Select 
                
               WertS$=Replace(WertS$," [ ","[");Vereinfachung rückgangig machen 
               WertS$=Replace(WertS$," ] ","]") 
               WertS$=Replace(WertS$," = ","=") 
               WertS$=Replace(WertS$," ; ",";") 
                
               WertS$=Replace(WertS$,""",Chr(34))   ;Diese Sonderzeichen schreibt man wie in HTML. 
               WertS$=Replace(WertS$,"&","&")      ;Bei der Speicherfunktion sollte man dies beachten! 
                
               ;Werte für andere Datentypen vorberechnen 
               ;WertS$ gibt den Wert ohne Änderung an. 
               ;WertI% hat ihn in einen Integer umgewandelt 
               ;WertF# hat ihn in eine Float umgewandelt 
               WertI%=Int2(WertS$)       
               WertF#=Float(WertS$) 
               If WertI<>0 And WertF=0 
                  WertF=WertI            ;Floatwerte werden auch bei binären und hexadezimalen Zahlen gesetzt 
               ElseIf WertI=0 And WertF<>0 
                  WertI=WertF            ;bei z.B. ".49" oder 1.e9 bekommt der Integer auch einen Wert 
               EndIf 
                
                
               Select Sektion               ;Sektion? 
                  Case Ini_Normal            ;keine Sektion 
                     If Strict 
                        Return LineNr 
                     EndIf 
;                  Case SektionsID 
;                     Select Brackettext$ 
;                        Case Lower("Variablenname") 
;                           ;Wertzuweisung 
;                     End Select 
                  Default 
                     If Strict 
                        Return LineNr 
                     EndIf 
               End Select 
               InBracket=0 
               Exit 
            Default 
               Select Word$ 
                  Case "["         ;Jetzt wird die Sektion gewechselt 
                     InBracket=1 
                     Brackettext$="" 
                  Case "]" 
                     If Strict 
                        Return LineNr 
                     EndIf 
                     Exit 
                  Case "="         ;Wertzuweisung 
                     InBracket=2 
                  Case Chr(34)      ;Ein " hier? 
                     If Strict 
                        Return LineNr 
                     EndIf 
                     Exit 
                  Case ";"         ;ein Kommentar 
                     Exit 
                  Default            ;Die Variable wird geändert 
                     Brackettext$=Lower(Word$) 
               End Select 
         End Select 
      Wend 
   Wend 
End Function

Select Brackettext$
  Case Lower("Schlüsselname")
    Globale1$=WertS$;oder
    Globale2%=WertI%;oder
    Globale3#=WertF#
End Select

Case 1;[
  Select Word$
    Case "]" ;neue Sektion
      Select Brackettext$

Case Lower("Sektionsname")
  Sektion=Ini_Sektionsname_hier