溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

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

發(fā)布時間:2021-07-27 22:07:23 來源:億速云 閱讀:212 作者:chen 欄目:開發(fā)技術(shù)

這篇文章主要講解了“vbs怎么實現(xiàn)保存剪貼板中的文本編輯或保存”,文中的講解內(nèi)容簡單清晰,易于學習與理解,下面請大家跟著小編的思路慢慢深入,一起來研究和學習“vbs怎么實現(xiàn)保存剪貼板中的文本編輯或保存”吧!

復制代碼 代碼如下:

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

感謝各位的閱讀,以上就是“vbs怎么實現(xiàn)保存剪貼板中的文本編輯或保存”的內(nèi)容了,經(jīng)過本文的學習后,相信大家對vbs怎么實現(xiàn)保存剪貼板中的文本編輯或保存這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是億速云,小編將為大家推送更多相關(guān)知識點的文章,歡迎關(guān)注!

向AI問一下細節(jié)

免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。

vbs
AI