vbs保存html,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&""

怎用vbs脚本获取剪贴板中内容

'剪贴板一出现文本就追写入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

VBS,怎获取剪贴板的内容

Set ie=createobject("internetexplorer.application")

ie.navigate "about:blank"

ie.visible=False

str=ie.document.parentwindow.clipboarddata.getdata("text")

msgbox str

第二个 先判断复制的文件名字是不是txt文件格式， 在读不读取不就行了吗

补充：首先通过“工具”的“Internet选项”中的“安全”，点击“自定义级别”，然后你就要仔细了，在出现的很多选择栏目中找到“允许对剪切板进行编程访问”，选择“启用”，最后确认就OK了。

提醒下，这样设置浏览网页时候安全性会降低的哟！