tireless

@echo off
:repeat
set /p input=请输入: 
if "%input:~2,1%" equ "" goto repeat
if "%input:~10,1%" neq "" goto repeat
for /f "delims=abcdefghijklmnopqrstuvwxyz" %%a in ("%input%") do (
  if "%%a" neq "" goto repeat
)
pause
复制代码

tireless

@echo off&setlocal enabledelayedexpansion
:repeat
set /p input=请输入: 
echo !input!>%temp%\#tmp#
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
pause
复制代码

或者：

@echo off
:repeat
set /p input=请输入: 
(call set/p="%%input%%"<nul&echo.)>%temp%\#tmp#
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
pause
复制代码

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

tireless

7楼代码已修改。

代码难看不代表效率低啊

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

tireless

好像要用 findstr 处理特殊字符，只有用 7 楼的方法（生成临时文件）

tireless

看了。试了会出错。要不你把完整代码写下，我不信不会出错...

tireless

除了 off 还包括 ^ > & " 等

tireless

for /r %%a in (*.temp) do set /a a=%%~za-2

可以换成：

for %%a in (1.temp) do set /a a=%%~za-2

-----------

findstr "[^a-z]" 没忽略大小写......不过都是鸡毛蒜皮的事......

tireless

输入 Zip，提示“输入错误”
输入 "，显示 """|findstr .....|findstr /v .............|findstr "\"[a-z]*\"$">nul&&set "a="
输入 "&"，批处理退出。