Board logo

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

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

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

麻烦高手帮忙写一个
作者: pengyou86    时间: 2015-6-30 10:49

麻烦高手帮忙写一下 谢谢
作者: terse    时间: 2015-6-30 12:35

在桌面运行
  1. @echo off
  2. 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两个问号。脚本之家搜到一个。
  1. set fso=createobject("scripting.filesystemobject") : name=1
  2. Dim na
  3. 'na=Inputbox("请输入拓展名:","拓展名","txt")
  4. na="txt"
  5. while fso.fileexists(name&"."&na)=true
  6. name=name+1
  7. wend
  8. set o=fso.opentextfile(name&"."&na,2,true)
  9. set hf=Createobject("htmlfile")
  10. wind=hf.parentwindow.clipboarddata.getdata("text")
  11. o.writeline wind : o.close
复制代码

作者: CrLf    时间: 2017-9-27 16:41

  1. xclip /get >文件.txt
复制代码
下载:http://www.bathome.net/thread-31140-1-1.html




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2