Bestimmte Stellen von Textdateien auslesen und in neue Datei schreiben

Hallo in die Runde, das ist ein Superforum und eine wahre Fundgrube. Habe schon viel versucht und noch mehr gesucht. Aber nun bin ich doch am Ende meines Halbwissens. Ich habe hier Textdateien die täglich erstellt und mit dem aktuellen Datum versehen werden. Am Monatsende sollen diese Textdateien ausgewertet und die Resultate in einer Datei geschrieben werden. Aus diesen Dateien benötige ich zum einen den Wochentag aus der ersten Zeile und 3 Textelemente aus der 3. Zeile. Diese Textelemente habe ich mit "" gekennzeichnet, diese sind dort sonst nicht enthalten. Dummerweise greift hier die for Schleife nur bei den ersten beiden Werten, aber "Tokens=" geht nur bis 31. Set /P geht auch nicht, da die Zahlen unterschiedliche Längen haben und so immer wieder variieren. lmld_2009-01-23.txt

Das Ergebnis soll wie folgt aussehen, pro Datei eine Zeile, diese soll später mal in Excel impoertiert werden :
20090123;23;3;16.8
20090124;24;5;18.6
.
.
.

Soweit bin ich für die 3. Zeile schon mal gekommen, aber wie nun weiter? Die erste Zeile für sich bekomme ich auch nicht separiert. OK, das Datum kann man auch aus 20090123 nehmen, die 23. Aber da hilft die for Schleife auch nicht viel weiter. Und alle Werte sollen ja in einer Zeile stehen ....

Ich bedanke mich schon mal im Voraus. Es gibt noch weitere Dateien die ähnlich aufgebaut sind, aber diese hier ist der größte Knackpunkt und ich denke wenn das funktioniert, kann ich die anderen davon ableiten.

mf

@echo off & setlocal enabledelayedexpansion
set "Erg=D:\Ergebnisdatei.txt"  

if exist "%Erg%" del "%Erg%"  

for /f "delims=" %%a in ('Dir /b /o:n lmld*.txt') do (  
    set Zeile=
    for /f "usebackq delims=" %%b in ("%%a") do if not defined Zeile set "Zeile=%%b"  
    call :ProcessLine1 "!Zeile!"  

    set Zeile=
    for /f "usebackq skip=2 delims=" %%b in ("%%a") do if not defined Zeile set "Zeile=%%b"  
    call :ProcessLine3 !Zeile!
)
goto :eof

:ProcessLine1
for /f "tokens=3 delims=- " %%i in (%1) do set "Tag=%%i"  
goto :eof

:ProcessLine3
set "Datum=%~1"  
set "Wert2=%~9"  
for /L %%i in (1,1,137) do shift
set "Wert3=%~1"  

>>"%Erg%" echo %Datum%;%Tag%;%Wert2%;%Wert3%  
goto :eof

for /f "usebackq delims=" %%b in ("%%a") do if not defined Zeile set "Zeile=%%b"  
    call :ProcessLine1 "!Zeile!"  

set "Wert3=%Wert3:.=,%"