Læs tekstfil, fjern duplicates, overskriv samme fil

(vedr. \"for lidt point\" .. relativt! blazer kunne godt finde på at kræve 20000 for det *lol*)

nejnej..det kunne jeg ikke..*fløjter*

Lige en lille note:

1. Ingen listboxe til at gemme temp info i!
2. Ingen STORE arrays (der kan være over 32000 entries i filerne)

Måske en \"swap fil\" ville være en idé .. dunno

Jeg tror, det er hurtigst / nemmest at lave det med et stort array - selvom det stadig kommer til at tage ret lang tid...

driis:> jeg KAN ikke lave det med et array. Lad os sige at hvert entry er 255 bytes langt så vil det kræve ~7 MB RAM at lave sådan et array ..

men jeg kan da prøve .. kan du lave det for mig ? Jeg gider ikke sidde og bryde mit lille trætte hovede med det nu ..

Har du en fil, jeg kan prøve med?

har lige sendt dig en ..

Dim Buffer As String
Dim Content(256000) As String
Dim I As Long
Dim X As Long

Sub Main()
Open \"D:\\_level3.txt\" For Input As 1

Do
    Line Input #1, Buffer
    For X = 0 To I
    If Content(X) = Buffer Then GoTo NextLine
    Next X
    Content(I) = Buffer
    I = I + 1
    \'DoEvents
NextLine:
Loop Until EOF(1)

I = I - 1
Close 1

Open \"D:\\_level3.txt\" For Output As 1
For X = 0 To I
    Print #1, Content(X)
Next X

MsgBox \"Finished\"

End Sub

Hvor lang tid må det tage? Ovenstående tager 34 sekunder at udføre (uden DoEvents). Jeg prøver lige at compile det, og se om det hjælper.

Det tager 20 sekunder at udføre efter compile. Jeg tror, det bliver en ret kompliceret affære at optimere yderligere.

Der er i øvrigt _ret_ mange dubletter, filen fylder ca. ½-delen bagefter.

ARRGG!! det var noget af et EL GRANDE array du bruger der ... men det gør nok ikke så meget .. jeg prøver

Og tjaa .. 34 sekunder .. det er vel OK for en fil på over 16000 linier
men hvor lang tid tager det med DoEvents ? (den er lidt essentiel når man vil bruge en progressbar)

men jeg prøver..

50 seks. med DoEvents, ukompileret.

Det kommer sikkert i nærheden af 30 sekunder efter compile.

Array\'et kan selvfølgelig sættes ned i størrelse, hvis man er nogenlunde sikker på størrelsen af filen. Men hvis der ellers er hukommelse nok, gør det intet, performance-mæssigt.

driis:> i know .. med arrayet .. jeg sidder lige og tester/kigger på det.

hmm ... hvor hurtig er din computer ? for her på min Cyrix 266\'er kører det LIDT langsomt ;-)

Mig: PIII 667, 256 MB RAM, Win2000

ARRG! Sygt .. så er det jo nok derfor det går så stærkt ..jeg kigger videre i morgen, jeg skal i seng nu .. ses

Nå .. ja, jeg kan godt se det er det hurtigste vi kommer op på. Det er også ligemeget det er et program der bare skal stå og \"lave noget\" .. der er ingen der skal bruge den computer det kommer til at køre på.