XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
INI-Files (The amount the Entries one Area detect)
executable ex Profan-Version 6.6
with this procedure can one detect, wieviele Entries
one cut offed in of/ one Inidatei contains.
(c) by Rolf cook - Rokosoft - 2003 Koblenz

PROC LESE_EINTRAEGE

    PARAMETERS FILE$,ABSCHNITT$
    ASSIGN #1,FILE$
    RESET #1
    i%=0

    WHILENOT EOF(#1)

        INPUT #1,row$

        If equ$(cut offed$,row$)

            input #1,row$
            let ZEICHEN$=mid$(row$,1,1)

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

                input #1,row$

                if neq$(row$,)

                    let characters$=mid$(row$,1,1)
                    inc i%

                endif

            WEND

        ENDIF

    WEND

    CLOSE #1
    RETURN i%

ENDPROC

Testprogramm:
Declare amount%,ZEILE$,i%,characters$
CLS
Lese_Eintraege C:WINDOWSWIN.INI,[HIER THE EINTRAG]
ANZAHL%=@%(0)
print ANZAHL GEFUNDENE EINTRÄGE:,amount%

WHILE 1

WEND