保存剪貼板中的文本.vbs
原理就是首先判斷是否存在同名文件，存在就名字后面+1，然后將剪貼板的內(nèi)容保存到自定義擴(kuò)展名的文件里
代碼如下:
set fso=createobject(scripting.filesystemobject) : name=1
dim na
na=inputbox(請(qǐng)輸入拓展名:,拓展名,txt)
while fso.fileexists(name&.&na)=true
name=name+1
wend
set o=fso.opentextfile(name&.&na,2,true)
set hf=createobject(htmlfile)
wind=hf.parentwindow.clipboarddata.getdata(text)
o.writeline wind : o.close
保存剪貼板中的文本并編輯.vbs
代碼如下:
set fso=createobject(scripting.filesystemobject) : name=1
dim na
na=inputbox(請(qǐng)輸入拓展名:,拓展名,txt)
while fso.fileexists(name&.&na)=true
name=name+1
wend
set o=fso.opentextfile(name&.&na,2,true)
set hf=createobject(htmlfile)
wind=hf.parentwindow.clipboarddata.getdata(text)
o.writeline wind : o.close
createobject(wscript.shell).exec notepad.exe &name&.&na&
公考類(lèi)
招聘類(lèi)
各類(lèi)考試
公眾號(hào)
事業(yè)單位
當(dāng)前位置：