亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

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

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

vbs怎么實現保存剪貼板中的文本編輯或保存

發布時間:2021-07-27 22:07:23 來源:億速云 閱讀:219 作者:chen 欄目:開發技術

這篇文章主要講解了“vbs怎么實現保存剪貼板中的文本編輯或保存”,文中的講解內容簡單清晰,易于學習與理解,下面請大家跟著小編的思路慢慢深入,一起來研究和學習“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

保存剪貼板中的文本并編輯.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怎么實現保存剪貼板中的文本編輯或保存”的內容了,經過本文的學習后,相信大家對vbs怎么實現保存剪貼板中的文本編輯或保存這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是億速云,小編將為大家推送更多相關知識點的文章,歡迎關注!

向AI問一下細節

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

vbs
AI

隆回县| 安庆市| 义乌市| 扎兰屯市| 旬阳县| 淮安市| 资溪县| 绥棱县| 汝南县| 奉新县| 法库县| 淳化县| 桦甸市| 丽江市| 柳河县| 新余市| 苍溪县| 巴马| 七台河市| 秭归县| 阳江市| 巧家县| 玉林市| 稻城县| 南华县| 西安市| 和田县| 布拖县| 东方市| 西乡县| 永善县| 黎平县| 华安县| 玉田县| 丹巴县| 永康市| 湄潭县| 洮南市| 久治县| 扬中市| 宽城|