Suchen und Ersetzen mit VBS

SchmidtM · 04.11.2005

Hallo zusammen,

ich möchte gerne eine komplette Datei nach einem bestimmten Wort durchsuchen und dieses durch den PC-Namen ersetzen. Das würde ich gerne mit folgendem VBScript verwirklichen:

Code:

Dim objFso
Dim objWshShell
Set objFso = WScript.CreateObject(Scripting.FileSystemObject)
Set objWshShell = WScript.CreateObject(WScript.Shell)

Dim dieDatei, Rueckgabe, dateiAngabe, Servername

dateiAngabe = C:\dummy.txt
Servername = objWshShell.ExpandEnvironmentalStrings(%COMPUTERNAME%)
Set dieDatei = objFso.OpenTextFile(dateiAngabe, 1)
Do While dieDatei.AtEndOfStream &lt;> True
 Rueckgabe = dieDatei.Readline
 [b]Rueckgabe.Replace dummy, Servername[/b]
Loop
dieDatei.Close

Dabei macht die rot markierte Zeile Probleme. Scheinbar wird zum Ersetzen ein weiteres Objekt benötigt. Wo liegt mein Denkfehler?

P.S. Die zu öffnende Datei ist eine normale Textdatei mit folgendem Inhalt (als Bsp.)

nix
dummy
test

Vielen Dank im Voraus

Gruß, Marco

SchmidtM · 04.11.2005

also nicht die rote Zeile, sondern die mit davor und dahinter

Schnitzel · 04.11.2005

Die Replace-Methode ist JScript. In VBS gibt es die Replace-Funktion:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctreplace.asp

Wenn die Datei nicht allzu gross ist, kannst Du sie statt zeilenweise, mit der ReadAll-Methode, auch am Stück einlesen.

Schnitzel · 04.11.2005

Rueckgabe=Replace(dieDatei.ReadAll,dummy,Servername)

Suchen und Ersetzen mit VBS

SchmidtM

SchmidtM

Schnitzel

Schnitzel

Suchen und Ersetzen mit VBS

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums