'=================================================================
set arg=WScript.Arguments
ако arg.count=0 тогава
msgbox "Usage:"&vbcrlf&vbcrlf&" Не пускайте този скрипт директно, просто плъзнете и пускайте един или повече файлове, които трябва да бъдат заменени със низове, върху този скриптов файл.
wscript.quit
край ако
set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile(arg(0),1)
set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Моля, въведете символа, който сте добавили преди реда:")
правя
fw.writeline(data&fr.readline)
Loop до fr.atendofstream
отец Клоуз
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
правя
fw.writeline(fr.readline)
Loop до fr.atendofstream
отец Клоуз
fw.close
fso.deletefile("temp.txt")
'====================================================
Копирайте горното съдържание и го запазете като VBS файл, плъзнете документа, който искате да промените, в този VBS файл, можете да въведете символите, които искате да добавите, да потвърдите след въвеждане, да отворите документа си и ще откриете, че всеки ред от вашия е добавил данните, които току-що сте въвели. |
Публикувано в 4.02.2015 г. 13:25:21 ч.
|
|
|
