剪贴板输出文本和图片
剪贴板输出文本set fso=createobject("scripting.filesystemobject") : name=1
Dim na
'na=Inputbox("请输入拓展名:","拓展名","txt")
na="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
剪贴板输出jpg图片
谢谢大神分享,下载看看。 看来,只会一种批处理脚本的我已经落伍了... 本帖最后由 2010feicool 于 2018-6-4 19:43 编辑
不错,把剪贴板输出加到右键后很方便,拷贝文本保存到任意位置快多了
页:
[1]