Function ParseINI$(FFile$,FSektion$,FValue$,FMode%)
   
   ;Standard-Vorgaben
   G1=0: G2=0: G3=0: G4=0
   G5=1: G6=1: G7=0: G8=0
   
   ;Filter-Anwenden
   FFile=Trim(FFile)
   FSektion=Trim(FSektion)
   FValue=Trim(FValue)
   
   ;Variablendeklarationen
   Local IFile$
   Local ILine$
   Local IValue$
   Local IReal%
   Local IMid%
   
   ;Variablendeklarationen
   Local ISammler$
   Local IZaehler%
   Local IEinzel$
   Local ILaenge%
   Local ICount%
   
   ;Wenn-Datei-Eingesendet
   If FileType(FFile)=1 Then
      IFile=ReadFile(FFile)
      
      ;Gesamte-Datei
      While Not Eof(IFile)
         ILine=ReadLine(IFile)
         ILine=Trim(ILine)
         
         ;Eine-SECTION-Gefunden
         If Instr(ILine,"[") Then
            If "["+FSektion+"]"=ILine Then
               IReal=1
            Else
               IReal=0
            End If
         End If
         
         ;SECTION-Einlesen
         If IReal=1 Then
            IMid=Instr(ILine,"=")
            If IMid>0 Then
               IValue=Trim(Left(ILine,IMid-1))
               If FValue=IValue Then
                  ILine=Mid(ILine,IMid+1,256)
                  ILine=Trim(ILine)
                  
                  ;Normal-Ausgabe
                  If FMode=0 Then
                     CloseFile(IFile)
                     Return ILine
                  End If
                  
                  ;Parser-Ausgabe
                  If FMode=1 Then
                     ILine=Replace(ILine," ","")
                     ILaenge=Len(ILine)
                     For ICount=1 To ILaenge
                        IEinzel=Mid(ILine,ICount,1)
                        ISammler=ISammler+IEinzel
                        
                        ;Komma-Trennzeichen-Suchen
                        If IEinzel="," Or ICount=ILaenge Then
                           IZaehler=IZaehler+1
                           
                           ;Globalen-Setzen
                           Select IZaehler
                              Case 1 G1=Replace(ISammler,",","")
                              Case 2 G2=Replace(ISammler,",","")
                              Case 3 G3=Replace(ISammler,",","")
                              Case 4 G4=Replace(ISammler,",","")
                              Case 5 G5=Replace(ISammler,",","")
                              Case 6 G6=Replace(ISammler,",","")
                              Case 7 G7=Replace(ISammler,",","")
                              Case 8 G8=Replace(ISammler,",","")
                           End Select
                           ISammler=""
                        End If
                     Next
                  End If
               End If
            End If
         End If
      Wend
      
      ;Datei-Schliessen
      CloseFile(IFile)
   End If
End Function