Changing content of files

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Changing content of files

Logged in as: Guest

arrSession:exec spGetSession 2,2,39444

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Changing content of files
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Changing content of files - 11/5/2006 12:45:35 AM

Sven

Posts: 2
Score: 0
Joined: 11/5/2006
Status: offline

Hi!

I have a question to you experts. I need to change the content of a large number of files. We change our internet provider, so we need to change in every html file the grafic location. The html files can be renamed to txt. So i need a little help to do this task automatically. Is there a way to run a script that changes the content (in the way search & replace) all files in an folder?

Would be happy if someone could help.

So long

Sven

Post #: 1

RE: Changing content of files - 11/5/2006 5:43:54 AM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

Try this on for size:

Dim sText, sFile, oFileDic, oShell, oFSO
Set oFileDic = CreateObject("Scripting.Dictionary")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
For Each sFile In oFSO.GetFolder(oShell.CurrentDirectory).Files
  If UCase(sFile) <> UCase(WScript.ScriptFullName) Then 
   sText = oFSO.OpenTextFile(sFile,1).ReadAll
    If InStr(sText,"old string") <> 0 Then 
     sText = Replace(sText,"old string","New String")
     oFSO.OpenTextFile(sFile,2).WriteLine sText
     oFileDic.Add oFileDic.Count,sFile
    End If 
  End If 
 sText = ""
Next
DisplayResults
Sub DisplayResults
Dim oIE
Set oIE = CreateObject("InternetExplorer.Application")
oIE.height = 400
oIE.width = 600
oIE.menubar = False
oIE.toolbar = False
oIE.statusbar = False
oIE.addressbar = False
oIE.Navigate ("about:blank")
While (oIE.busy)
Wend
oIE.visible = True
oShell.AppActivate("Microsoft Internet Explorer")
oIE.document.Open
oIE.document.Writeln Join(oFileDic.items,"<br>")
oIE.document.Close
End Sub

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to Sven)

Post #: 2

RE: Changing content of files - 11/5/2006 7:49:07 PM

Sven

Posts: 2
Score: 0
Joined: 11/5/2006
Status: offline

Thank you DiGiTAL.SkReAM!

Is there a way to replace text with "? Actual the script show erros, because of the " in the replace text. The script expects specific commands after the ", i think.

So long

Sven

(in reply to DiGiTAL.SkReAM)

Post #: 3

RE: Changing content of files - 11/5/2006 10:59:04 PM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

Post your code

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to Sven)

Post #: 4

RE: Changing content of files - 11/5/2006 11:50:55 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

check out http://www.ericphelps.com/scripting/samples/
the script name is GlobalSearchAndReplace

(in reply to Sven)

Post #: 5

RE: Changing content of files - 11/6/2006 1:13:44 AM

ehvbs

Posts: 2220
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi Sven,

if I understand your question
    Is there a way to replace text with "?
correctly, an answer is:
    sOld = "He said: 'Hello!'"
    sNew = Replace( sOld, "'", """" )
because in a " terminated literal string two double quotes are
the VBScript way to denote a (single) double quote.

(in reply to Sven)

Post #: 6

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Changing content of files

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts