Challenge with Replace Method

[incron]

Hey Guys

Im trying to replace some text in a file. But when I use the Replace method it deletes a large portion of the file even though Im not using the Start argument here is the code

dim fso, gf, f, rtf, gtf

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fspenTextFile("strngtext.txt", 1)
rtf = f.ReadAll
f.Close


Set gf = fspenTextFile("MultiUseDev.txt", 1)
gtf = gf.ReadLine
gf.Close


On Error Resume Next

Set NewRepos = ""
dstrContents = Replace(gtf,rtf,NewRepos)


Set xf = fspenTextFile("MultiUseDev.txt", 2)
xf.Write dstrContents
xf.Close

 

[tsuji]

[0] You use on error resume next just to avoid seeing your wrong line of setting NewRepos to empty string? Why not better spend your time on the basic saving you time in the long run?
[tt]
[red]'[/red]On Error Resume Next
[red]'[/red]Set NewRepos = ""
NewRepos=""
[/tt]
[1] Then which file and what to replace what? MultiUseDev.txt you read one line (ReadLine) and save to it overwritting. Those lines from the 2nd onward ("a large portion") would be lost, that's logic. If you want eliminate the portion of it coinciding with stringtext.txt, you read it all.
[tt]
Set gf = fspenTextFile("MultiUseDev.txt", 1)
gtf = gf.Read[red]All[/red]
gf.Close

NewRepos = ""
dstrContents = Replace(gtf,rtf,NewRepos)
[/tt]

 

[incron]

tsuji - I put the wrong code up Sorry, I did use the Read All method. The results were the same it replaced the text but deleted a large portion of text prior to the text that was replaced.

 

[jges]

Can you post the actual code? Or did you get it fixed?