用vbs获取剪贴板的内容 vbs实现的保存剪贴板中的文本并编辑或保存

软件发布|下载排行|最新软件

当前位置:首页IT学院IT技术

用vbs获取剪贴板的内容 vbs实现的保存剪贴板中的文本并编辑或保存

  2021-03-19 我要评论
想了解vbs实现的保存剪贴板中的文本并编辑或保存的相关内容吗,在本文为您仔细讲解用vbs获取剪贴板的内容的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:剪贴板,文本,编辑,下面大家一起来学习吧。

保存剪贴板中的文本.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&""

猜您喜欢

Copyright 2022 版权所有 软件发布 访问手机版

声明:所有软件和文章来自软件开发商或者作者 如有异议 请与本站联系 联系我们