@echo off
:: 對當前目錄下所有以ca開頭的含有數字的文件進行改名
:: code by NaturalJ0 2006-9-27
setlocal ENABLEDELAYEDEXPANSION
for /f %%i in ('dir/b cb*.rmvb') do (
        call :GETNUM %%i
        if not !number!==# (
                ren %%i cb_!number!.rmvb 2>nul || echo cb_!number!.rmvb 已存在，%%i 不能再改名為 cb_!number!.rmvb ，請自己手動處理。
        )
)
echo.
echo 處理完畢，按任意鍵結束。
pause>nul
GOTO END

:GETNUM
set varstr=%1#
set number=#
:LOOP
if !varstr!==# GOTO ENDLOOP
set firstchar=!varstr:~0,1!
if !firstchar! GEQ 0 (
        if !firstchar! LEQ 9 (
                set number=!number!!firstchar!
        )
)
set varstr=!varstr:~1!
GOTO LOOP
:ENDLOOP
if not !number!==# set number=!number:~1!
:END