[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

麻烦高手帮忙写一个
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

麻烦高手帮忙写一下 谢谢

TOP

在桌面运行
  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
复制代码
1

评分人数

TOP

回复 3# terse


    感谢你  测试成功

TOP

本帖最后由 窄口牛 于 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
复制代码

TOP

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

TOP

返回列表