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

回复 10# 1139054012
  1. #SingleInstance force
  2. ;按下Ctrl+C触发脚本开启自动保存,按 Win+Esc 退出脚本
  3. ~^c::
  4. loop{
  5. clipwait
  6. loop
  7. {
  8.     StringReplace, clipboard, clipboard, `r`n`r`n, `r`n, UseErrorLevel
  9.     if ErrorLevel = 0
  10.         break
  11. }
  12. text := f(clipboard)
  13. f(a,d:="`r`n"){
  14. a:=strsplit(a,d)
  15. b:={}
  16. c:=""
  17. for _,v in a
  18. if b[v]
  19. continue
  20. else
  21. b[v]:=true
  22. ,c.=v d
  23. return c
  24. }
  25. text := trim(text," `t`r`n")
  26. FileAppend,%text%`r`n`r`n`r`n, 另存路径.txt, UTF-8
  27. clipBoard =
  28. }
  29. ~#ESC::ExitApp
复制代码
1

评分人数

TOP

本帖最后由 pcl_test 于 2015-5-22 08:04 编辑

回复 12# 1139054012

已修改,按下Ctrl+C触发脚本开启自动保存,按 Win+Esc 退出脚本

TOP

返回列表