'Mit dieser Prozedur kann man ermitteln, wieviele Einträge
'ein Abschnitt in einer Inidatei enthält.
'(c) by Rolf Koch - Rokosoft - 2003 Koblenz


PROC LESE_EINTRAEGE
PARAMETERS DATEI$,ABSCHNITT$
ASSIGN #1,DATEI$
RESET #1
i%=0
WHILENOT EOF(#1)
  INPUT #1,zeile$
  If equ$(Abschnitt$,zeile$)
     input #1,Zeile$
     let ZEICHEN$=mid$(zeile$,1,1)
     WHILENOT or(EQU$(ZEICHEN$,"["),eof(#1))
       input #1,zeile$
       if neq$(zeile$,"")
          let Zeichen$=mid$(zeile$,1,1)
          inc i%
       endif 
     WEND
  ENDIF
WEND
CLOSE #1
RETURN i%
ENDPROC


'Testprogramm:
Declare Anzahl%,ZEILE$,i%,zeichen$
CLS
Lese_Eintraege "C:\WINDOWS\WIN.INI","[HIER DER EINTRAG]"
ANZAHL%=@%(0)
print "ANZAHL GEFUNDENE EINTRÄGE:",Anzahl%
WHILE 1
WEND