Hej

Jag skulle vilja skjuta in en ny rad med text längst upp i en befintligt textfil.
Någon som har ett bra tips?

Hejsan

Skulle kanske kasta in en richtextbox :

<code>
rtfText.Filename = "C:\Test.txt" ' öppna fil
rtfText.SelStart = 0 ' placera markören
rtfText.SelText = "Den nya raden" & vbCrLf ' skriv rad + radmatning
rtfText.SaveFile C:\Test.txt", rtfText ' skriv ner filen på disk igen
</code>

Enkel debug då också ;-)

/Johan

*Skapa en ny fil skriv den ny raden och därefter den gammla texten.
*Ta bort den gammla filen
*byt namn på nya filen.

Hmm

Hade glömt att jag ställt frågan.
Problemet jag hade var att textfilen var mycket stor, skapa en ny fil, lägga dit mitt data och att sedan lägga till texten från den andra filen tar för lång tid.
Jag har löst det på ett annat sätt, men richtext boxen låter ju ganska smart.Ska ruska liv i koden o testa.


Tack för tipset Johan.


/Tomas