批处理for /l 循环异常退出的小问题

3351321147

我在批处理里进行读取文件内容操作，有需求for /l 循环10次，有时候好好的10次，但是不知原因会出现%i然后下次就退出循环，比如，循环到4，5变成了%i，6就没了。

77七

请把代码发出来看看

3351321147

回复 2# 77七


    有第三方命令，speak echox
    使用话需要，改下txt文件位置

1. @echo off
   
2. :+ spaek 朗读文本
   
3. 
   
4. 
   
5. set txt="C:\Users\33513\Desktop\English.txt"
   
6. 
   
7. setlocal ENABLEDELAYEDEXPANSION
   
8. echo.&echo.&title %~n0 & echo.        单词拼写 & echo.
   
9. 
   
10. :: 存储选择的天数记录行数1选择的2下一个
    
11. set day1=
    
12. set day2=
    
13. 
    
14. :: boolean判断是否选择了,name是选择的天数
    
15. set boolean=false
    
16. set name=
    
17. 
    
18. :: 单词数量记录
    
19. set /a munF=0
    
20. 
    
21. : forS
    
22. :: 循环英语列表然后将bay输出供选择
    
23. for /f "tokens=1-9 delims=:" %%a in ('type %txt% ^| findstr /n ".*day"') do (
    
24.         :: %%a 是行号,%%b是天数bay
    
25.         set i=%%b
    
26.         set i=!i:~0,1!!
    
27.         if !boolean! EQU true set day2=%%a & goto forF
    
28.         if not defined name (
    
29.                 if 0 EQU  !munF! (set  munF=%%a) else (
    
30.                         set /a "munF=%%a - !munF! -1"
    
31.                         echox -fc "        单词量: !munF!"
    
32.                         set munF=%%a
    
33.                         )
    
34.                 echox -n "        %%b"
    
35.                 ) else if !name! EQU !i! (
    
36.                 set boolean=true
    
37.                 set day1=%%a
    
38.         )
    
39. )
    
40. echox -fc "        单词量: 0"
    
41. if !boolean! EQU true goto forF
    
42. echo x退出
    
43. echo.请输入天数的数字:
    
44. set /p name=数字:
    
45. if /i %name% EQU x exit
    
46. goto forS
    
47. 
    
48. :forF
    
49. :: 循环考研10次
    
50. set a=0
    
51. for /L %%a in (1,1,10) do (
    
52.         : s
    
53.         :: 通过计算将随机数设置在指定行号之间
    
54.         set /a "s=!random! %%(%day2%-%day1%-1)"
    
55.         :: 判断重复,小判断
    
56.         if !a! EQU !s! (goto s) else (set a=!s!)
    
57.         echo.& echo.第%%a句
    
58.         call :dp !s!
    
59. ) 2>nul
    
60. goto del
    
61. 
    
62. 
    
63. : dp
    
64. :: 通过%1行号然后循环判断到%1行号后将单词与文本调用
    
65. set name=%1
    
66. set /a mundp=0
    
67. for /f "skip=%day1% tokens=1,2 delims= " %%a in ('type %txt%') do (
    
68.         if !mundp! EQU !name! call :forFs %%a %%b& goto :eof
    
69.         set /a mundp+=1
    
70. )
    
71. 
    
72. 
    
73. :forFs
    
74. start /i /b /min ""  speak -t %1
    
75. echox -n 请输入英语: & echox -fc " %2"
    
76. set /p yinyu=英语:
    
77. if   /i "!yinyu!" EQU "%1" (goto true ) else (
    
78.         echox -fc "您输入有误: %1"
    
79.         speak -t %1
    
80.         goto false
    
81.         )
    
82. goto forFs
    
83. 
    
84. : true
    
85. set /a muna+=1
    
86. echox -fc 输入正确!
    
87. goto :eof
    
88. 
    
89. : false
    
90. set /a munx+=1
    
91. goto :eof
    
92. 
    
93. : del
    
94. if not defined muna set muna=0
    
95. if not defined munx set munx=0
    
96. set /a munMAX+=1
    
97. echox -f9 "        当前正确数量: !muna!"
    
98. echox -f9 "        当前错误数量: !munx!"
    
99. echox -f9 "        当前执行次数: !munMAX!"
    
100. if !munx! EQU 0 (echox -fd "恭喜你没错误完成了！！！") else echo 再接再厉
     
101. 
     
102. pause >nul
     
103. %0

复制代码

3351321147

回复 3# 3351321147


    文本

1. 1day
   
2.         i                我
   
3.         my                我的
   
4.         like                喜欢
   
5.         you                你
   
6.         your                你的
   
7.         mother                母亲
   
8.         father                父亲
   
9.         dog                狗
   
10.         cat                猫
    
11.         book                书
    
12.         student                学生
    
13.         teacher                老师
    
14. 2day
    
15.         red                红色
    
16.         green                绿色
    
17.         blue                蓝色
    
18.         black                黑色
    
19.         white                白色
    
20.         big                大
    
21.         small                小
    
22.         room                房间
    
23.         we                我们
    
24.         our                我们的
    
25.         phone                手机
    
26.         house                房子
    
27.         computer        电脑
    
28.         Ther                他们
    
29.         their                他们的
    
30. 3day

复制代码

3351321147

[img][/img]回复 4# 3351321147

1.     :forF
   
2. :: 循环考研10次
   
3. set a=0
   
4. for /L %%a in (1,1,10) do (
   
5.         : s
   
6.         :: 通过计算将随机数设置在指定行号之间
   
7.         set /a "s=!random! %%(%day2%-%day1%-1)"
   
8.         :: 判断重复,小判断
   
9.         if !a! EQU !s! (goto s) else (set a=!s!)
   
10.         echo.& echo.第%%a句
    
11.         call :dp !s!
    
12. ) 2>nul

复制代码

是这部分，会出现%a退出情况

77七

回复 5# 3351321147


     试试把语句内的注释去掉，或者改为rem
还有不要在括号内写标签

3351321147

谢谢大佬，我把标签取消了，记录了选择单词总量，重复加1，超出换1，没有出现上述问题，谢谢
为什么循环里不要用标签，和注释大佬。

77七

回复 7# 3351321147

1. @echo off
   
2. for %%a in (1 2) do (
   
3.         echo %%a
   
4.         :: 123
   
5. )
   
6. pause

复制代码

::这个注释用在语句内有时候会导致闪退，比如上面的代码

标签，从括号内往外跳可以，不能跳到括号内。
大概就是前辈们的经验，我也不知道为什么。

Five66

http://www.bathome.net/post.php? ... p;extra=&page=2