| 标题 | vbs实现的保存剪贴板中的文本并编辑或保存 |
| 内容 | 保存剪贴板中的文本.vbs 原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里 代码如下: 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& |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。