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


    点击2楼左下角的回复,他会收到通知。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 1# pwq


测试代码之前请注意做好备份
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%a in ('dir /b /a-d *.txt') do (
  4.     echo 正在处理文件 %%a
  5.     set /p FirstLine=<"%%a"
  6.     call :GetLen FirstLine LineLen
  7.     set /a HalfLen=LineLen/2
  8.     (for %%i in (!HalfLen!) do (
  9.         if "!FirstLine:~0,%%i!" equ "!FirstLine:~%%i!" (
  10.             echo,!FirstLine:~0,%%i!
  11.         ) else (
  12.             echo,!FirstLine!
  13.         )        
  14.     ))>"%%a.new"
  15.     more +1 "%%a" >> "%%a.new"
  16.     move /y "%%a.new" "%%a"
  17. )
  18. pause
  19. goto :eof
  20. :GetLen
  21. setlocal enabledelayedexpansion
  22. set "$=!%1!#"
  23. set N=&for %%a in (4096 2048 1024 512 256 128 64 32 16)do if !$:~%%a!. NEQ . set/aN+=%%a&set $=!$:~%%a!
  24. set $=!$!fedcba9876543210&set/aN+=0x!$:~16,1!
  25. endlocal&If %2. neq . (set/a%2=%N%)else echo %N%
  26. goto :eof
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 12# pwq


    测试文件压缩上传我试试
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 14# pwq


    9楼代码发出来之前已经用这样的3个文件测试过了,没有发现问题。所以才需要你把测试之前的txt、测试用的bat、测试之后的txt打包压缩上传,这样我才能找到线索。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 16# pwq


    你把这些txt文件第一行结尾的空格删掉,再执行代码,试试看能成功吗?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 20# pwq


下载命令行工具 sed.exe 并放到txt文件所在目录
http://bcn.bathome.net/s/tool/index.html?key=sed

执行代码:清理首行结尾空格.bat
  1. @echo off
  2. sed -i "1s/ *$//" *.txt
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 24# pwq
  1. sed -i "1s/^ *//; 1s/ *$//" *.txt
复制代码
1

评分人数

    • pwq: 乐于助人技术 + 1
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表