TXT Datei verändern und neu speichern per Batch

Hallo Leute,

ich habe ettliche Transaktionsdateien welche täglich in ein Verzeichnis kopiert werden.
00000001.TXT bis 0000000N.TXT

Dateiinhalt ist jeweils eine Zeile

IA| 50 |G

Ich möchte das jeweils bis zum Delimiter "|" der Wert durch eine feste Feldbreite z.B. 10 Zeichen ersetzt wird.
Den Delimiter "|" brauche ich nicht mehr in der neuen Datei. So wie die nächste Zeile sollte das Ergebnis sein.
0815----------2612---------1-------------- 4-------------21------------1---------------1147628 usw....
123456789012345678901234567890134567890123456789012345678901234567890 <<< Diese Zeile dient nur zur Orientierung
Die Bindestriche sind nur zum verdeutlichen da. In der neuen Datei sollen sie nicht sein.

Kann mir hier jemand helfen

Danke schonmal und Gruß

Roland

@echo off & setlocal
set "PadTemp=%temp%\Pad.vbs"  
set Breite=10
set "Quelle=D:\00000001.txt"  
set "Ziel=D:\00000001-neu.txt"  
echo Felder=Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0),1).ReadAll,"|")>"%PadTemp%"  
echo For i=0 To UBound(Felder):Zeile=Zeile^&Left(Trim(Felder(i))^&Space(%Breite%),%Breite%):Next:WScript.Echo Zeile>>"%PadTemp%"  
cscript //nologo "%PadTemp%" "%Quelle%">"%Ziel%"  
echo 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 >>"%Ziel%"  
del "%PadTemp%"  

@echo off & setlocal
set "PadTemp=%temp%\Pad.vbs"  
set Breite=10
set "Quelle=C:\Live\00000*.txt"  
set "Ziel=C:\Live"  
set "Neu=Neu-"  
echo Felder=Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0),1).ReadAll,"|")>"%PadTemp%"  
echo For i=0 To UBound(Felder):Zeile=Zeile^&Left(Trim(Felder(i))^&Space(%Breite%),%Breite%):Next:WScript.Echo Zeile>>"%PadTemp%"  
for %%i in ("%Quelle%") do cscript //nologo "%PadTemp%" "%%i" >"%Ziel%\%Neu%%%~nxi%"  
del "%PadTemp%"