批处理之家 - Powered by Discuz! Board

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

作者: pengyou86 时间: 2015-6-30 08:47 标题: [已解决]批处理怎样将剪贴板中的内容保存为文本？

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

麻烦高手帮忙写一个

作者: pengyou86 时间: 2015-6-30 10:49

麻烦高手帮忙写一下谢谢

作者: terse 时间: 2015-6-30 12:35

在桌面运行

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

作者: pengyou86 时间: 2015-6-30 14:10

回复 3# terse

感谢你测试成功

作者: 窄口牛 时间: 2017-9-27 09:43

本帖最后由窄口牛于 2017-9-27 10:03 编辑

]这个有时候末尾的一个文字会变成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 时间: 2017-9-27 16:41

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

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

欢迎光临批处理之家 (http://www.bathome.net/)