'=================================================================
set arg=WScript.Argumente
wenn arg.count=0 gilt, dann
msgbox "Usage:"&vbcrlf&vbcrlf&" Führe dieses Skript nicht direkt aus, sondern ziehe einfach eine oder mehrere Dateien, die durch Strings ersetzt werden müssen, auf diese Skriptdatei.
wscript.quit
Ende, wenn
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Bitte geben Sie das Zeichen ein, das Sie vor der Zeile hinzugefügt haben:")
tun
fw.writeline(data&fr.readline)
Schleife bis fr.atendofstream
fr.schließen
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
tun
fw.writeline(fr.readline)
Schleife bis fr.atendofstream
fr.schließen
fw.close
fso.deletefile("temp.txt")
'====================================================
Kopiere den obigen Inhalt und speichere ihn als VBS-Datei, ziehe das Dokument, das du bearbeiten möchtest, in diese VBS-Datei, du kannst die Zeichen eingeben, die du hinzufügen möchtest, nach dem Eingeben bestätigen, dein Dokument öffnen, und du wirst feststellen, dass jede Zeile die gerade eingegebenen Daten hinzugefügt hat. |
Veröffentlicht am 04.02.2015 13:25:21
|
|
|
