Per Batch in jeder Textdatei in einem Verzeichnis die ersten 6 Zeilen löschen und weiter unten nur die ersten 32 Zeichen lassen und den Rest löschen?

@echo off & setlocal
set "Verzeichnis=D:\Das mit den Hashes"  

pushd "%Verzeichnis%"  
set "HT=%temp%\HashTemp.tmp"  
for /f "delims=" %%i in ('findstr /m "MD5" *.txt') do (  
    move "%%i" "%HT%"   
    for /f "usebackq skip=6 delims=;" %%a in ("%HT%") do >>"%%i" echo %%a  
)
del "%HT%"  
popd

Const FolderPath = "E:\Test"  
Set Fso = CreateObject("Scripting.FileSystemObject")  
For Each File In Fso.GetFolder(FolderPath).Files
    If LCase(Fso.GetExtensionName(File)) = "txt" Then  
        Text = Split(Fso.OpenTextFile(File.Path).ReadAll, vbCrLf)
        For i = 0 To UBound(Text)
            If InStr(1, Text(i), "MD5", vbTextCompare) > 0 Then StartZeile = i + 1: Exit For  
        Next
        If i <= UBound(Text) Then
            TextNew = "MD5"  
            For i = StartZeile To UBound(Text)
                If Text(i) <> "" Then  
                    HashValue = Split(Text(i), ";")(0)  
                    If IsNumeric("&H" & Left(HashValue, 8)) Then TextNew = TextNew & vbCrLf & HashValue  
                End If
            Next
            Fso.CreateTextFile(File.Path).Write TextNew
        End If
    End If
Next

Const FolderPath = "E:\Test"  
Set Fso = CreateObject("Scripting.FileSystemObject")  
For Each File In Fso.GetFolder(FolderPath).Files
    If LCase(Fso.GetExtensionName(File)) = "txt" Then  
        Text = Split(Fso.OpenTextFile(File.Path).ReadAll, vbCrLf)
        TextNew = "MD5"  
        For i = 6 To UBound(Text) 'Zeilen 0 bis 5 überspringen  
            If Text(i) <> "" Then  
                HashValue = Split(Text(i), ";")(0)  
                If IsNumeric("&H" & Left(HashValue, 8)) Then TextNew = TextNew & vbCrLf & HashValue  
            End If
        Next
        Fso.CreateTextFile(File.Path).Write TextNew
    End If
Next

@echo off & setlocal
set "Verzeichnis=E:\Test"  

set "R=%temp%\RemoveCrLf.vbs"  
>%R%  echo F=WScript.Arguments(0):Set fso=CreateObject("Scripting.FileSystemObject"):T=fso.OpenTextFile(F).ReadAll  
>>%R% echo If Right(T,2)=vbCrLf Then fso.CreateTextFile(F).Write Left(T,Len(T)-2)

pushd "%Verzeichnis%"  
for /f "delims=" %%i in ('dir /b /a-d *.txt') do cscript //nologo %R% "%%i"  
popd

>>%R% echo If Right(T,1)=Chr(26) Then fso.CreateTextFile(F).Write Left(T,Len(T)-1)