Find & Replace Text

[NickC111]

Good Afternoon

I have a simple text document where I want to find and replace certain text.

**0915750600*CW3*STORE AND PREMISES*

I want to use find and replace - Find CW3 and replace with 970 - write a new file with the new changes

Any ideas?

 

[jges]

Perhaps this thread will help:
thread329-1672632

 

[Geates]

Load the file in notepad. use find and replace (ctrl+h). save file

-Geates

"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer

 

[NickC111]

Thanks for the thread - I have come up with the following code

Const ForReading = 1
Const ForWriting = 2

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

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "CH1", "*901*")

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

Its finds "CH1" and replaces it with *901* in the test text file

I want to change the script so that its reads from a cross-reference and it finds a match enter the new data from the cross-reference table

Example

Test.txt

CH1
DR4
GH7
SX7
GE9
SP1

Cross-Reference Table

CH1 = *901*
DR4 = *856*
GH7 = *658*
SX7 = *025*
GE9 = *986*
SP1 = *756*

So the script reads the cross-reference where it finds a match in the text file it replaces it with the corresponding entry

Finds CH1 and replaces it with *901*

Any help would be great

Thanks