智能文件选择列表 批处理

lintrainwy

1. 
   
2. @echo off
   
3. setlocal enabledelayedexpansion
   
4. title 智能文件选择列表
   
5. 
   
6. pushd %~dp0 & cd /d %~dp0
   
7. 
   
8. 
   
9. :menu
   
10. ::智能文件选择列表 *.wim
    
11. if not defined wimfile call :filesel wim
    
12. 
    
13. if %errorlevel%==0 (
    
14.         set wimfile=%selfile%
    
15.         echo 已经选择：!wimfile!
    
16. ) else (
    
17.         echo 错误：未找到 *.%suffix% 文件...
    
18. )
    
19. 
    
20. pause
    
21. 
    
22. 
    
23. ::=================================================
    
24. goto :EOF
    
25. :filesel
    
26. ::智能文件选择列表
    
27. ::只有1个文件时自动选中，大于1≤100列表文件，＞100则不再列表，改为手动输入；选择错误会自动返回选择菜单。
    
28. ::列表菜单 空格键翻页，Q结束翻页
    
29. set "suffix=%~1"
    
30. set "errorlevel=0"
    
31. for /f %%a in ('dir /a /b *.%suffix% 2^>nul ^| find /c /n /v ""') do set filenum=%%a
    
32. if %filenum% EQU 0 ( set "errorlevel=1" & goto :EOF )
    
33. if %filenum% GTR 100 (
    
34.         echo 当前文件数目大于100，列表已带来不了多少便利
    
35.         echo 请输入文件路径:
    
36.         set /p selfile=
    
37.         set selfile=!selfile:"=!
    
38.         cls & goto :EOF )
    
39. if %filenum% EQU 1 ( set select=1 ) else (
    
40.         dir /a /b *.%suffix% | find /n /v "" | more & set /p select=请输入文件编号：
    
41. )
    
42. 
    
43. if %select% LSS 1          ( echo 只能输入 1 - %filenum% 之间的数字 && pause>nul && goto filesel )
    
44. if %select% GTR %filenum% ( echo 只能输入 1 - %filenum% 之间的数字 && pause>nul && goto filesel )
    
45. set /a var=%select%-1
    
46. 
    
47. if not %var% LEQ 0 ( set "skip=skip=%var% " ) else set skip=
    
48. for /f "%skip%delims=" %%b in ('dir /a /b *.%suffix% ^| find /v ""') do (
    
49.         set "selfile=%%~fb" && cls & goto :EOF
    
50. )
    
51. ::=================================================

复制代码