vbs实现的保存剪贴板中的文本并编辑或保存
保存剪贴板中的文本.vbs
原理就是首先判断是否存在同名文件,存在就名字后面+1,然后将剪贴板的内容保存到自定义扩展名的文件里复制代码 代码如下:
set fso=createobject("scripting.filesystemobject") : name=1Dim nana=Inputbox("请输入拓展名:","拓展名","txt")whilwww.devze.come fso.fileexists(name&"."&na)=truename=name+1wendset o=fso.opentextfihttp://www.devze.com
le(name&"."&na,2,true)set hf=Createobject("htmlfile")wind=hf.parentwindow.cliwww.devze.compboarddata.getdata("texCFUmpsHPKt")o.writeline wind : o开发者_Go开发.close保存剪贴板中的文本并编辑.vbs
复制代码 代码如下:
set fso=createobject("scripting.filesystemobject") CFUmpsHPK: name=1Dim nana=Inputbox("请输入拓展名:","拓展名","txt")while fso.fileexists(name&"."&na)=truename=name+1wendset o=fso.opentextfile(name&"."&na,2,true)set hf=Createobject("htmlfile")wind=hf.parentwindow.clipboarddata.getdata("text")o.writeline wind : o.closecreateobject("wscript.shell").exec "notepad.exe "&name&"."&na&""
精彩评论