批处理怎样递归目录，输出对应的xml文件？

ywh0512

用bat实现，递归目录，输出对应的xml文件

1、下面是用tree /f 打印出来的目录结构
D:.
│  
├─天国地狱
│      Test.txt
│      天国地狱.txt
│      
├─战场
│      怪物能力.txt
│      战场.txt
│      
└─神殿攻防战
    │  神殿NPC.txt
    │  神殿攻防战.txt
    │  
    └─AA
        │  AA.txt
        │  神殿NPC.txt
        │  
        └─BB
                BB.txt
                神殿攻防战.txt

2、下面是根据1来输出的xml文档内容（注意：XXXX代表文件夹或文件前面的绝对路径）
<?xml version="1.0" encoding="utf-8" ?>

<Document>
        <Button name="天国地狱" path="XXXX\天国地狱\天国地狱.txt">
                <Button name="Test" path="XXXX\天国地狱\Test.txt"/>
        </Button>
        <Button name="战场" path="XXXX\战场\战场.txt">
                <Button name="怪物能力" path="XXXX\战场\怪物能力.txt"/>
        </Button>
        <Button name="神殿攻防战" path="XXXX\神殿攻防战\神殿攻防战.txt">
                <Button name="神殿NPC" path="XXXX\神殿攻防战\神殿NPC.txt"/>
                <Button name="AA" path="XXXX\神殿攻防战\AA\AA.txt">
                        <Button name="神殿NPC" path="XXXX\神殿攻防战\AA\神殿NPC.txt"/>
                        <Button name="BB" path="XXXX\神殿攻防战\AA\BB\BB.txt">
                                <Button name="神殿攻防战" path="XXXX\神殿攻防战\AA\BB\神殿攻防战.txt"/>
                        </Button>
                </Button>
        </Button>
</Document>

went

1. @echo off & cd /d "%~dp0"
   
2. set "TAB=    "
   
3. (
   
4.         echo.^<?xml version="1.0" encoding="utf-8" ?^>
   
5.         echo. ^<Document^>
   
6.         for /d %%i in (*) do call :build_dir "%cd%\%%~i" "%TAB%"
   
7.         echo. ^</Document^>
   
8. ) > "%~n0.xml"
   
9. type "%~n0.xml"
   
10. pause&exit
    
11. 
    
12. :build_dir
    
13. echo.%~2^<Button name="%~n1" path="%~1\%~n1.txt"^>
    
14. for %%i in ("%~1\*.txt") do if not "%%~ni"=="%~n1" echo.%~2%TAB%^<Button name="%%~ni" path="%%~i"/^>
    
15. for /d %%i in (%~1\*) do call :build_dir "%%~i" "%~2%TAB%"
    
16. echo.%~2^</Button^>

复制代码

ywh0512

回复 2# went


    牛啊，没毛病

czjt1234

回复 2# went


    厉害，巧妙地递归了文件和文件

czjt1234

1. Dim oStream, file1, file2, s
   
2. 
   
3. file1 = "1.txt"    '源文件
   
4. file2 = "2.txt"    '目标文件
   
5. 
   
6. Set oStream = CreateObject("ADODB.Stream")
   
7. oStream.Type = 2    'adTypeText
   
8. oStream.Mode = 3    'adModeReadWrite
   
9. oStream.Charset = "gb2312"    '原编码
   
10. oStream.Open()
    
11. oStream.LoadFromFile file1
    
12. s = oStream.ReadText()
    
13. oStream.Close()
    
14. oStream.Charset = "utf-8"     '目标编码
    
15. oStream.Open()
    
16. oStream.WriteText s
    
17. oStream.SaveToFile file2, 2    'adSaveCreateOverWrite
    
18. oStream.Close()
    
19. 
    
20. MsgBox "ok"

复制代码

可能你还需要一个转换编码的vbs

terse

二楼代码15行for里路径是不是加上引号呢 以免空格情况