Batch Skript - txt-Files suchen, verifizieren und editieren

echo %%i|findstr /b "%YYYYMMDD%">nul || (

@Echo OFF & setlocal
REM ############################## VARIABLES & START-SETTINGS ##############################
SET "PATH_SOURCE=C:\Users\Christof\Desktop\BATCH\SOURCE\"  
SET "PATH_DEST=C:\Users\Christof\Desktop\BATCH\DEST\"  
SET "Filetyp=log"  
SET "FILL=FILL_"  
set YYYY=%date:~-4%
set MM=%date:~-7,2%
set DD=%date:~-10,2%
set YYYYMMDD=%YYYY%%MM%%DD%

set "VBS=%temp%\Convert.vbs"  
 >"%VBS%" echo Set a=WScript.Arguments:Set fso=CreateObject("Scripting.FileSystemObject"):Lines=Split(fso.OpenTextFile(a(0)).ReadAll,vbCrLf)  
>>"%VBS%" echo For i=0 To UBound(Lines):Fields=Split(Lines(i),","):If UBound(Fields)^>8 Then Fields(8)=a(1)^&Fields(8):Fields(9)=a(1)^&Fields(9):End If:Lines(i)=Join(Fields,","):Next  
>>"%VBS%" echo WScript.Echo Join(Lines,vbCrLf)  

SET "PATH_SOURCE=Z:\TEMP\"  
SET "PATH_DEST=Z:\TEMP\Zielordner\"  

pushd "%PATH_SOURCE%"  
FOR /F "delims=" %%i IN ('dir /b *.%Filetyp%') DO if not exist "%PATH_DEST%%%i" echo %%i|findstr /b "%YYYYMMDD%">nul || (  
    cscript //nologo "%VBS%" "%%i" "%FILL%">"%PATH_DEST%%%i"  
)
popd
del "%VBS%"  

@Echo OFF & setlocal
REM ############################## VARIABLES & START-SETTINGS ##############################
SET "PATH_SOURCE=C:\Users\Christof\Desktop\BATCH\SOURCE\"  
SET "PATH_DEST=C:\Users\Christof\Desktop\BATCH\DEST\"  
SET "Filetyp=log"  
SET "FILL=FILL_"  
set YYYY=%date:~-4%
set MM=%date:~-7,2%
set DD=%date:~-10,2%
set YYYYMMDD=%YYYY%%MM%%DD%
set "Dummy=§"  
for /f "tokens=3 delims=:. " %%i in ('chcp') do set CP=%%i  
chcp 1252 >nul

pushd "%PATH_SOURCE%"  
FOR /F "delims=" %%i IN ('dir /b *.%Filetyp%') DO if not exist "%PATH_DEST%%%i" echo %%i|findstr /b "%YYYYMMDD%">nul || (  
    for /f "usebackq delims=" %%L in ("%%i") do set "Zeile=%%L" & call :ProcessLine "%%i"  
)
popd
chcp %CP% >nul
goto :eof

:ProcessLine
call set "Zeile=%%Zeile:,,=,%Dummy%,%%"  
call set "Zeile=%%Zeile:,,=,%Dummy%,%%"  
if "%Zeile:~,1%"=="," set "Zeile=%Dummy%%Zeile%"  
for /f "tokens=1-9* delims=," %%A in ("%Zeile%") do (  
    if #%%I#=#%Dummy%# (set "ZeileNeu=%%A,%%B,%%C,%%D,%%E,%%F,%%G,%FILL%_%%H,%FILL%_%%I,%%J"  
    ) else (
        "ZeileNeu=%%A,%%B,%%C,%%D,%%E,%%F,%%G,%FILL%_%%H,%%I,%%J"  
    )
call set "ZeileNeu=%%ZeileNeu:%Dummy%=%%"  
setlocal enabledelayedexpansion
>>"%PATH_DEST%%~1" echo !ZeileNeu!  
endlocal
goto :eof

>>"%VBS%" echo For i=0 To UBound(Lines):Fields=Split(Lines(i),","):If UBound(Fields)^>8 Then Fields(8)=a(1)^&Fields(8):If Fields(9)^<^>"" Then Fields(9)=a(1)^&Fields(9):End If:End If:Lines(i)=Join(Fields,","):Next

>>"%VBS%" echo fso.CreateTextFile(a(2)).Write Join(Lines,vbCrLf)

cscript //nologo "%VBS%" "%%i" "%FILL%" "%PATH_DEST%%%i"