suchen und ersetzten per VBS

[angoletti1 10]

Hi,

 

ich habe mal wieder ein kleines Problem.

Ich möchte in einer TXT gerne nach einem String suchen und diesen überall ersetzten.

Wo ist mein Fehler???

 

 

Dim objFso

Dim objWshShell

Set objFso = WScript.CreateObject("Scripting.FileSystemObject")

Set objWshShell = WScript.CreateObject("WScript.Shell")

 

Dim dieDatei, Rueckgabe, dateiAngabe, Servername

 

dateiAngabe = "H:\testVBS\datei.txt"

 

Set dieDatei = objFso.OpenTextFile(dateiAngabe, 1)

 

Rueckgabe=Replace(dieDatei.ReadAll,"H:\","I:\Ordner1\")

Set dieDatei = objFso.OpenTextFile(dateiAngabe, 2)

dieDatei.Write(Rueckgabe)

dieDatei.Close

[thumb 10]

Hmmm, bei mir funktioniert Dein Script

 

Dim objFso
Dim objWshShell
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
Dim dieDatei, Rueckgabe, dateiAngabe, Servername
dateiAngabe = "E:\tmp\datei.txt"
Set dieDatei = objFso.OpenTextFile(dateiAngabe, 1)
Rueckgabe=Replace(dieDatei.ReadAll,"H:\","I:\Ordner1\")
Set dieDatei = objFso.OpenTextFile(dateiAngabe, 2)
dieDatei.Write(Rueckgabe)
dieDatei.Close

 

es ersetzt in dem Textfile "H:\"durch "I:\Ordner1\".

 

Was funktioniert denn bei Dir nicht?

 

Du solltest Dir allerdings angewöhnen, mit Funktionen und Prozeduren zu arbeiten, z.B. die Funktion WriteTextFile.

 

Guckmal, hier ist ein nettes Script, arbeitet mit Funktionen und wird mit Argumenten aufgerufen: Replace one string to another in a text file

 

Grüße, thumb

[blub 115]

hier ist auch ein sehr aussagekräftiges Beispiel zur replace-Funktion

 

Replace Method (VBScript)

 

bzw. etwas umgeschrieben, damit du es als Funktion verwenden kannst

 

dim str1
str1 = "The quick brown fox jumped over the lazy dog."
str1=Replace("fox", "cat")
wscript.echo str1

Function Replace(patrn, replStr)
 Dim regEx                   ' Create variables.
 Set regEx = New RegExp            ' Create regular expression.
 regEx.Pattern = patrn            ' Set pattern.
 regEx.IgnoreCase = True            ' Make case insensitive.
 Replace = regEx.Replace(str1,replStr)   ' Make replacement.
End Function

 

cu

blub