[文本处理] [已解决]批处理怎样将剪贴板中的内容保存为文本？

pengyou86

运行批处理后将剪贴板中的内容保存到桌面新创建的 12.txt文本中

麻烦高手帮忙写一个

pengyou86

麻烦高手帮忙写一下 谢谢

terse

在桌面运行

@echo off
mshta "javascript:var s=clipboardData.getData('text');if(s)new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(s);close();"|more >12.txt
复制代码

pengyou86

回复 3# terse


    感谢你  测试成功

窄口牛

]这个有时候末尾的一个文字会变成l两个问号。脚本之家搜到一个。

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
复制代码

CrLf

xclip /get >文件.txt
复制代码

下载：http://www.bathome.net/thread-31140-1-1.html