Per Batch unbekannte Inhalte an variablen Stellen aus Textdatei auslesen und in neue Textdatei einfügen

@echo off & setlocal
set "Ein=D:\Logdatei.txt"  
set "Aus=D:\Ergebnisdatei.txt"  

del "%Aus%" 2>nul  
REM Alle Zeilen mit den gesuchten Begriffen "Datum:" und "Benutzername:" ausfiltern und jeweils  
REM an das Verarbeitungsunterprogramm als Parameter übergeben
for /f "delims=" %%i in ('findstr "Datum: Benutzername:" "%Ein%"') do call :ProcessLine "%%i"  

REM Ende Hauptprogramm (damit Unterprogramm nicht nochmals durchlaufen wird)
goto :eof

:ProcessLine
REM Schalter rücksetzen = (Inhalte der) Variablen löschen
set "Gefunden=" & set "Wert="  

REM Schleife über alle "Worte" der Zeile (=Parameter %1);  
REM mit %~1 werden die umgebenden Anführungezeichen entfernt,
REM sodass anhand der Leerzeichen zerlegt werden kann
for %%a in (%~1) do (

    REM Wurde in dieser Zeile noch kein Suchbegriff gefunden?
    if not defined Gefunden (

        REM Wenn aktuelles Wort ein Suchbegriff ist,
        REM Art des Begriffes in der Variablen %Gefunden% speichern;
        if "%%a"=="Datum:" set "Gefunden=Datum"  
        if "%%a"=="Benutzername:" set "Gefunden=Benutzername"  

        REM ansonsten dieses Wort ignorieren

    ) else (

        REM Es wurde ein Suchbegriff gefunden, daher jetzt den
        REM zugehörigen Wert speichern; dies aber nur für das
        REM nächste Wort (und nicht für alle weiteren der Zeile) -
        REM deshalb die Abfrage, ob der Wert bereits vorhanden ist
        if not defined Wert set "Wert=%%a"  
    )
)
REM Wenn ein ein Wert gefunden wurde, kann er der passenden
REM Variablen (Name lt %Gefunden%) zugewiesen werden
if defined Wert set "%Gefunden%=%Wert%"  

REM Wenn ein Benutzername gefunden wurde
REM (ganz exakt wäre es, auch das Vorhandensein
REM (des Datums zu kontrollieren),
if defined Benutzername (

    REM Ausgabe durchführen und
    >>"%Aus%" echo %Datum% %Benutzername%  

    REM Werte des Datensatzes wieder löschen
    set "Datum=" & set "Benutzername="  
)
REM Rücksprung ins Hauptprogramm
goto :eof

D:\TEMP>call :ProcessLine "irgendeineZeile Datum: DATUM1"  

D:\TEMP>set "Gefunden="   & set "Wert="  

D:\TEMP>for %a in (irgendeineZeile Datum: DATUM1) do (if not defined Gefunden (
if "%a" == "Datum:" set "Gefunden=Datum"  
 if "%a" == "Benutzername:" set "Gefunden=Benutzername"  
)  else (if not defined Wert set "Wert=%a" ) )  

D:\TEMP>(if not defined Gefunden (
if "irgendeineZeile" == "Datum:" set "Gefunden=Datum"  
 if "irgendeineZeile" == "Benutzername:" set "Gefunden=Benutzername"  
)  else (if not defined Wert set "Wert=irgendeineZeile" ) )  

D:\TEMP>(if not defined Gefunden (
if "Datum:" == "Datum:" set "Gefunden=Datum"  
 if "Datum:" == "Benutzername:" set "Gefunden=Benutzername"  
)  else (if not defined Wert set "Wert=Datum:" ) )  

D:\TEMP>(if not defined Gefunden (
if "DATUM1" == "Datum:" set "Gefunden=Datum"  
 if "DATUM1" == "Benutzername:" set "Gefunden=Benutzername"  
)  else (if not defined Wert set "Wert=DATUM1" ) )  

D:\TEMP>if defined Wert set "Datum=DATUM1"  

D:\TEMP>if defined Benutzername (
echo DATUM1  1>>"Ergebnisdatei.txt"  
 set "Datum="   & set "Benutzername="  
)

D:\TEMP>goto :eof