Script Examples vbscript autoit php batch

Replace strings in file vbscript


eine bestimmte Teststelle in einer Textdatei per vbscript ersetzten

Aufruf der Datei:
replace.vbs quelldatei zieldatei suchstring stringersetzenmit


Code:

Const ForReading = 1
Const ForWriting = 2
strdatei = Wscript.Arguments(0)
strdatei2 = Wscript.Arguments(1)
von = Wscript.Arguments(2)
nach = Wscript.Arguments(3)
Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objTest = objFSO.GetFile(strdatei)
    If objTest.Size > 0 Then
Set objFile = objFSO.OpenTextFile(strdatei, ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, von, nach)
Set objFile = objFSO.OpenTextFile(strdatei2, ForWriting)
objFile.WriteLine strNewText
objFile.Close
Else
End If





replace.vbs Größe:(0.53 kB): Download

<<< Search for Textstring in file Error Level generieren aus vbscript >>>


neue Themen

Stichwortsuche auf dieser Seite:
04.07.2009 07:34 zZ 1 Leser online
Powered by cms.libe.net 2004-2009