'=================================================================
set arg=WScript.Argumenty
Pokud arg.count=0 pak
msgbox "Použití:"&vbcrlf&vbcrlf&" Nespouštějte tento skript přímo, jen přetáhněte jeden nebo více souborů, které je třeba nahradit řetězci, na tento skriptový soubor.
wscript.quit
konec pokud
Set fso=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
Set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Zadejte prosím znak, který jste přidali před řádkem:")
dělat
fw.writeline(data&fr.readline)
Smyčka až do fr.atendofstream
fr.close
fw.close
Set fr=fso.opentextfile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
dělat
fw.writeline(fr.readline)
Smyčka až do fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Zkopírujte výše uvedený obsah a uložte ho jako VBS soubor, přetáhněte dokument, který chcete upravit, do tohoto VBS souboru, můžete zadat znaky, které chcete přidat, potvrdit po zadání, otevřít dokument a zjistíte, že každý řádek vašeho souboru přidal právě zadaná data. |
Zveřejněno 04.02.2015 13:25:21
|
|
|
