Bestimmte Daten aus einer Textdatei in Excel importieren

@echo off
Set ExcelLine=
Set "OutputFile=output.csv"  
Set "Trenner=;"  

del %Outputfile% 2>nul

Set "Line1=22"  
Set "Line2=45"  
Set "Line3=229"  
Set "Line4=252"  

for /f %%a in ('dir /b S??NH.TXT') do set /a Count=0 & for /F "tokens=2" %%b in (%%a) do call :process %%a %%b  
goto :eof


:Process
set /a count+=1
for %%x in (%line1% %line2% %line3% %line4%) do if %%x EQU %count% call :put %1 %2
goto :eof

:put
Set "Filename=%1"  
Set wert=%2
set "wert=%wert:.=,%"  
if [%count%]==[%Line1%] (set "ExcelLine=%1%trenner%%wert%") else (set "ExcelLine=%ExcelLine%%trenner%%wert%")  
if [%count%]==[%Line4%] @echo %ExcelLine% >> %OutputFile%
goto :eof
 

for /f %%a in ('dir /b S??NH.TXT') do call :process "%%a"  
...
:process
set "ExcelLine="  
for /f "tokens=1* delims=:" %%b in ('findstr /n "^" %1^|findstr /b "22: 45: 229: 252:) do call :put "%%c"  
...

Quelle = "D:\Messdaten" 'Ordner, der die S??NH.TXT-Dateien enthält  
Ziel = "D:\Messdaten.csv"  
Zeilen = Array(22,45,229,252) 'Zeilennummern in den Quelldateien  
Feld = 2 'FeldNummer in den Quelldaten  
Delim = ";" 'Trennzeichen in der Zieldatei  

Set fso = CreateObject("Scripting.FileSystemObject")  

DatenAus = "Dateiname" & Delim & "L10kHz" & Delim & "L125kHz" & "Q10kHz" & "Q125kHz" 'Kopfzeile  
If Right(Quelle, 1) <> "\" Then Quelle = Quelle & "\"  

For i = 100 To 199
    FileName = "S" & Right(i, 2) & "NH" 'Dateinamen mit laufender Nr erstellen  
    DatenSatz = FileName
    DatenEin = Split(fso.OpenTextFile(Quelle & FileName & ".TXT").ReadAll, vbCrLf)  
    For Each Zeile In Zeilen
        DatenSatz = DatenSatz & Delim & Split(DatenEin(Zeile - 1), vbTab)(Feld - 1)
    Next
    DatenAus = DatenAus & vbCrLf & DatenSatz
Next
fso.CreateTextFile(Ziel).Write Replace(DatenAus, ".", ",") 'Punkt durch Komma ersetzen und in Datei schreiben