XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
INI-Fichiers (qui Anzahl qui Einträge eines Abschnittes ermitteln)
Lauffähig ab Profan-Version 6.6
avec cette Procédure peux on ermitteln, wieviele Einträge
un paragraphe dans einer Inidatei contient.
(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,la ligne$

        Si equ$(paragraphe$,la ligne$)

            input #1,la ligne$
            let ZEICHEN$=mid$(la ligne$,1,1)

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

                input #1,la ligne$

                si neq$(la ligne$,)

                    let marque$=mid$(la ligne$,1,1)
                    inc i%

                endif

            WEND

        ENDIF

    WEND

    CLOSE #1
    RETOUR i%

ENDPROC

Testprogramm:
Déclarer Anzahl%,ZEILE$,i%,marque$
CLS
Lese_Eintraege C:WINDOWSWIN.INI,[ICI DER EINTRAG]
ANZAHL%=@%(0)
imprimer ANZAHL GEFUNDENE EINTRÄGE:,Anzahl%

WHILE 1

WEND