Mittels Batch mehrere Einträge aus mehreren XML-Dateien in eine Textdatei schreiben

Hallo,

eigentlich steht das Problem schon im Titel ;)

Ich habe mehrere tausend XML-Dateien, die der gleichen Grammatik folgen und würde gerne bestimmte Informationen daraus in eine einzige Textdatei schreiben, wobei die einzelnen Einträge mittels selbst definiertem Trennzeichen (Tabulator oder Semikolon ist erstmal egal - dient zum späteren Datenimport in Excel) in eine Zeile geschrieben werden sollen und für jede XML-Datei genau 1 Zeile belegt werden soll.

Die XML-Dateien befinden sich darüber hinaus in Unterordnern, so dass man die unterschiedlichen Pfade in den Batch-Aufruf integrieren müsste. Es ist mir aber bereits gelungen, sämtliche Pfade zu den .nfo-Dateien vorab in einer Datei mittels diesem Code abzulegen, der wiederum mittels der Datei list_all_nfos.bat gestartet wird (diese könnte man also in die Batch-Prozedur integrieren):


Die XML-Dateien seien wiederum wie folgt aufgebaut ("..." ist unwichtiges Zeugs):


Herauskommen soll hierbei die folgende Zeile (Tabulatorenabstand):


Danach soll automatisch ein Zeilenumbruch eingefügt und die nächste .nfo-Datei geparst werden, bis das Programm keine weiteren findet (also die nfo-list.txt am Ende angekommen ist).

Wichtig hierbei ist, dass die herauszuziehenden Informationen bei allen Dateien immer zwischen denselben Tags liegen (alle XML-Dateien unterliegen derselben Grammatik), d.h. der Titel liegt immer zwischen <title> und </title>, das Jahr immer zwischen <year> und </year> usw., aber wo sich diese Tags konkret befinden, ist von Datei zu Datei unterschiedlich, da sich jeweils eine weitere Menge an unterschiedlichen Informationen darin befinden. Außerdem kommen die meisten gesuchten Tags nur 1x pro Datei vor, d.h. es gibt nur einen Titel und nur ein Jahr usw., aber es gibt 2x den <hidden> & </hidden> Tag, so dass man dort den vorangehenden Tag mit einbeziehen müsste - also <astate> & <vstate>.


Wäre das überhaupt mittels Batch-Programmierung umzusetzen?

Danke und Gruß!

@echo off & setlocal enabledelayedexpansion
set "Basis=D:\Startordner"  
set "CSV=Gesamt.csv"  
set "Delim=;"  

pushd "%Basis%"  
del "%CSV%" 2>nul  
for /f "delims=" %%i in ('dir /s /b *.nfo') do (  
    set "Record="  
    for %%f in ("<title>" "<year>" "<durance>" "<lead>" "<hidden>") do (  
        for /f "tokens=3 delims=<>" %%v in ('findstr %%f %%i') do set "Record=!Record!%Delim%%%v"  
    )
    >>"%CSV%" echo !Record:~1!  
)
popd

(...alles wie oben...)
  <extract>
    <details>
      <astate>
        <hidden>stealth</hidden>
        <movement>move</movement>
        ...
      </astate>
      <astate>
        <hidden>stealth2</hidden>
        <movement>move2</movement>
        ...
      </astate>
      <vstate>
        <hidden>block</hidden>
        ...
        <size>large</size>
      </vstate>
    </details>
  </extract>
</data>

Dies ist ein Titel;2006;5.3;Alfred / Josef / Mike;stealth: move;stealth2: move2;block: large

@echo off & setlocal
set "Basis=D:\Startordner"  
set "CSV=Gesamt.csv"  
set "Delim=;"  

pushd "%Basis%"  
del "%CSV%" 2>nul  
for /f "delims=" %%i in ('dir /s /b *.nfo') do call :ProcessFile "%%i"  
popd
goto :eof

:ProcessFile
set "Record="  
for %%f in ("<title>" "<year>" "<durance>" "<lead>" "<hidden>") do for /f "tokens=3 delims=<>" %%v in ('findstr %%f %1') do call :ProcessField "%%v"  
>>"%CSV%" echo %Record:~1%  
goto :eof

:ProcessField
set "Record=%Record%%Delim%%~1"  
goto :eof

  ...
  <extract>
    <details>
      <astate>
        ...
      </astate>
      <astate>
        ...
      </astate>
      <vstate>
        ...
        <hidden>block</hidden>
        ...
        <size>large</size>
      </vstate>
    </details>
  </extract>
</data>

:ProcessFile
set "Record="  
for %%f in ("<title>" "<year>" "<durance>" "<lead>") do for /f "tokens=3 delims=<>" %%v in ('findstr %%f %1') do call :ProcessField "%%v"  
set "Hidden="  
for /f "tokens=3 delims=<>" %%v in ('findstr "<hidden>" %1') do set "Hidden=%%v"  
for /f "tokens=3 delims=<>" %%v in ('findstr "<size>" %1') do set "Hidden=%Hidden%: %%v"  
>>"%CSV%" echo %Record%%Hidden%  
goto :eof

:ProcessField
set "Record=%Record%%~1%Delim%"  
goto :eof

Dies ist ein Titel;2006;5.3;Alfred / Josef / Mike;block: large
Bonnie
Das ist auch ein Titel;2003;6.9;Fred / Harald;block: small

set "Record=%Record:&=^&%"

Bonnie ^^

:ProcessField
set "Record=%Record%%~1%Delim%"  
set "Record=%Record:&=^&%"  
goto :eof

:ProcessField
set Record=%Record%%1%Delim%
goto :eof

:ProcessFile
set "Record="  
for %%f in ("<title>") do echo %%i  

if not defined Record echo %1