How To Find data in text file and replace it?

[cr4ckerK9]

On XP.

How To Find data in text file and replace it?

I want Command Script in batch file or VBScripts---> .bat or .vbs

------------------------------------------------------

Example. Search Command "I Love You" in c:\Testt.txt

and replace "I Love You" it is "HACK BY ME"

and Search and replace "I Love You" in line 5 column 7

save and exit.

------------------------------------------------------

Help me Plz.

Edited November 13, 2008 by cr4ckerK9

[IcemanND]

Const FOR_READING = 1
Const FOR_WRITING = 2
Const vbTextCompare = 1	   ' essentatially case insensitve
Const vbBinaryCompare = 0	' case sensitve

vbOldText = "I Love You"
vbNewText = "HACK BY ME"

strFileName = "C:\scripts\test.txt"
strCheckForString = UCase("july")

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close

NewText = Replace(strContents, vbOldText, vbNewText, 1, -1, vbTextCompare)

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

objTS.Write NewText
objTS.Close