Change string in text-file

[Tranbjerg]

Hi all

I need to make a script that can search for a substring in a text-file (notes.ini file) and replace it with another string. The string must not be case sensitive. I have found this script here that works, but its case sensitive.

Dim struser, notesini

Set FSO=CreateObject("Scripting.FileSystemObject&quot
Set WshNetwork = WScript.CreateObject("WScript.Network&quot

Struser = WshNetwork.username
notesini = "C:\Documents and Settings\" & struser & "\Application Data\Notes\notes.ini"

Set TF=FSO.OpenTextFile(notesini,1)
inp=TF.ReadAll
out1=Replace(inp,"NAMES=Names.nsf","NAMES=C:\Documents and Settings\"+struser+"\Application Data\Notes\Names.nsf&quot
TF.close
Set TF=FSO.CreateTextFile(notesini,True)
TF.Writeline out
TF.Close

Regards
Jens

 

[PHV]

Try this:

out1=Replace(inp,"NAMES=Names.nsf","NAMES=C:\Documents and Settings\"+struser+"\Application Data\Notes\Names.nsf",1,-1,vbTextCompare)

Hope This Help
PH.

 

[Tranbjerg]

Sorry, but it didn't work. It just deleted everything in the file instead.

Jens

 

[PHV]

You had a typo in your 1st post: out1= instead of out=

Hope This Help
PH.

 

[Tranbjerg]

It's working.

Thanks
Jens