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

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

保存剪貼板中的文本.vbs

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

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

上一篇：使用 iisweb.vbs 列出網(wǎng)站的方法

欄目：vb

下一篇：VBS和bat批處理逐行讀取文件實例

本文標(biāo)題：vbs實現(xiàn)的保存剪貼板中的文本并編輯或保存

本文地址：http://mengdiqiu.com.cn/a1/vb/7263.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

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

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機閱讀