XML nach bestimmten Feldern auslesen und in CSV exportieren

@echo off&setlocal

REM "Suche in der XML-Datei bis Du "Field Name=GUID" + Field Name="Personalnummer_Eingabe" usw findest und schreibe die jeweils nachfolgenden Werte in eine Zeile einer Textdatei mit ";" getrennt. Sobald Du beim nächsten "Field Name=GUID" ankommst beginnst Du eine neue Zeile und schreibst die nächsten Werte in eine neue Zeile."  

:: XML-Datei angeben oder als ersten parameter der Batch uebergeben
set "XML-Name=%~1"  
if not defined XML-Name set "XML-Name=D:\Adminhelp\XML-test.XML"  

set KopfDaten1="GUID"  
set KopfDaten2="Personalnummer_Eingabefeld"  
::mehr Kopfdaten mit: set Kopfdaten3=...

::Ueberschrift ausblenden: set "Ueberschrift=" 
set "Ueberschrift=1"  

set "DatenLesenVorn=<Field Name="  
set "DatenLesenHinten=>"  

set "EndeDatenLesen=</Field>"  


if defined Ueberschrift (
	set "Ueberschrift="  
	for /f "tokens=1* delims==" %%i in ('set Kopfdaten') do (  
		if defined Ueberschrift (setlocal enabledelayedexpansion
			for /f "delims=" %%k in ("!Ueberschrift!") do endlocal&set "Ueberschrift=%%k,%%j"  
		) else set "Ueberschrift=%%j"  
)	)

(
type "%XML-Name%"  
setlocal enabledelayedexpansion
echo.
echo.!DatenLesenVorn!!KopfDaten1!!DatenLesenHinten!
endlocal
)>"%temp%\XML"  

(
for /f "usebackq delims=" %%a in ("%temp%\XML") do (  
	for /f "tokens=1* delims==" %%b in ('set KopfDaten') do (  
		setlocal EnableDelayedExpansion
		Rem wenn KopfZeile gesetzt und gefunden dann zeige Ergebnis der Zeile
		if "%DatenLesenVorn%!Zeigen!%DatenLesenHinten%" == "%%a" (  
			if defined Line (
				if defined Ueberschrift echo.!Ueberschrift!
				echo.!Line!
			)
			endlocal
			if defined Line set "Ueberschrift="  
			set "Line="  
		) else endlocal
		if "%DatenLesenVorn%%Kopfdaten1%%DatenLesenHinten%" == "%%a" if not defined Zeigen set "Zeigen=%Kopfdaten1%"  
		if "%EndeDatenLesen%" == "%%a" set "Lesen="  
		setlocal enabledelayedexpansion
		if "!Lesen!" == "%%c" (  
			endlocal
			if defined Line (
				setlocal enabledelayedexpansion
				for /f "delims=" %%d in ("!Line!") do endlocal&set "Line=%%d;%%a"  
			) else set "Line=%%a"  
		) else endlocal
		if "%DatenLesenVorn%%%c%DatenLesenHinten%" == "%%a" set "Lesen=%%c"  
)	)
)>%XML-Name:~0,-4%.csv
del "%temp%\XML"