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

保存剪贴板中的文本.vbs

原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里

@L_304_0@ 代码如下:
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& ""

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！