vbs怎么实现保存剪贴板中的文本编辑或保存

这篇文章主要讲解了“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怎么实现保存剪贴板中的文本编辑或保存这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是亿速云，小编将为大家推送更多相关知识点的文章，欢迎关注！