XProfan

Proc Datei_einlesen

    Declare Zeile$, Zaehler&
    @Sendmessage(Filmliste&,$0184,0,0)FilmListe löschen
    Reset #1
    Let Zaehler& = 1

    Whilenot @Eof(#1)

        Input #1, Zeile$
        Datentraeger$[Zaehler&] = @Substr$(Zeile$,1,";")
        Filmname$[Zaehler&]  = @Substr$(Zeile$,2,";")
        Beschreibung$[Zaehler&] = @Substr$(Zeile$,3,";")
        @Addstring(Filmliste&,Filmname$[Zaehler&])
        Inc Zaehler&

    Endwhile

    Close #1

Endproc

Proc Datei_schreiben

    Declare Zaehler&, Zeile$
    Rewrite #1
    Let Zaehler& = 1

    Whileloop @Getcount(Filmliste&)

        Ifnot Datentraeger$[Zaehler&] = ""

            Zeile$ = Datentraeger$[Zaehler&]+";"+Filmname$[Zaehler&]+";"+Beschreibung$[Zaehler&]
            Print #1,Zeile$

        Endif

        Inc Zaehler&

    Endwhile

    Close #1

Endproc

Proc Eintrag_loeschen

    Declare Zaehler&
    Let Zaehler& = 1

    Whileloop 1000

        If @Getstring$(Filmliste&,@Getcursel(Filmliste&)) = Filmname$[&Loop]

            Let Datentraeger$[&Loop] =""

        Endif

    Endwhile

    Datei_schreiben
    Datei_einlesen

'./../../function-references/XProfan/endproc/'>ENDPROC

declare ltd&,s$,i&
ltd&:=100// line to del
assign #1,"fromfile.csv"
reset #1
assign #2,"tempfile.csv"
rewrite #2
i&:=0

whilenot eof(#1)

    input #1,s$
    i&+
    case (i&<>ltd&) : print #2,s$

wend

close #1
close #2
copy "tempfile.csv" > "fromfile.csv"
assign #1,"tempfile.csv"
erase #ss=s2>1