设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 【已解决】两个代码合并需要解决延迟变量的问题 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 39|回复: 0

[文本处理] 【已解决】两个代码合并需要解决延迟变量的问题

[复制链接]
思想之翼
发表于 5 小时前 | 显示全部楼层 |阅读模式
本帖最后由 思想之翼 于 2026-5-7 14:41 编辑

先运行代码1，依靠代码1生成的文件，再运行代码2，能够正常运行。将代码1+代码2合并，闪退。可能是延迟变量的问题，请帮助修改。

  2. :: ================= 代码1 =================
  3. @echo off
  4. setlocal enabledelayedexpansion

  6. for /l %%d in (10000,1,10000) do (
  7.     set o=%%d
  8.     for /l %%e in (100009,1,100009) do (
  9.         set p=%%e
  10.         "Z:\KZ\001\gawk.exe" -F"=" "NR==FNR{B[i++]=$0;next}{A[$1]=$2}END{for(i=0;i<length(B);i++){print A[B[i]]}}" "Z:\QWS\数据\!o:~1!\1234_01_2.txt" "Z:\SJKZ原版\!p:~1!.txt" | "Z:\KZ\001\gawk.exe" "NR%%8==1{close(\"Z:/KZ/001/\"n\"A.txt\");++n}{print>\"Z:/KZ/001/\"n\"A.txt\"}"

  12.         "Z:\KZ\001\gawk.exe" -f "Z:\KZ\001\replace_001.gawk"
  13.         del /q "Z:\KZ\001\*A.txt">nul 2>&1

  15.         for /l %%f in (1001,1,1500) do (
  16.             set q=%%f
  17.             "Z:\KZ\001\gawk.exe" -v "N=1&2&3&4&5&6&7&8&9&10&11&12&13&14&15&16&17&18&19&20&21&22&23&24&25&26&27&28&29&30&31&32" -v "RS=\r?\n| " -v "ORS= " -f "Z:\KZ\001\词频_001.gawk" "Z:\KZ\001\A\!q:~1!.txt"
  18.         )
  19.     )
  20. )
  21. endlocal
  22. :: ================= 代码1 结束=================



  26. :: ================= 代码2 =================
  27. @echo off
  28. setlocal enabledelayedexpansion

  30. :: 1. 生成 seq.txt
  31. (for /l %%i in (0,1,9999) do (
  32.     set "num=0000%%i"
  33.     echo !num:~-4!
  34. )) > "Z:\KZ\001\seq.txt"

  36. :: 2. 动态计算最小小组数
  37. echo 正在计算最小小组数...
  38. set MIN_GROUP=999999
  39. for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  40.     Z:\KZ\001\gawk.exe "{print int((NF-1)/5000)}" "Z:/KZ/001/%%fM.txt" > "Z:\KZ\001\tmp_cnt.txt"
  41.     set /p cnt=<"Z:\KZ\001\tmp_cnt.txt"
  42.     echo %%f: !cnt!
  43.     if !cnt! lss !MIN_GROUP! set MIN_GROUP=!cnt!
  44. )
  45. del "Z:\KZ\001\tmp_cnt.txt"
  46. echo 最小小组数: %MIN_GROUP%

  48. :: 3. 处理每个小组
  49. if %MIN_GROUP% leq 0 (
  50.     echo 错误：最小小组数为0，请检查数据。
  51.     pause
  52.     exit /b
  53. )

  55. echo 处理小组1~%MIN_GROUP%...
  56. for /l %%g in (1,1,%MIN_GROUP%) do (
  57.     echo 小组 %%g
  58.     set /a "start=(%%g-1)*5000+1"
  59.     set /a "end=%%g*5000"
  60.     set "outfile=Z:\KZ\001\0000%%g.txt"
  61.     type nul > "!outfile!"
  62.     for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  63.         Z:\KZ\001\gawk.exe -v s=!start! -v e=!end! "{n=split($0,a,\" \"); if(e<=n){for(i=s;i<=e;i++) printf a[i] (i==e?\"\":\" \")}}" "Z:/KZ/001/%%fM.txt" | Z:\KZ\001\gawk.exe "{split($0,a,\" \"); for(i in a) c[a[i]]++; while((getline s<\"Z:/KZ/001/seq.txt\")>0) c[s]++; for(i in c) if(c[i]==2) print i}" >> "!outfile!"
  64.     )
  65. )

  67. :: 4. 求交集
  68. echo 计算交集...
  69. Z:\KZ\001\gawk.exe "FNR==1{No++}{for(i=0;i++<NF;)a[No][$i]=1}END{for(i in a)for(j in a[i])if(++d[j]==No)print j}" "Z:/KZ/001/0000*.txt" > "Z:/KZ/001/交集结果.txt"

  71. :: 5. 显示结果
  72. echo 交集结果已保存至 Z:\KZ\001\交集结果.txt
  73. find /c /v "" "Z:\KZ\001\交集结果.txt"
  74. del "Z:\KZ\001\seq.txt" 2>nul
  75. pause
  76. :: ================= 代码2 结束=================




  81. ::=================【问题：代码2 插入代码1（运行闪退）】=================

  83. @echo off
  84. setlocal enabledelayedexpansion

  86. for /l %%d in (10000,1,10000) do (
  87.     set o=%%d
  88.     for /l %%e in (100009,1,100009) do (
  89.         set p=%%e
  90. :: ================= 代码1 =================
  91.         "Z:\KZ\001\gawk.exe" -F"=" "NR==FNR{B[i++]=$0;next}{A[$1]=$2}END{for(i=0;i<length(B);i++){print A[B[i]]}}" "Z:\QWS\数据\!o:~1!\1234_01_2.txt" "Z:\SJKZ原版\!p:~1!.txt" | "Z:\KZ\001\gawk.exe" "NR%%8==1{close(\"Z:/KZ/001/\"n\"A.txt\");++n}{print>\"Z:/KZ/001/\"n\"A.txt\"}"

  93.         "Z:\KZ\001\gawk.exe" -f "Z:\KZ\001\replace_001.gawk"
  94.         del /q "Z:\KZ\001\*A.txt">nul 2>&1

  96.         for /l %%f in (1001,1,1500) do (
  97.             set q=%%f
  98.             "Z:\KZ\001\gawk.exe" -v "N=1&2&3&4&5&6&7&8&9&10&11&12&13&14&15&16&17&18&19&20&21&22&23&24&25&26&27&28&29&30&31&32" -v "RS=\r?\n| " -v "ORS= " -f "Z:\KZ\001\词频_001.gawk" "Z:\KZ\001\A\!q:~1!.txt"
  99.         )
  100. :: ================= 代码1 结束=================


  103. :: ================= 代码2=================
  104. :: 1. 生成 seq.txt
  105. (for /l %%i in (0,1,9999) do (
  106.     set "num=0000%%i"
  107.     echo !num:~-4!
  108. )) > "Z:\KZ\001\seq.txt"

  110. :: 2. 动态计算最小小组数
  111. echo 正在计算最小小组数...
  112. set MIN_GROUP=999999
  113. for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  114.     Z:\KZ\001\gawk.exe "{print int((NF-1)/5000)}" "Z:/KZ/001/%%fM.txt" > "Z:\KZ\001\tmp_cnt.txt"
  115.     set /p cnt=<"Z:\KZ\001\tmp_cnt.txt"
  116.     echo %%f: !cnt!
  117.     if !cnt! lss !MIN_GROUP! set MIN_GROUP=!cnt!
  118. )
  119. del "Z:\KZ\001\tmp_cnt.txt"
  120. echo 最小小组数: !MIN_GROUP!

  122. :: 3. 处理每个小组
  123. if !MIN_GROUP! leq 0 (
  124.     echo 错误：最小小组数为0，请检查数据。
  125.     pause
  126.     exit /b
  127. )

  129. echo 处理小组1~!MIN_GROUP!...
  130. for /l %%g in (1,1,!MIN_GROUP!) do (
  131.     echo 小组 %%g
  132.     set /a "start=(%%g-1)*5000+1"
  133.     set /a "end=%%g*5000"
  134.     set "outfile=Z:\KZ\001\0000%%g.txt"
  135.     type nul > "!outfile!"
  136.     for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  137.         Z:\KZ\001\gawk.exe -v s=!start! -v e=!end! "{n=split($0,a,\" \"); if(e<=n){for(i=s;i<=e;i++) printf a[i] (i==e?\"\":\" \")}}" "Z:/KZ/001/%%fM.txt" | Z:\KZ\001\gawk.exe "{split($0,a,\" \"); for(i in a) c[a[i]]++; while((getline s<\"Z:/KZ/001/seq.txt\")>0) c[s]++; for(i in c) if(c[i]==2) print i}" >> "!outfile!"
  138.     )
  139. )

  141. :: 4. 求交集
  142. echo 计算交集...
  143. Z:\KZ\001\gawk.exe "FNR==1{No++}{for(i=0;i++<NF;)a[No][$i]=1}END{for(i in a)for(j in a[i])if(++d[j]==No)print j}" "Z:/KZ/001/0000*.txt" > "Z:/KZ/001/交集结果.txt"

  145. :: 5. 显示结果
  146. echo 交集结果已保存至 Z:\KZ\001\交集结果.txt
  147. find /c /v "" "Z:\KZ\001\交集结果.txt"
  148. del "Z:\KZ\001\seq.txt" 2>nul
  149. :: ================= 代码2 结束=================

  151.     )
  152. )
  153. endlocal
复制代码





已解决
  1. @echo off
  2. setlocal enabledelayedexpansion

  4. for /l %%d in (10000,1,10000) do (
  5.     set o=%%d
  6.     for /l %%e in (100011,1,100011) do (
  7.         set p=%%e

  9.         rem ================= 代码1 =================
  10.         "Z:\KZ\001\gawk.exe" -F"=" "NR==FNR{B[i++]=$0;next}{A[$1]=$2}END{for(i=0;i<length(B);i++){print A[B[i]]}}" "Z:\QWS\数据\!o:~1!\1234_01_2.txt" "Z:\SJKZ原版\!p:~1!.txt" | "Z:\KZ\001\gawk.exe" "NR%%8==1{close(\"Z:/KZ/001/\"n\"A.txt\");++n}{print>\"Z:/KZ/001/\"n\"A.txt\"}"

  12.         "Z:\KZ\001\gawk.exe" -f "Z:\KZ\001\replace_001.gawk"
  13.         del /q "Z:\KZ\001\*A.txt">nul 2>&1

  15.         for /l %%f in (1001,1,1500) do (
  16.             set q=%%f
  17.             "Z:\KZ\001\gawk.exe" -v "N=1&2&3&4&5&6&7&8&9&10&11&12&13&14&15&16&17&18&19&20&21&22&23&24&25&26&27&28&29&30&31&32" -v "RS=\r?\n| " -v "ORS= " -f "Z:\KZ\001\词频_001.gawk" "Z:\KZ\001\A\!q:~1!.txt"
  18.         )
  19.         rem ================= 代码1结束 =================


  22.         rem ================= 代码2 =================
  23.         rem 使用 setlocal 隔离代码2的局部变量，避免污染外层
  24.         setlocal enabledelayedexpansion

  26.         rem 1. 生成 seq.txt
  27.         (for /l %%i in (0,1,9999) do (
  28.             set "num=0000%%i"
  29.             echo !num:~-4!
  30.         )) > "Z:\KZ\001\seq.txt"

  32.         rem 2. 动态计算最小小组数
  33.         echo 正在计算最小小组数...
  34.         set MIN_GROUP=999999
  35.         for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  36.             Z:\KZ\001\gawk.exe "{print int((NF-1)/5000)}" "Z:/KZ/001/%%fM.txt" > "Z:\KZ\001\tmp_cnt.txt"
  37.             set /p cnt=<"Z:\KZ\001\tmp_cnt.txt"
  38.             echo %%f: !cnt!
  39.             if !cnt! lss !MIN_GROUP! set MIN_GROUP=!cnt!
  40.         )
  41.         del "Z:\KZ\001\tmp_cnt.txt"
  42.         echo 最小小组数: !MIN_GROUP!

  44.         if !MIN_GROUP! leq 0 (
  45.             echo 错误：最小小组数为0，请检查数据。
  46.             pause
  47.             exit /b
  48.         )

  50.         rem 3. 处理每个小组（注意边界必须用延迟变量）
  51.         echo 处理小组1~!MIN_GROUP!...
  52.         for /l %%g in (1,1,!MIN_GROUP!) do (
  53.             echo 小组 %%g
  54.             set /a "start=(%%g-1)*5000+1"
  55.             set /a "end=%%g*5000"
  56.             rem 文件名补零到4位：0001.txt 等，%%g 取位
  57.             set "gnum=0000%%g"
  58.             set "outfile=Z:\KZ\001\!gnum:~-4!.txt"
  59.             type nul > "!outfile!"
  60.             for %%f in (11 12 13 14 15 16 17 18 19 20 21 22 23) do (
  61.                 Z:\KZ\001\gawk.exe -v s=!start! -v e=!end! "{n=split($0,a,\" \"); if(e<=n){for(i=s;i<=e;i++) printf a[i] (i==e?\"\":\" \")}}" "Z:/KZ/001/%%fM.txt" | Z:\KZ\001\gawk.exe "{split($0,a,\" \"); for(i in a) c[a[i]]++; while((getline s<\"Z:/KZ/001/seq.txt\")>0) c[s]++; for(i in c) if(c[i]==2) print i}" >> "!outfile!"
  62.             )
  63.         )

  65.         rem 4. 求交集
  66.         echo 计算交集...
  67.         Z:\KZ\001\gawk.exe "FNR==1{No++}{for(i=0;i++<NF;)a[No][$i]=1}END{for(i in a)for(j in a[i])if(++d[j]==No)print j}" "Z:/KZ/001/00*.txt" > "Z:/KZ/001/交集结果.txt"

  69.         rem 5. 显示结果
  70.         echo 交集结果已保存至 Z:\KZ\001\交集结果.txt
  71.         find /c /v "" "Z:\KZ\001\交集结果.txt"
  72.         del "Z:\KZ\001\seq.txt" 2>nul

  74.         endlocal
  75.         rem ================= 代码2结束 =================
  76.     )
  77. )
  78. endlocal
  79. pause
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-7 19:03

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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