VB script + change word in VB script on text file

Question

how to change word in text file by VB script (like sed in unix)

Answer 1

Following steps: (when tackling a computing problem, divide and conquer!)

1. Open the text file
2. Save file contents to string variables
3. Close the text file!
4. Search variable for the word
5. Replace the word(s)
6. Save the variable as a text file overwriting old one

With the help of Google, you should be able to search and discover how to achieve all of the above points.

Answer 2

You can use the FileSystemObject Object. Some notes:

Set fs = CreateObject("Scripting.FileSystemObject")
sf = "C:\Docs\In.txt"

Set f = fs.OpenTextFile(sf, 1) ''1=for reading
s = f.ReadAll
s = Replace(s, "Bird", "Cat")
f.Close
Set f = fs.OpenTextFile(sf, 2) ''2=ForWriting
f.Write s
f.Close