XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
INI-Dateien (Einträge löschen)
Lauffähig ab Profan-Version 5.0

PROC INISECDEL

    Parameters delit$,inidatei$
    Assign #1,inidatei$
    Assign #2,DUMMY.TXT
    RESET #1
    REWRITE #2

    Whilenot eof(#1)

        input #1,zeile$
        Print .;

        if equ$(zeile$,delit$)

            whilenot or(equ$(z$,[),eof(#1))

                input #1,zeile$
                z$=mid$(zeile$,1,1)
                case equ$(z$,[):print #2,zeile$
                Print .;

            wend

        else

            Print #2,zeile$
            Print .;

        endif

    Wend

    Close #1
    Close #2
    copy Dummy.txt > inidatei$
    Assign #1,Dummy.txt
    Erase #1

Endproc

declare eintrag$,wahl$,zeile$,z$,inidatei$
Cls
let inidatei$=C:WINDOWSTEST.INI
let wahl$=Schneider dies wäre z.B. der gewählte Abschnitt
let eintrag$=[;wahl$;] Vorbereiten
INISECDEL eintrag$,inidatei$ Löschen
Print  Fertig!
waitinput