XProfan

Declare List_Entry$, Liste1&, Liste$, Z%, S_Time!,F_Time!

Proc Schnell

    print "Daten in ListboxListe ''normal'' einlesen"
    Liste1& = Create("List",0)'Schnelle Version
    Assign #1, Liste$
    Reset #1

    WhileNot List_Entry$  = "[Daten]"

        Input #1, List_Entry$

    EndWhile

    List_Entry$ = ""
    S_Time! = !now
    print "Start:",dt("DateTimeStr","hh:nn:zz" ,!now)," (",str$(S_Time!),")"

    WhileNot EOF(#1)

        Input #1, List_Entry$

        IfNot Trim$(List_Entry$) = ""

            inc Z%
            AddString(Liste1&,List_Entry$ + "|" + "bereits vohanden...Datei : ")
            locate 3,0
            'print str$(Z%)

        EndIF

    EndWhile

    Close #1
    F_Time! = !now
    print GetString$(liste1&,0)
    print "FERTIG:",dt("DateTimeStr","hh:nn:zz" ,!now)," (",str$(F_Time!),")"
    Print "DAUER:",dt("getTime",1,(F_Time! - S_Time!))+" Sekunden"

EndProc

Proc ListeAusSpeicher

    Liste1& = Create("Grid",2,0)'Langsame Version
    Clear Z%
    Declare Bereich#,In$,X&
    DECLARE Text$[]
    Var Hiergehtslos& = 0
    Dim Bereich#, FileSize(Liste$)
    BlockRead(Liste$, Bereich#, 0, FileSize(Liste$))
    Hiergehtslos& = MemPos(Bereich#,0,"[Daten]")+9'(Länge von String[Daten]+chr$(10)+chr$(13)
    print "*************************************************"
    Print "Daten aus Bereichsvariable in dynamisches Array"
    S_Time! = !now
    print "Start:",dt("DateTimeStr","hh:nn:zz" ,!now)," (",str$(S_Time!),")"

    repeat

        Inc Z%
        In$ = Char$(Bereich#,Hiergehtslos&+X&,32)
        Text$[Z%] = In$+ "|" + "bereits vohanden...Datei : "
        Add X&,34

    Until X& = SizeOf(Bereich#)- Hiergehtslos&

    Dispose Bereich#
    F_Time! = !now
    Print Text$[1]
    print "FERTIG:",dt("DateTimeStr","hh:nn:zzz" ,!now)," (",str$(F_Time!),")"
    Print "DAUER:",dt("getTime",1,(F_Time! - S_Time!))+" Sekunden"
    print "*************************************************"
    Print
    print "*************************************************"
    Dim Bereich#, FileSize(Liste$)
    BlockRead(Liste$, Bereich#, 0, FileSize(Liste$))
    Print "Direkt in Datei suchen"
    S_Time! = !now
    print "Start:",dt("DateTimeStr","hh:nn:zzz" ,!now)," (",str$(S_Time!),")"

    if MemPos(Bereich#,0,"9a421a62a95955702f589e6f4afac771")

        Print Char$(Bereich#,MemPos(Bereich#,0,"9a421a62a95955702f589e6f4afac771"),32)+"|"+"bereits vohanden...Datei : "

    Endif

    F_Time! = !now
    print "FERTIG:",dt("DateTimeStr","hh:nn:zzz" ,!now)," (",str$(F_Time!),")"
    Print "DAUER:",dt("getTime",1,(F_Time! - S_Time!))+" Sekunden"
    Dispose Bereich#

Endproc

CLS
Liste$ = "pics aktuell.dfl"

IfNot Liste$ = ""

    Print "*************************************************"
    Schnell
    Print "*************************************************"
    Print
    ListeAusSpeicher
    Print "*************************************************"

Else

    Print "Keine Liste geladen"

EndIf

Waitinput
Fin