pusofalse

 
@echo off
for %%a in (*.*) do (
    if "%%~nxa" neq "%~nx0" (
        set "name=%%~na"
        setlocal enabledelayedexpansion
        set name1=!name!
        call :lp
        ren "!name!%%~xa" "!nam!%%~xa"
        set "nam="
        endlocal
)
)
pause
:lp
if defined name1 (
set "var=!name1:~,1!"
if "!var!" leq "Z" (
if "!var!" geq "a" (
set "nam=!nam!!var!"
))
set "name1=!name1:~1!"
goto lp
)
复制代码

我是最怕特殊字符的。。。T.T

[ 本帖最后由 pusofalse 于 2008-7-27 18:48 编辑 ]

pusofalse

我觉得不用改啊
我这里的z是大写啊~

[ 本帖最后由 pusofalse 于 2008-7-27 21:09 编辑 ]

pusofalse

看到terse前辈的代码，忽然闪现了一个思路，但立刻消失了，觉得这题肯定有更简单的方法。
只需思考一个问题，如何把字母从这一堆特殊字符中提取出来即可。

pusofalse

写了将近一个小时，做是做出来了，但并不简洁。

@echo off
for %%a in (*.*) do (
 if "%%~nxa" neq "%~nx0" (
 set "name=%%~na"
 call,set name=%%name: =%%
 call,set name=%%name:!=%%
 setlocal enabledelayedexpansion
 for /l %%s in (0 1 9) do set name=!name:%%s=!
 set name=!name:%%=!
 for %%s in (@ _ # . $ - ^&) do set name=!name:%%s=!
 call :lp !name!
 echo !nam!%%~xa&set "nam="
 endlocal
))
pause&exit/b
:lp
for /f "tokens=1* delims=~" %%l in ("%1") do (
 set "n=!n!%%l
 if "%%m" neq "" (
 call :lp %%m
 ) else (
 for %%a in (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) do set n=!n:%%a= %%a !
 for %%a in (!n!) do if "%%a" geq "a" if "%%a" leq "Z" set nam=!nam!%%a
))
复制代码

pusofalse

我可是测试了好多遍的，特殊字符无非就是那么几个而已。