'=================================================================
set arg=WScript.Arguments
ja arg.count=0, tad
msgbox "Lietojums:"&vbcrlf&vbcrlf&" Nepalaidiet šo skriptu tieši, vienkārši velciet un nometiet vienu vai vairākus failus, kas jāaizstāj ar virknēm šajā skripta failā.
wscript.quit
beigt, ja
Set FSO=wScript.CreateObject("Scripting.FileSystemObject")
iestatīt fr=fso.opentextfile(arg(0),1)
iestatīt fw=fso.createtextfile("temp.txt",2)
data=inputbox("Lūdzu, ievadiet rakstzīmi, kuru pievienojāt pirms rindas:")
darīt
fw.writeline(dati&fr.readline)
cilpa līdz fr.atendofstream
fr.aizvērt
fw.aizvērt
iestatīt fr=fso.opentextfile("temp.txt",1)
iestatīt fw=fso.createtextfile(arg(0),2)
darīt
fw.writeline(fr.readline)
cilpa līdz fr.atendofstream
fr.aizvērt
fw.aizvērt
fso.deletefile("temp.txt")
'====================================================
Nokopējiet iepriekš minēto saturu un saglabājiet to kā VBS failu, velciet dokumentu, kuru vēlaties modificēt šajā VBS failā, varat ievadīt rakstzīmes, kuras vēlaties pievienot, apstiprināt pēc ievadīšanas, atveriet dokumentu, un jūs atradīsit, ka katra jūsu rinda ir pievienojusi tikko ievadītos datus. |
Publicēts 04.02.2015 13:25:21
|
|
|
