'=================================================================
set arg=WScript.Argumenty
Jeśli arg.count=0 to
msgbox "Usage:"&vbcrlf&vbcrlf&" Nie uruchamiaj tego skryptu bezpośrednio, po prostu przeciągnij i upuść jeden lub więcej plików, które trzeba zastąpić ciągami znaków, na ten plik skryptu.
wscript.quit
koniec jeśli
Set fso=wscript.createobject("scripting.filesystemobject")
Set fr=fso.opentextfile(arg(0),1)
Set fw=fso.createtextfile("temp.txt",2)
data=inputbox("Proszę wpisać znak dodany przed linijką:")
robić
fw.writeline(data&fr.readline)
Pętla aż do fr.atendofstream
fr.close
fw.close
Set fr=fso.opentextfile("temp.txt",1)
Set fw=fso.createtextfile(arg(0),2)
robić
fw.writeline(fr.readline)
Pętla aż do fr.atendofstream
fr.close
fw.close
fso.deletefile("temp.txt")
'====================================================
Skopiuj powyższą zawartość i zapisz ją jako plik VBS, przeciągnij dokument, który chcesz zmodyfikować, do tego pliku VBS, możesz wpisać znaki, które chcesz dodać, potwierdzić po wprowadzeniu, otworzyć dokument i zobaczysz, że każda linia zawiera dane, które właśnie wprowadziłeś. |
Opublikowano 04.02.2015 13:25:21
|
|
|
