'=================================================================
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)
Круг до fr.atendofstream
отец Клоуз
fw.close
set fr=fso.opentextfile("temp.txt",1)
set fw=fso.createtextfile(arg(0),2)
делать
fw.writeline (фр.readline)
Круг до fr.atendofstream
отец Клоуз
fw.close
fso.deletefile("temp.txt")
'====================================================
Скопируйте вышеуказанное содержимое и сохраните его как VBS-файл, перетащите нужный документ в этот VBS-файл, вы можете ввести нужные символы, подтвердить после ввода, откройте документ — и вы увидите, что каждая строка добавила только что введённые данные. |
Опубликовано 04.02.2015 13:25:21
|
|
|
