保存剪貼板中的文本.vbs

原理就是首先判斷是否存在同名文件，存在就名字后面+1，然后將剪貼板的內(nèi)容保存到自定義擴展名的文件里

代碼如下:

set fso=createobject("scripting.filesystemobject") : name=1

Dim na

na=Inputbox("請輸入拓展名:","拓展名","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("請輸入拓展名:","拓展名","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&""

更多信息請查看IT技術(shù)專欄