找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 16962|回复: 5

[文本处理] 【已解决】帮我 在批处理做个循环,变为支持拖动多个文件。 谢谢

[复制链接]
发表于 2021-12-26 13:00:04 | 显示全部楼层 |阅读模式
本帖最后由 yyz219 于 2021-12-27 08:59 编辑
  1. 已经完美解决了

  2. ::【将UTF-8码 转为 ANSI码】
  3. :Loop
  4. if "%~1" equ "" goto :eof

  5. CHCP 65001
  6. ::如果输入的 UTF-8 没有 BOM,%~dpn1_unicode-without-BOM.txt 打开乱码
  7. CMD /D /U /C  TYPE %~1 > %~dpn1_unicode-without-BOM.txt
  8. ::取得 Unicode BOM
  9. ECHO.//4=>U.bom
  10. certutil -decode -f U.bom U.bom >NUL
  11. ::Unicode → Unicode BOM
  12. CHCP 936
  13. MOVE /y  U.bom  %~dpn1_Unicode-BOM.txt >NUL
  14. TYPE %~dpn1_unicode-without-BOM.txt >> %~dpn1_Unicode-BOM.txt
  15. ::Unicode BOM → ANSI
  16. TYPE %~dpn1_Unicode-BOM.txt > %~dpn1.reg
  17. DEL /Q /F %~dpn1_unicode-without-BOM.txt %~dpn1_Unicode-BOM.txt

  18. shift
  19. goto :loop
  20. ::【切记:这里不能够有“exit”】

  21. ::****************【下面设置支持多文件拖放格式】******************

  22. :::Loop
  23. ::if "%~1" equ "" goto :eof
  24. ::【原来的批处理代码】
  25. ::shift
  26. ::goto :loop
  27. ::【切记:这里不能够有“exit”】
复制代码
发表于 2021-12-26 13:47:22 | 显示全部楼层
UTF-8   转   ANSI  文本需要保证文本内存在中文,不然转不了。
 楼主| 发表于 2021-12-26 18:32:54 | 显示全部楼层
回复 2# yakeyun

我只需要支持多文件拖放就OK了。
发表于 2021-12-26 18:41:17 | 显示全部楼层
  1. :Loop
  2. if "%~1" equ "" goto :eof
  3. [处理一个参数]

  4. shift 切换参数
  5. goto :loop
复制代码

评分

参与人数 1技术 +1 收起 理由
yyz219 + 1 很给力

查看全部评分

 楼主| 发表于 2021-12-26 19:04:09 | 显示全部楼层
本帖最后由 yyz219 于 2021-12-27 08:59 编辑
netbenton 发表于 2021-12-26 18:41
  1. 我试一试先  谢谢
复制代码
 楼主| 发表于 2021-12-26 19:08:37 | 显示全部楼层
回复 4# netbenton


    很给力
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-20 15:24 , Processed in 0.019638 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表