Jeg forsøger at lave et program der kan vende en tekstfil om linje for linje. Jeg har styr på at åbne filen og generere en ny fil til output, men jeg kan simpelthen ikke læse den gamle fil fra bunden og op og fylde indholdet i den nye oppe fra og ned... Jeg ville gå filen igennem som et Recordset og har forsøgt med:
Set fso = CreateObject("Scripting.FileSystemObject") Set Fil = fso.OpenTextFile("c:\test.txt") Set NyFil = fso.CreateTextFile("c:\testOmv.txt")
Fil.MoveLast '<<< Her fejler programmet Do While Not Fil.BOF NyFil.Writeline Fil.Readline Fil.MovePrevious Loop Fil.Close NyFil.Close
Set Fil = Nothing Set NyFil = Nothing Set fso = Nothing
lidt anderledes måske... 1) åben den originale fil, og brug en linje med ReadAll - så har du hele filen i en tekst-variabel 2) søg fra sidste position (=Len på variablen) baglæns (InStrRev) til VbCrLf klip den tekst (Mid), og skiv linjen i ny fil .. fortsæt fra den nye position, søg baglæns til VbCrLf klip den tekst, og skiv linjen i ny fil .. til sidst er der ikke en VbCrLf, så når du ikke finder flere, så skriv til slut en linje fra sidste position og til start.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
