[特效代码] 批处理返回的内容（窗口内）更易看一些？（附带原代码）

:aki
SetLocal EnableDelayedExpansion
   For /R %%a In (*.mp4 *.rmvb *.mkv) Do (
   Set "Str=%%~nxa"
    SetLocal&Cls
    Echo 视频文件：%%~nxa&Echo, 
    For /f "Delims=" %%b In ('Dir /ad /b F:\视频') Do (
      Set /A Num+=1,Number+=1&Set ".!Num!=F:\视频\%%b"
      Set "Str=000!Num!"&Set "Var=%%b                    " 
      Set /P=[!Str:~-3!]!Var:~,20!<nul
      If "!Number!" EQU "2" Echo,&Set /A Number=0
    )
    Echo,&Set "Str="&Set /P Str=请选择文件夹,0,退出:
      If /i "!Str!" EQU "0" (goto 6)
    For %%b in (!Str!) do Echo !.%%b!>tem
    EndLocal
    Set /p Str=<tem&Del tem
   Echo,&Set "Var="&Set /P Var=1,直接建立文件夹 2，打开子文件夹 3,返回上一步：
      If /i "!Var!" EQU "3" (goto aki)    
      If /i "!Var!" EQU "2" (
      SetLocal&Cls
      Echo 视频文件：%%~nxa&Echo,
      For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (
        Set /A Num+=1,Number+=1&Set ".!Num!=%%b"
        Set "Str1=000!Num!"&Set "Var=%%b                    " 
        Set /P=[!Str1:~-3!]!Var:~,20!<nul
        If "!Number!" EQU "2" Echo,&Set /A Number=0
      )
 Echo,&Set "Str="&Set /P Str=请选择文件夹,+3,返回上一步:
      If /i "!Str!" EQU "+3" (goto aki)
      For %%b in (!Str!) do Echo !.%%b!>tem
      EndLocal
      Set /p Str=<tem&Del tem
    )  
      SetLocal&Cls
      Echo 视频文件：%%~nxa&Echo,
      For /F "Delims=" %%b In ('Dir /s /ad /b "!Str!"') Do (
        Set /A Num+=1,Number+=1&Set ".!Num!=%%b"
        Set "Str1=000!Num!"&Set "Var=%%b                    " 
        Set /P=[!Str1:~-3!]!Var:~,20!<nul
        If "!Number!" EQU "2" Echo,&Set /A Number=0
      )
 Echo,&Set "Str="&Set /P Str=请选择文件夹,+3,返回上一步:
      If /i "!Str!" EQU "+3" (goto aki)
      For %%b in (!Str!) do Echo !.%%b!>tem
      EndLocal
      Set /p Str=<tem&Del tem
    Move "%%a" "!Str!\!%%b!\"
复制代码