DDK Source Files Allot

1. :: DDK Source Files Allot
2. :: 从DDK的cab中解压出来的文件没有目录层级，但每个文件的文件名中包含了该文件所应
3. :: 处于的位置。本批处理将处理单个目录中的所有文件，解析每个文件名，将之改为正确
4. :: 名称并放入正确位置。 经测试适用于98DDK
5. :: Author: ZeroFire(炽火)
   
6. :: ver beat0.1[20080910]
7. 
   
9. @echo off
10. setlocal enabledelayedexpansion
11. rem mode con lines=26
12. color 1f
13. cls
14. title 批量处理DDK中解压的文件名
15. set fullpath=%~dp0
16. set selfname=%~nx0
17. 
    
19. :start
20. set oldname=
21. :: 遍历当前目录下的所有文件
22. for /f "usebackq delims=" %%f in (`dir /b/a-d .`) do (
23.   set "var=%%~nf"
24.   for /f "tokens=1,2,3,4,5,6,7,8,9* delims=_" %%i in ("!var!") do (
25.     call :mkdir %%f %%i %%j %%k %%l %%m %%n %%o %%p %%q
26.   )
27. )
28. goto ok
29. 
    
31. :: 函数mkdir按照给定参数顺序检查是否存在匹配的目录树，如果不存在则创建该目录
32. :: 然后将文件改为正确名称后移动到正确位置
33. :: %1是目标文件名 %2~9之后是目录树
34. :mkdir
35. if "%3"=="" ( goto :EOF )
36. set shortname=%1
37. :loop
38. if "%3"=="" (
39.   move "%fullpath%%1" "!shortname!"
40.   set shortpath=%CD%
41.   set "shortpath=!shortpath:%fullpath%=!"
42.   echo !shortpath!/!shortname!
43. ) else (
44.   if not exist "%2" (
45.     md "%2"
46.   )
47.   cd "%2"
49.   set "shortname=!shortname:%2_=!"
51.   shift /2
52.   goto loop
53. )
54. cd %fullpath%
55. goto :EOF
56. 
    
58. :: 显示成功信息并退出
59. :ok
60. echo done ^^_^^
61. pause >nul
62. goto :EOF