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

回复 14楼 的帖子

那在你的代码中我如何输出到TXT文本呢,就像SETER写的那样可以分个输出!

TOP

我再来提提速。。。

根据!b!中的*号,决定在取字符时用变量名a或者是b,注意,变量ab保存的是表达式,并非结果
利用了for 变量在扩展时,会对值中含有!!号的字符再次进行变量扩展,这时才得到想要的结果

这样做到了整个循环一次性预处理完成,速度可想而知了

如果还不能理解,请留意最后set ab的结果。

  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "tokens=*" %%a in (b.txt) do (
  3. set b=%%a
  4. set ab=
  5. set/a n+=1
  6. for /l %%a in (0,1,13) do (
  7.   if "!b:~%%a,1!" equ "*" (
  8.    set "ab=!ab!^!a:~%%a,1^!"
  9.   ) else (
  10.    set "ab=!ab!^!b:~%%a,1^!"
  11.   )
  12.   
  13. )
  14. (
  15. for /f "tokens=*" %%b in (a.txt) do (
  16.   set a=%%b
  17.   for %%c in ("!ab!") do echo;%%~c
  18. )
  19. )>b!n!.txt
  20. )
  21. set ab
  22. pause
复制代码
1

评分人数

    • batman: 强,变量用神了!!!PB + 20

TOP

&&将代码再次提效,仍适用于每行字符数不确实的情况(最大字符数可达8190),同时更适用于超大文本(行数很多)的情况。
代码思路:
    1、利用折半法获得每行字符数(具体可在论坛搜索折半法),并将最大字符数减1求得截取字符时的最大偏移量(具体可在
论坛搜索截取字符)。
    2、对b.txt逐行逐字进行字符截取,并在截取时进行是否是"*"字符的判断,并将"*"字符段设置为丢弃段,其他字符段设置为替换
段(注意是段),并得出总分段数和每段的字符开始时的偏移量和总长度,即:丢弃段(偏移量1,长度1) 替换段(偏移量2,长
度2) ...这样交替n个段次。
    3、依次读取a.txt的每行并按b.txt的分段数据进行输出:a.txt保留段(偏移量1,长度1) b.txt替换段(偏移量2,长度2) ...同样
是交替的n个段次。
    4、为提高代码效率,代码中没有使用一个call,花费了大量的处理代码来完成本要用call来完成的工作,如用for /f "tokens=1,2 deli
ms=-" %%a in ("_!m!_1-_!m!_2") do set "_!m!=!k!-!%%a!-!%%b!"这样复杂的代码来代替call,set "_!m!=!k!-%%_!m!_1%%-%%
_!m!_2"。
  1. @echo off&setlocal enabledelayedexpansion
  2. ::::::折半法获得字符长度::::::
  3. set /p str=<b.txt&set /a min=0,max=8190
  4. for /l %%a in (1,1,14) do (
  5.     set /a "num=(min+max)/2"
  6.     for %%b in (!num!) do (
  7.         if "!str:~%%b!" equ "" (
  8.            set /a max=num
  9.            ) else (
  10.            set /a min=num
  11.         )
  12.     )
  13. )
  14. if %min% equ %max% set /a num-=1&rem字符长度减1
  15. ::::::折半法获得字符长度::::::
  16. ::::::替换大循环::::::
  17. for /f "delims=" %%a in (b.txt) do (
  18.     set "str=%%a"&set /a n=-1,m=0,nums+=1
  19.     cd.>b!nums!.txt
  20.     for /l %%a in (0,1,%num%) do (
  21.         if %%a equ 0 (
  22.            if "!str:~,1!" equ "*" (
  23.               set "flag="
  24.               ) else (
  25.               set "flag=a"
  26.            )
  27.         )
  28.         if "!str:~%%a,1!" equ "*" (
  29.            if not defined flag set /a m+=1&set /a _!m!_1=%%a&set "flag=a"&set "k=var"
  30.            ) else (
  31.            if defined flag set /a m+=1&set /a _!m!_1=%%a&set "flag="&set "k=str"
  32.         )
  33.         set /a _!m!_2+=1
  34.         for /f "tokens=1,2 delims=-" %%a in ("_!m!_1-_!m!_2") do set "_!m!=!k!-!%%a!-!%%b!"
  35.     )
  36.     for /f "delims=" %%a in (a.txt) do (
  37.         set "var=%%a"&set "output="
  38.         for /l %%a in (1,1,!m!) do (
  39.             for /f "tokens=1-3 delims=-" %%a in ("!_%%a!") do set "code=!%%a!"&set "output=!output!!code:~%%b,%%c!"<nul
  40.         )
  41.         echo !output!>>b!nums!.txt
  42.     )
  43.     for /l %%a in (1,1,!m!) do set "_%%a_2="      
  44. )
  45. ::::::替换大循环::::::
  46. start b1.txt&start b2.txt
复制代码
***共同提高***

TOP

batman 老大,好像你上面这个速度更慢呢???我试过了

TOP

比你上一次的那个代码替换的还要慢

TOP

返回列表