中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

溫馨提示×

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

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

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

永吉县| 华宁县| 扬州市| 武山县| 屏东县| 南开区| 榆中县| 横山县| 兖州市| 滕州市| 康乐县| 苏州市| 新绛县| 泗水县| 工布江达县| 从江县| 如皋市| 米易县| 西吉县| 杨浦区| 金乡县| 沾益县| 蓬溪县| 高要市| 临夏市| 龙陵县| 遵义市| 乐业县| 甘洛县| 孝感市| 松溪县| 虎林市| 且末县| 榕江县| 庆元县| 西藏| 卢氏县| 吴江市| 栾城县| 沐川县| 和林格尔县|