vbs实现的保存剪贴板中的文本并编辑或保存，vbs剪贴板
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&""
'剪贴板一出现文本就追写入c:\新建文档.txt(另起一行)，并清空剪贴板
on error resume next
Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文档.txt",2,true)
while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If
WScript.Sleep 500
wend
Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False
str=ie.document.parentwindow.clipboarddata.getdata("text")
msgbox str
第二个 先判断复制的文件名字是不是txt文件格式， 在读不读取不就行了吗
补充：首先通过“工具”的“Internet选项”中的“安全”，点击“自定义级别”，然后你就要仔细了，在出现的很多选择栏目中找到“允许对剪切板进行编程访问”，选择“启用”，最后确认就OK了。
提醒下，这样设置浏览网页时候安全性会降低的哟！
评论关闭