vbs实现的保存剪贴板中的文本并编辑或保存
更新时间：2014年05月23日 11:43:19 作者：
这篇文章主要介绍了通过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&""
相关文章
微软手册只提了一个remove，没提增加，原来是这样。2009-07-07
VBS Shell.Application中ShellExecute的使用方法详解
最近在项目中偶然用到了使用VBS调用shell.application中的ShellExecute方法，在百度搜索一圈后发现很难找到关于这个方法的详细的中文教程，最后是在微软的官方文档中才找到了这个指令的详细英文教程，需要的朋友可以参考下2023-05-05
自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
本次文章其中所用脚本代码为ghiconan版主提供的由Branimir petrovic编写的代码，我在后面根据我公司现有的网络情况做了一些文件管理的添加与删除，最后有用ＦＴＰ批处理的方法上传到服务器内！2008-12-12
几个超据学习价值的VBS脚本用法：将exe格式的flash拖放在此vbs文件上，即可生成swf文件2008-05-05
VBS编程教程 (第2篇)...2007-07-07
VBS教程：方法-OpenTextFile 方法...2006-11-11
这篇文章主要为大家分享了通过vbs调用Photoshop批量生成缩略图，需要的朋友可以参考下2013-12-12
ComboBox 控件和ListBox 控件在功能上很相似，很多情况下，这两个控件是可以互换使用的，但是还是有某种特定的环境下只适合使用一种控件的情况。下面通过本文给大家介绍下ComboBox 控件的用法教程，一起看看吧2016-11-11
用vbs实现选择颜色的两种方法，一种带组件，一种不带2008-08-08
vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
这篇文章主要介绍了vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法,本文通过FileSystemObject对象实现,需要的朋友可以参考下2014-08-08
最新评论