'=================================================================
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
встановити 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
|
|
|
