Script to find us and replace with gb

Can anyone supply me with a vbscript that can open a text file, search for US, replace it with GB ?
LVL 6
rimmenaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
prashanthdConnect With a Mentor Commented:
Hi

Try this code
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "US", "GB")

Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.