Log Datei teilen und zeile als Dateiname auslesen

::-----snipp Splitbla.bat Vers. 0.3----   
@echo off    
IF (%1)==() (echo Syntax %0 inputfile) & goto :eof    
IF not exist "%1" echo (Datei %1 nicht gefunden) & goto :eof      

SET "blafile=%1"  
REM (set /a cntLn=0 )             && REM Zeilenzähler    
REM (set /a MaxLnsPerFile=500)    && REM Max. Zeilen je Splitdatei, eigentlich Konstante    
REM (set /a FileCnt=1 )           && REM Zähler für die Splitdateien    

Set "Dirty=TRUE"              && REM DirtyFlag.. muss ich noch eine Datei "endgültig" schreiben?      

IF exist %temp%\tmpbla*.tmp del /q %temp%\tmpbla-*.tmp >nul    
FOR /F "Tokens=1* delims=" %%a IN ('type %blafile%') do call :WriteTmp %1 "%%a"      
IF "%Dirty%"=="TRUE" call :WriteFinal %~n1-%FileCnt%%~x1   
echo Datei %1 zerlegt in Dateien %~n1-1%~x1 bis %~n1-%FileCnt%%~x1.   

goto :eof 

---------hier Ende der Welt    

:WriteTmp    


Set /a cntln=%cntln%+1    
IF %cntln% GEQ 1 (    
   echo %~2>>%temp%\tmpbla-%FileCnt%.tmp    
   SET "Dirty=TRUE"      
   If %cntln% EQU %MaxLnsPerFile% call :WriteFinal %~n1-%FileCnt%%~x1  
) 

goto :eof    

------- ende WriteTmp-Block...zurück zur FOR.. IN.. DO..Schleife    

:WriteFinal    
Copy /b "%temp%\tmpbla-%FileCnt%.tmp" "%1" >nul      
REM Copy /b "%temp%\Headline.Txt"+ "%temp%\tmpbla-%FileCnt%.tmp" "%1" >nul     
SET "Dirty=FALSE" & (set /a cntln=1) & (set /a FileCnt=%FileCnt%+1)      
goto :eof   
::-----snapp Splitbla.bat Vers. 0.3---- 

.....
 1.500020e+002	 2.144980e+002	 6.963079e+002	nm	 2.281911e+002	nm	 6.538393e-001	nm	 5.020137e+002	nm	 1.047534e+002	nm											
 1.500020e+002	 2.144980e+002	 7.074566e+002	nm	 2.353388e+002	nm	 1.580196e+000	nm	 5.003358e+002	nm	 9.508016e+001	nm														
 1.500020e+002	 2.144980e+002	 7.031426e+002	nm	 2.331226e+002	nm	 3.034034e+000	nm	 4.999146e+002	nm	 9.026766e+001	nm														
 1.450000e+002	 2.144980e+002	 6.959890e+002	nm	 2.293731e+002	nm	 2.118024e+000	nm	 4.951898e+002	nm	 9.575802e+001	nm														
 1.450000e+002	 2.144980e+002	 6.929615e+002	nm	 2.319669e+002	nm	-2.133383e+000	nm	 5.056529e+002	nm	 9.211335e+001	nm														
 1.450000e+002	 2.144980e+002	 7.021602e+002	nm	 2.271893e+002	nm	-1.397261e+000	nm	 5.033282e+002	nm	 9.374658e+001	nm														
 1.450000e+002	 2.144980e+002	 6.695101e+002	nm	 2.256670e+002	nm	-1.910170e+000	nm	 5.140209e+002	nm	 1.044900e+002	nm														
 1.450000e+002	 2.144980e+002	 6.654938e+002	nm	 2.267565e+002	nm	-2.567262e-002	nm	 5.140038e+002	nm	 1.111206e+002	nm														
-1Block: 221	date: 15.05.08 21:27:08	Messaufgabe: Testlauf Probennummer: 844 Schichtfolge:  Prüfer: XX
 2.450000e+002	 2.394980e+002	 6.213414e+002	nm	 2.202457e+002	nm	-5.858052e-001	nm	 4.958063e+002	nm	 1.069977e+002	nm														
 2.450000e+002	 2.394980e+002	 6.355864e+002	nm	 2.233881e+002	nm	-6.122822e-001	nm	 4.863254e+002	nm	 1.006662e+002	nm														
 2.450000e+002	 2.394980e+002	 6.279558e+002	nm	 2.217353e+002	nm	 1.205401e+000	nm	 5.061235e+002	nm	 8.045054e+001	nm														
 2.450000e+002	 2.394980e+002	 6.179756e+002	nm	 2.200851e+002	nm	-7.466758e-001	nm	 5.098089e+002	nm	 9.108561e+001	nm														
 2.450000e+002	 2.394980e+002	 6.232181e+002	nm	 2.214735e+002	nm	-1.618090e-001	nm	 5.035816e+002	nm	 9.971449e+001	nm														
 2.399980e+002	 2.394980e+002	 6.075009e+002	nm	 2.256787e+002	nm	-1.678107e+000	nm	 4.903316e+002	nm	 1.047921e+002	nm														
 2.399980e+002	 2.394980e+002	 6.206706e+002	nm	 2.220294e+002	nm	-3.107523e+000	nm	 4.880532e+002	nm	 1.146785e+002	nm

.....

if exist "%T%" del "%T%"  
pushd "%CD%"  
for /f "usebackq delims=" %%i in ("%CD%\%Log%") do echo %%i|findstr "%Crit%">nul & if errorlevel 1 (echo %%i >>"%T%") else call :MoveFile "%%i"  
popd
goto :eof

:MoveFile
for /f "tokens=7 delims=:" %%a in (%1) do for /f %%f in ("%%a") do set "LogName=%%f"  

if not exist "%LogName%.txt" move %T% "%LogName%.txt" & goto :eof  
set "Tm=0%time%"  
set "Tm=%Tm:,=%"  
set "Tm=%Tm:.=%"  
set "Tm=%Tm: =%"  
set "Tm=%Tm:~-10%  
set "LogName=%LogName%_%date:~-4%%date:~-7,2%%date:~-10,2%%Tm%"  
set "LogName=%LogName::=%  
move %T% "%LogName%.txt"  
goto :eof

@echo off & setlocal
for /f "tokens=4" %%g in ('dir *.txt ^|find "exp" ') do set "LogFile=%%g"  
set "Log=%LogFile%"  
set "Crit=^-1Block"  

set "TempFile=%cd%\Temp.txt"  
if exist "%TempFile%" del "%TempFile%"  
pushd "%cd%"  
for /f "usebackq delims=" %%i in ("%cd%\%Log%") do echo %%i|findstr "%Crit%">nul & if errorlevel 1 (echo %%i >>"%TempFile%") else call :MoveFile "%%i"  
popd
goto :eof

:MoveFile
for /f "tokens=7 delims=:" %%a in (%1) do for /f %%f in ("%%a") do set "LogName=%%f"  

if not exist "%LogName%.txt" move %TempFile% "%LogName%.txt" & goto :eof  
set "Tm=0%time%"  
set "Tm=%Tm:,=%"  
set "Tm=%Tm:.=%"  
set "Tm=%Tm: =%"  
set "Tm=%Tm:~-10%  
set "LogName=%LogName%_%date:~-4%%date:~-7,2%%date:~-10,2%%Tm%"  
set "LogName=%LogName::=%  
move %TempFile% "%LogName%.txt"  
goto :eof

@echo off & setlocal
for /f "tokens=4" %%g in ('dir *.txt ^|find "exp" ') do set "LogFile=%%g"  
set "Log=%LogFile%"  
set "Crit=^-1Block"  

set "TempFile=%cd%\Temp.txt"  
if exist "%TempFile%" del "%TempFile%"  
pushd "%cd%"  
for /f "usebackq delims=" %%i in ("%cd%\%Log%") do echo %%i|findstr "%Crit%">nul & if errorlevel 1 (echo %%i >>"%TempFile%") else call :MoveFile "%%i"  
popd
goto :eof

:MoveFile
for /f "tokens=7 delims=:" %%a in (%1) do for /f %%f in ("%%a") do set "LogName=%%f"  

if not exist "%LogName%.txt" move "%TempFile%" "%LogName%.txt" & goto :eof  
set "Tm=0%time%"  
set "Tm=%Tm:,=%"  
set "Tm=%Tm:.=%"  
set "Tm=%Tm: =%"  
set "Tm=%Tm:~-10%  
set "LogName=%LogName%_%date:~-4%%date:~-7,2%%date:~-10,2%%Tm%"  
set "LogName=%LogName::=%  
move "%TempFile%" "%LogName%.txt"  
goto :eof