[出题]批处理限制输入只能为字母且个数在3-10之间

随风

在别的论坛看到这个题目，大家没事练练手吧，看都有些什么方法实现。
要求：对用户的输入进行判断，字符数不能少于3个,大于10个，且必须是字母（不分大小写）

tireless

1. @echo off
   
2. :repeat
   
3. set /p input=请输入:
   
4. if "%input:~2,1%" equ "" goto repeat
   
5. if "%input:~10,1%" neq "" goto repeat
   
6. for /f "delims=abcdefghijklmnopqrstuvwxyz" %%a in ("%input%") do (
   
7.   if "%%a" neq "" goto repeat
   
8. )
   
9. pause

复制代码

随风

未对大小写作判断。。

zhouyongjun

1. @echo off
   
2. :repeat
   
3. set/p input=请输入:
   
4. if "%input:~2,1%" equ "" goto repeat
   
5. if "%input:~10,1%" neq "" goto repeat
   
6. echo.%input%|findstr/i "^[a-z]*$">nul2>nul||goto repeat
   
7. pause

复制代码

[ 本帖最后由 zhouyongjun 于 2009-3-27 23:08 编辑 ]

随风

>nul2>nul  两句中间应该要个空格吧。

Batcher

1. @echo off
   
2. rem 限制输入3位至10位字母
   
3. set LenMin=3
   
4. set LenMax=10
   
5. set AllLetter=a b c d e f g h i j k l m n o p q r s t u v w x y z
   
6. 
   
7. :GetInput
   
8. set input=
   
9. set /p "input=请输入3至10位字母："
   
10. if "%input%" neq "" (
    
11.   if "%input:~2,1%" equ "" (
    
12.     echo 不足%LenMin%位
    
13.     goto :GetInput
    
14.   ) else if "%input:~10,1%" neq "" (
    
15.     echo 多于%LenMax%位
    
16.     goto :GetInput
    
17.   )
    
18. ) else (
    
19.   echo 输入不能为空
    
20.   goto :GetInput
    
21. )
    
22. setlocal enabledelayedexpansion
    
23. for %%a in (%AllLetter%) do (
    
24.   set input=!input:%%a=!
    
25.   if "!input!" equ "" (
    
26.     goto :RightInput
    
27.   )
    
28. )
    
29. if "!input!" neq "" (
    
30.   echo 只能输入纯字母[a-zA-Z]
    
31.   endlocal
    
32.   goto :GetInput
    
33. )
    
34. 
    
35. :RightInput
    
36. echo 恭喜输入正确
    
37. pause

复制代码

[ 本帖最后由 Batcher 于 2009-3-29 14:20 编辑 ]

tireless

1. @echo off&setlocal enabledelayedexpansion
   
2. :repeat
   
3. set /p input=请输入:
   
4. echo !input!>%temp%\#tmp#
   
5. findstr /xi "[a-z][a-z][a-z] [a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z]" %temp%\#tmp# >nul || goto repeat
   
6. pause

复制代码

或者：

1. @echo off
   
2. :repeat
   
3. set /p input=请输入:
   
4. (call set/p="%%input%%"<nul&echo.)>%temp%\#tmp#
   
5. findstr /xi "[a-z][a-z][a-z] [a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z] [a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z][a-z]" %temp%\#tmp# >nul || goto repeat
   
6. pause

复制代码

[ 本帖最后由 tireless 于 2009-3-27 23:47 编辑 ]

随风

I 服了 you !
思路倒是不错，只是代码。。。。。

Batcher

输入off
代码出现误判
^_^

随风

batcher 真是细心  echo.%input% 就可以解决了

zhouyongjun

哈哈，batcher思维果然严谨

tireless

7楼代码已修改。

代码难看不代表效率低啊

[ 本帖最后由 tireless 于 2009-3-27 23:34 编辑 ]

Batcher

7楼是不是再改改？否则遇到off一样会误判^_^

随风

处理 off 的办法以在10楼解决，不行么？
代码除了要讲究效率以外，还要在可能的情况下讲究简洁和美观。

Batcher

可以啊，我只是建议tireless兄更新一下7楼的代码 :）