批处理如何将文件名中的百分数换成用中文表示

anyone4u

将一个文件夹中带有百分数的文件名中的%换成百分之
例如：文件名为“我20日以50.2%的力量.doc”、“以20.3%的力量夺取11日的胜利.doc”
需要转换成“我20日以百分之50.2的力量.doc”、“以百分之20.3的力量夺取11日的胜利.doc”

以下自写代码初步实现上述功能，但也存在部分问题

1. SETLOCAL ENABLEDELAYEDEXPANSION
   
2. FOR /F "DELIMS=" %%B IN ('DIR /B^|FINDSTR "%%"') DO (
   
3. SET NAME0=%%B
   
4. FOR /F "TOKENS=1,2 DELIMS=%%" %%E IN ("%%B") DO (
   
5. SET NAME1=%%E
   
6. SET NAME2=%%F
   
7. CALL :NUM
   
8. ))
   
9. 
   
10. :NUM
    
11. SET NUM0=
    
12. FOR /L %%G IN (5,-1,1) DO (
    
13. SET Z=!NAME1:~-%%G,1!
    
14. IF !Z! GEQ 0 IF !Z! LEQ 9 SET NUM0=!NAME1:~-%%G! && SET NAME11=!NAME1:~0,-%%G! && GOTO END
    
15. )
    
16. 
    
17. :END
    
18. SET NUM0=!NUM0: =!
    
19. set NAME11=!NAME11: =!
    
20. echo "!NAME11!百分之!NUM0!!NAME2!"

复制代码

经过处理，解决部分问题。但仍存在以下问题：
1、NUM0总会把其中一个含%的文件名多取一次，例如上面的两个文件名，最后NUM0的数值是50.2 20.3 20.3，且在数值最后多一个空格
2、在文件名中百分数（含）5个字符内还有其他数字，结果将会出错。例：文件名为“1我15%.doc”，改名后结果为“百分之1我15.doc”。


望得到各位大大的帮助~不甚感谢~

yhcfsr

1. powershell dir *.*^|foreach{ren $_ ($_ -replace '([\d.]+)%','百分之$1')}

复制代码

anyone4u

回复 2# yhcfsr
powershell还未涉猎，请问如何单纯用批处理进行实现或我的代码如何修改能正确实现需要的功能。谢谢~

ivor

回复 3# anyone4u


    赶紧涉猎一下吧，powershell是必然趋势

anyone4u

回复 4# ivor
远水救不了近火啊，先解决这个问题再行学习

WHY

1. @if(0)==(0) echo off
   
2. for /f "tokens=1* delims=/" %%i in ('dir /b *%%* ^| cscript //nologo //e:jscript "%~f0"') do (
   
3.     echo;"%%i" "%%j"
   
4. )
   
5. pause & exit
   
6. @end
   
7. 
   
8. while ( !WSH.StdIn.AtEndOfStream ) {
   
9.     var f = WSH.StdIn.ReadLine();
   
10.     WSH.Echo( f + '/' + f.replace(/(\d+(?:\.\d*)?)%/g, '百分之$1') );
    
11. }

复制代码

anyone4u

回复 7# Gin_Q
如果百分数是整数，不存在小数点的话这个方法就不行了。

yhcfsr

1. @echo off
   
2. 
   
3. for /r %%a in (*.*) do (
   
4.         set "fullpath=%%~fa"
   
5.         for /f "tokens=1,* delims=%%" %%i in ("%%~nxa") do if "%%j" neq "" call :ren_file "%%~i" "%%~j"
   
6.         )
   
7. )
   
8. pause&exit /b
   
9. :ren_file
   
10. set "prefix=%~1"&&set "num="
    
11. :loop
    
12. set "ch=%prefix:~-1%"
    
13. if "%ch%"=="." (set "prefix=%prefix:~,-1%"&&set "num=%ch%%num%"&&goto :loop)
    
14. if "%ch%" leq "9" if "%ch%" geq "0" (set "prefix=%prefix:~,-1%"&&set "num=%ch%%num%"&&goto :loop)
    
15. ren "%fullpath%" "%prefix%百分之%num%%~2"
    
16. exit /b

复制代码

Gin_Q

回复 8# yhcfsr


    for /r 识别%号，赞一个！
    我改了一下，50%以数字开头问题

1. @echo off
   
2. 
   
3. for /r %%a in (*.*) do (
   
4.     for /f "tokens=1,* delims=%%" %%i in ("%%~nxa") do (
   
5.         if "%%j" neq "" call :check "%%i" "%%j"
   
6.     )
   
7. )
   
8. 
   
9. pause &exit
   
10. :check
    
11.     set "str=%~1"
    
12.     set "digit="
    
13.     :loop
    
14.         set "ch=%str:~-1%"
    
15.         if "%ch%" == "" goto :re_name
    
16.         if "%ch%" == "." (
    
17.             set str=%str:~0,-1%
    
18.             set digit=%ch%%digit%
    
19.             goto :loop)
    
20.         if "%ch%" geq "0" if "%ch%" leq "9" (
    
21.             set str=%str:~0,-1%
    
22.             set digit=%ch%%digit%
    
23.             goto :loop)
    
24.     :re_name
    
25.         echo %str%百分之%digit%%~2%
    
26.     exit /b
    

复制代码

WHY

修改顶楼的脚本：

1. @echo off
   
2. SETLOCAL ENABLEDELAYEDEXPANSION
   
3. FOR /F "tokens=1* DELIMS=%%" %%B IN ('DIR /B /a-d *%%*') DO (
   
4.     SET "NAME0=%%B"
   
5.     CALL :NUM
   
6.     echo;"%%B%%%%C" "!NAME1!%%C"
   
7. )
   
8. pause & exit /b
   
9. 
   
10. :NUM
    
11. FOR /L %%G IN (1,1,5) DO (
    
12.     SET "Z=!NAME0:~-%%G!"
    
13.     for /f "delims=1234567890." %%i in ("#!Z!") do (
    
14.         if "%%i" == "#" (
    
15.             set "NAME1=!NAME0:~0,-%%G!百分之!Z!"
    
16.         ) else goto :EOF
    
17.     )
    
18. )

复制代码

Gin_Q

回复 10# WHY


    不错，echo %%还可以这样！5次循环感觉不怎么好，写死了！2位数也会执行5次，超过5次又会bug。

anyone4u

回复 8# yhcfsr
你的脚本比较完美的解决我的问题，但仍存在文件名中若存在多个百分数无法正确改名的小问题。

anyone4u

回复 11# Gin_Q
我这里的文件基本不会出现超过100%的百分数，所以一开始就弄了个比较笨的方法来处理。

went

第9行打开重命名

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /r %%i in ("*%%*.*") do (
   
4.         set "newName=%%~ni"
   
5.         set "newName=!newName:%%=%%%%!"
   
6.         call :getNewName "!newName!"
   
7.         echo %%i
   
8.         echo !newName!%%~xi
   
9.         REM rename "%%i" "!newName!%%~xi"
   
10.         echo ------------------------
    
11. )
    
12. pause&exit
    
13. 
    
14. :getNewName
    
15. set "str=%~1"
    
16. set "numStr="
    
17. set "newName="
    
18.         :loop
    
19.         set /a "1/%str:~0,1%" >nul 2>nul && set "numStr=%numStr%%str:~0,1%" || (
    
20.                 if "%str:~0,1%"=="0" (
    
21.                         set "numStr=%numStr%0"
    
22.                 ) else (
    
23.                         if "%str:~0,1%"=="." (
    
24.                                 set "numStr=%numStr%."
    
25.                         ) else (
    
26.                                 if "%str:~0,1%"=="%%" (
    
27.                                                 set "newName=%newName%百分之%numStr%"
    
28.                                                 set "numStr="
    
29.                                 ) else (
    
30.                                         set "newName=%newName%%numStr%%str:~0,1%"
    
31.                                         set "numStr="
    
32.                                 )
    
33.                         )
    
34.                 )
    
35.         )
    
36.         set "str=%str:~1%"
    
37.         if not "%str%"=="" goto :loop
    
38. goto :eof

复制代码

yhcfsr

回复 12# anyone4u

1. @echo off
   
2. Powershell -Command "& {Get-ChildItem *.* -r |foreach-object{ren $_ ($_.Name -replace '([\d.]+)%%','百分之$1')}}"&pause

复制代码

这段BAT代码可以满足你, 前提必须是WIN7及以上系统