欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vbs實(shí)現(xiàn)的保存剪貼板中的文本并編輯或保存

 更新時間：2014年05月23日 11:43:19   作者：  
這篇文章主要介紹了通過vbs實(shí)現(xiàn)的保存剪貼板中的文本實(shí)現(xiàn)編輯或保存的實(shí)現(xiàn)方法，需要的朋友可以參考下

保存剪貼板中的文本.vbs

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

復(fù)制代碼 代碼如下:

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

復(fù)制代碼 代碼如下:

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&""

相關(guān)文章

最新評論