'=================================================================
set arg=WScript.Arguments
jei arg.count=0, tada
msgbox "Naudojimas:"&vbcrlf&vbcrlf&" Nevykdykite šio scenarijaus tiesiogiai, tiesiog nuvilkite vieną ar kelis failus, kuriuos reikia pakeisti eilutėmis į šį scenarijaus failą.
wscript.quit
pabaiga, jei
Nustatyti FSO=wScript.CreateObject("Scripting.FileSystemObject")
nustatyti fr=fso.opentextfile(arg(0),1)
nustatyti fw=fso.createtextfile("temp.txt",2)
data=inputbox("Įveskite simbolį, kurį pridėjote prieš eilutę:")
daryti
fw.writeline(duomenys&fr.readline)
Ciklas iki fr.atendofstream
fr.close
fw.uždaryti
nustatyti fr=fso.opentextfile("temp.txt",1)
nustatyti fw=fso.createtextfile(arg(0),2)
daryti
fw.writeline(fr.readline)
Ciklas iki fr.atendofstream
fr.close
fw.uždaryti
fso.deletefile("temp.txt")
'====================================================
Nukopijuokite aukščiau pateiktą turinį ir išsaugokite jį kaip VBS failą, vilkite dokumentą, kurį norite modifikuoti, į šį VBS failą, galite įvesti simbolius, kuriuos norite pridėti, patvirtinti įvedę, atidarykite dokumentą ir pamatysite, kad kiekviena jūsų eilutė pridėjo ką tik įvestus duomenis. |
Paskelbta 2015-02-04 13:25:21
|
|
|
