XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
INI-Archivos (el Anzahl el Einträge uno Abschnittes ermitteln)
Lauffähig de Profano-Versión 6.6
Mit dieser Procedimiento kann uno ermitteln, wieviele Einträge
una Abschnitt en uno 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,Línea$
            let ZEICHEN$=mid$(zeile$,1,1)

            WHILENOT or(EQU$(ZEICHEN$,[),eof(#1))

                input #1,zeile$

                if neq$(zeile$,)

                    let Signo$=mid$(zeile$,1,1)
                    inc i%

                endif

            WEND

        ENDIF

    WEND

    CLOSE #1
    RETORNO i%

ENDPROC

Testprogramm:
Declarar Anzahl%,ZEILE$,i%,zeichen$
CLS
Lese_Eintraege C:WINDOWSWIN.INI,[HIER DER EINTRAG]
ANZAHL%=@%(0)
imprimir ANZAHL GEFUNDENE EINTRÄGE:,Anzahl%

WHILE 1

WEND