ret i en fil

Hej edge !
Er det en tekst-fil ?
Umiddelbart kan du ikke "Rette" i en fil med vbs, men du kan indlæse filen i en string, og så replace alle forekomster af et ord med et andet for derefter, at gemme filen igen (med overskrivning)

/Killer

hej killer
ja det er en text fil...okay hvordan gør jeg dette ?

Denne kode retter forekomsterne af mor med far, sletter filen, og danner en ny med det nye indhold.

Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForAppending = 8
dokument = "c:\tekstdokument.txt"
Set objTextFile = FSO.OpenTextFile (dokument, ForReading)
Do Until objTextFile.AtEndOfStream
stroriginaltekst = stroriginaltekst & objTextFile.Readline & vbcrlf
Loop
objTextFile.Close
fso.DeleteFile(dokument)
strefterrettelser = replace(Replace(stroriginaltekst,"mor","far"),"Mor","Far")
Set objTextFile = FSO.OpenTextFile (dokument, ForAppending,1)
objtextfile.WriteLine(strefterrettelser)
objTextFile.Close

/Killer

mange tak skal du have ^^ god weekend

Tak i lige måde :o)