主页 > 知识库 > vbs实现的保存剪贴板中的文本并编辑或保存

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""

标签:沈阳 乐山 河南 上海 沧州 红河 长治 新疆

巨人网络通讯声明:本文标题《vbs实现的保存剪贴板中的文本并编辑或保存》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266