XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Dateien (die Anzahl der Einträge eines Abschnittes ermitteln)
Lauffähig ab Profan-Version 6.6
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:WINDOWSWIN.INI,[HIER DER EINTRAG]
ANZAHL%=@%(0)
print ANZAHL GEFUNDENE EINTRÄGE:,Anzahl%

WHILE 1

WEND