Board logo

标题: [文本处理] [已解决]批处理，txt转htm，双击htm显示有乱码，如何解决？ [打印本页]
作者: ygqiang    时间: 2024-10-20 22:15     标题: [已解决]批处理，txt转htm，双击htm显示有乱码，如何解决？

本帖最后由 ygqiang 于 2024-10-21 19:32 编辑

[已解决]批处理，txt转htm，双击htm显示有乱码，如何解决？
主要功能需求：
txt文件内容经常手动修改。运行bat代码，就自动更新htm文件。
[已解决]
txt设置为ANSI格式
  1. @echo off & setlocal enabledelayedexpansion

  2. echo 代码开始

  3. 

  4. del /q 网址大全.htm

  5. 

  6. for /f "delims=;" %%a in ('type 网址大全.txt') do (echo ^<a href=%%a^>%%a^<^/a^>^<br^> >>网址大全.htm)
复制代码
网址大全.txt文件内容如下：
  1. 凡人124

  2. https://dyxs31.com/paly-86355-10-102/

  3. 

  4. 完美184

  5. https://waipian28.com/play/476-7-173/

  6. 

  7. 仙逆59

  8. https://www.yingshikong1.com/play/121193-1-50.html

  9. 

  10. 诛仙58

  11. https://dyxs38.com/paly-224772-9-52/
复制代码
更新下最终代码：（3种方法）
  1. @echo off & setlocal enabledelayedexpansion

  2. if "%1" == "h" goto begin

  3. mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit

  4. :begin

  5. rem 下边开始写批处代码了(适合全自动场合)

  6. 

  7. set wjm=网址-方法1.htm

  8. set wjm1=方法1网址.txt

  9. 

  10. echo ^<br^>>%wjm%

  11. echo ^<br^>>>%wjm%

  12. echo ^<br^>>>%wjm%

  13. echo ^<br^>>>%wjm%

  14. 

  15. (set "v=" &echo,^<style^>a{font-size:60px;}^</style^>

  16. for /f "eol= delims=" %%s in (%wjm1%) do if not defined v (set "v=%%s</a><br>") else (

  17.     echo,^<a href=%%s^>!v!

  18.     set "v="

  19. ))>>%wjm%

  20. 

  21. start /max "" "%wjm%" & cls & ping 0 -n 3 >nul 2>nul & del /q "%wjm%.htm11"

  22. 

  23. exit
复制代码
  1. @echo off & setlocal enabledelayedexpansion

  2. if "%1" == "h" goto begin

  3. mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit

  4. :begin

  5. rem 下边开始写批处代码了(适合全自动场合)

  6. 

  7. set wjm=网址-方法2.htm

  8. set wjm1=方法2网址.txt

  9. 

  10. 

  11. echo ^<font size="9"^>^<br^>>%wjm%

  12. 

  13. 1pause >nul 2>nul

  14. 

  15. set "v=" & (for /f "eol= delims=" %%s in (%wjm1%) do if not defined v (set "v=%%s</a><br>") else (

  16.     echo,^<a href=%%s^>!v!

  17.     set "v="

  18. ))>>%wjm%

  19. 

  20. 1pause >nul 2>nul

  21. 

  22. echo ^</font^>>>%wjm%

  23. 

  24. start /max "" "%wjm%" & cls & ping 0 -n 3 >nul 2>nul & del /q "%wjm%.htm11"

  25. 

  26. exit
复制代码
  1. @echo off & setlocal enabledelayedexpansion

  2. if "%1" == "h" goto begin

  3. mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit

  4. :begin

  5. rem 下边开始写批处代码了(适合全自动场合)

  6. set wjm=网址-方法3

  7. for /f "delims=:" %%i in ('findstr /n "^:del-dir$" "%~f0"') do (

  8.     more +%%i "%~f0" > %wjm%.txt

  9. )

  10. echo ^<font size="9"^>^<br^>>%wjm%.htm

  11. set "v=" & (for /f "eol= delims=" %%s in (%wjm%.txt) do if not defined v (set "v=%%s</a><br>") else (

  12.     echo,^<a href=%%s^>!v!

  13.     set "v="

  14. ))>>%wjm%.htm

  15. echo ^</font^>>>%wjm%.htm

  16. start /max "" "%wjm%.htm" & cls & ping 0 -n 3 >nul 2>nul & del /q "%wjm%.htm11" & del /q "%wjm%.txt"

  17. exit

  18. ———————————————————————

  19. :del-dir

  20. 凡人124

  21. https://dyxs31.com/paly-86355-10-102/

  22. 完美185

  23. https://waipian28.com/play/476-7-173/

  24. 仙逆59

  25. https://www.yingshikong1.com/play/121193-1-50.html

  26. 诛仙52

  27. https://dyxs38.com/paly-224772-9-52/
复制代码
作者: Five66    时间: 2024-10-20 22:40

head加上编码meta
<head><meta charset="GBK"></head>
作者: ygqiang    时间: 2024-10-20 22:43

本帖最后由 ygqiang 于 2024-10-20 22:45 编辑

回复 2# Five66


    bat代码如何修改？谢谢

主要功能需求：
txt文件内容经常手动修改。运行bat代码，就自动更新htm文件。
作者: Five66    时间: 2024-10-20 23:00

  1. @echo off

  2. echo 代码开始

  3. 

  4. del /q 网址大全.htm 2>nul

  5. 

  6. (

  7. echo ^<!DOCTYPE html^>^<html^>^<head^>^<meta charset="GBK"^>^</head^>^<body^>

  8. for /f "delims=;" %%a in ('type 网址大全.txt') do (echo ^<a href=%%a^>路径%%a^<^/a^>^<br^>)

  9. echo ^</body^>^</html^>

  10. ) >网址大全.htm
复制代码
作者: ygqiang    时间: 2024-10-20 23:01

本帖最后由 ygqiang 于 2024-10-20 23:05 编辑

回复 4# Five66


可以了，txt设置为ANSI格式。
作者: aloha20200628    时间: 2024-10-21 11:40

本帖最后由 aloha20200628 于 2024-10-21 17:52 编辑

回复 1# ygqiang

一楼代码中第6行写出的网页a标签数据可能有问题》应将 '凡人124' 等字符串写入a标签文本位置，'https://dyxs31.com/paly-86355-10-102' 等网址写入a标签链址位置，如下代码可替换第6行源码纠正此错... 仅供参考
  1. (set "v=" &echo,^<style^>a{font-size:30px;}^</style^>

  2. for /f "eol= delims=" %%s in (网址大全.txt) do if not defined v (set "v=%%s</a><br>") else (

  3.     echo,^<a href=%%s^>!v!

  4.     set "v="

  5. ))>网址大全.htm
复制代码
纠正之后的网页a标签数据格式输出如下：
<a href=https://dyxs31.com/paly-86355-10-102/>凡人124</a><br>
<a href=https://waipian28.com/play/476-7-173/>完美184</a><br>
<a href=https://www.yingshikong1.com/play/121193-1-50.html>仙逆59</a><br>
<a href=https://dyxs38.com/paly-224772-9-52/>诛仙58</a><br>
作者: ygqiang    时间: 2024-10-21 15:05

本帖最后由 ygqiang 于 2024-10-21 16:21 编辑

回复 6# aloha20200628

多谢。用浏览器打开htm文件，显示的中文字体能否调整更大一些？比如凡人124、完美185...

已经解决。
  1. @echo off & setlocal enabledelayedexpansion

  2. echo 代码开始

  3. 

  4. 

  5. set wjm=网址大全

  6. 

  7. echo ^<font size="3"^>^<br^>>%wjm%.htm

  8. 

  9. 1pause

  10. 

  11. set "v=" & (for /f "eol= delims=" %%s in (%wjm%.txt) do if not defined v (set "v=%%s</a><br>") else (

  12.     echo,^<a href=%%s^>!v!

  13.     set "v="

  14. ))>>%wjm%.htm

  15. 

  16. 1pause

  17. 

  18. echo ^</font^>>>%wjm%.htm
复制代码
作者: aloha20200628    时间: 2024-10-21 17:47

本帖最后由 aloha20200628 于 2024-10-21 17:50 编辑

回复 7# ygqiang

若仅设置调整a标签内的字体大小，可用补充后的6楼代码（已更新）其中第一行代码中的字段 ‘30px’ 用于调整字体大小，可由楼主自定义...




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