vbs實(shí)現(xiàn)的保存剪貼板中的文本并編輯或保存
更新時(shí)間：2014年05月23日 11:43:19 作者：
這篇文章主要介紹了通過(guò)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("請(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
復(fù)制代碼 代碼如下:
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&""
相關(guān)文章
VBS編程教程 (第5篇)...2007-07-07
用vbs+wmi實(shí)現(xiàn)獲取電腦硬件信息的代碼，真的不錯(cuò)，方便查看系統(tǒng)硬件信息2008-06-06
VBS教程：函數(shù)-Cos 函數(shù)...2006-11-11
Vbs是一種變量無(wú)關(guān)、解釋性執(zhí)行的腳本語(yǔ)言,下面這篇文章主要給大家介紹了關(guān)于VBS腳本基礎(chǔ)語(yǔ)法的相關(guān)資料,文中通過(guò)實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2022-04-04
昨天有人在博客里留言：獲取圖片分辨率也可以用Shell.Application，我比較喜歡用這個(gè)。2011-01-01
用vbs檢查注冊(cè)表項(xiàng)的訪問(wèn)權(quán)限的代碼
有時(shí)候我們需要知道我們是否對(duì)注冊(cè)表有訪問(wèn)權(quán)限，下面的代碼就是解決了這個(gè)問(wèn)題，檢查下是否能用vbs修改注冊(cè)表項(xiàng)2008-06-06
exe2swf 工具(Adodb.Stream版)...2006-09-09
vbs的字符串操作一直以來(lái)就是個(gè)要害之處，特別是字符串的連接操作，在大量字符串連接操作中，系統(tǒng)性能會(huì)急劇下降，很是郁悶~~，2011-01-01
用VBScript批量安裝網(wǎng)絡(luò)打印機(jī)和設(shè)置默認(rèn)打印機(jī)
假如你有幾十臺(tái)機(jī)器，幾臺(tái)打印機(jī)，共享網(wǎng)絡(luò)上有網(wǎng)絡(luò)打印機(jī)的安裝驅(qū)動(dòng)，可是每臺(tái)電腦都點(diǎn)擊幾次驅(qū)動(dòng)十分麻煩，本人做了個(gè)VBS，這樣就方便多了，拿來(lái)和大家分享，不足之處請(qǐng)見(jiàn)諒！2009-03-03
運(yùn)行同一目錄下的可執(zhí)行程序的VBS代碼，需要的朋友可以參考下。2011-01-01