Textdatei mit Sonderzeichen Zeilenweise auslesen, Zeilen bearbeiten und in neue Textdatei schreiben

@ECHO OFF & setlocal enabledelayedexpansion

:START
SET /A num=0
SET pfad=C:\

IF EXIST %pfad%Datei_neu.txt DEL %pfad%Datei_neu.txt

REM Ermittlung der Gesamtanzahl an Zeilen
FOR /F "delims=:" %%A IN ('findstr /N .* "%pfad%Datei_alt.txt"') DO SET zeilenGesamt=%%A  

REM Schleife, die jede Zeile der Zieldatei öffent und an Sprungmarke :AUSLESEN übergibt
FOR /F "delims=" %%A IN (%pfad%Datei_alt.txt) DO CALL :auslesen "%%A"  
REM Wenn alle Zeilen durchlaufen gehe zu Sprungmarke :EOF
GOTO :EOF

REM Wird für jede Zeile der Zieldatei aufgerufen, gibt die Zeilennummer an, weisst
REM die Zeile einer fortlaufenden Variable zu und übergibt diese an die Sprungmarke
REM strLaeng
:auslesen
SET /A num=%num%+1
ECHO Zeile %num% von %zeilenGesamt% Zeilen
SET var%num%="%~1"  
GOTO :strLaeng %var%num%%

REM Bestimmen der Anzahl Zeichen pro Zeile
:strLaeng
SET WorkString=%*
SET strLength=0
REM Es wird jedes Zeichen einer Zeile durchgegangen bis kein Zeichen mehr vorhanden ist,
REM beim jedem Durchlauf wird die Varibale strLength eins hochgezählt.
:strLaeBe
IF NOT "!WorkString:~%strLength%,1!"=="" (  
  SET /A strLength += 1
  GOTO :strLaeBe
)
REM Die Variable der neuen Zeile wird erzeugt.
SET neueZeile=%*
SET neueZeile=%neueZeile:~1,-1%
REM Es wird die Anzahl der Zeichen ermittelt welche an den neuen String angehängt werden müssen.
SET /A strNeu=1555-%strLength%
SET strSpace= 
REM Für die Anzahl der fehlenden Zeichen wird die Sprungmarke :Leerstel aufgerufen
FOR /L %%a IN (1,1,%strNeu%) DO CALL :leerstel
SET neueZeile3=%neueZeile:~0,1555%
ECHO %neueZeile%>>%pfad%Datei_neu.txt

GOTO :EOF

REM Der neuen Zeile wird bei jedem Durchlauf ein Leerzeichen angefügt.
:leerstel
SET neueZeile=%neueZeile%%strSpace%

GOTO :EOF

SET neueZeile=%neueZeile:~1,-1%