Batch-Problem Inhalt aus Datei auslesen, bearbeiten und dann wieder speichern

// Ein- uns Ausgabe DateieNamen definieren
var src="___in.txt";  
var dst="___out.txt";  

// Ein- und Ausgabe Dateien oeffnen
var fp1 = OpenFile(src, "r");    
var datei = fp1.ReadAll();
fp1.Close();

var fp2 = CreateFile(dst);

// Hilfsvariablen
var zeile = "";  
var s1 = "";  
var s2 = "";  
var zeileOut = "";  
var i = 0;
var x = 0;
var saZeilen = datei.split("\r\n");  
for (i = 0; i < saZeilen.length; i++) {
  zeile = saZeilen[i];
  if (zeile.indexOf(",") > 0) {  
    // Teil vor dem Komma
    s1 = zeile.split(",");   
    s1 = parseInt(s1,16);
    // Teil nach dem Komma
    s2 = zeile.split(",")[1];  
    s2 = s2.substring(0, s2.length - 1);
    // ... und zusammenbauen
    zeileOut = "/sc0" + s1 + "/sc0" + s2;  
    fp2.WriteLine(zeileOut);
    x++;
  }
}
fp2.Close();

WScript.Echo("OK, "+x+" Zeilen gelesen und ...");    

/////////////////////////////////////////////////////////////////////////////////////////////

/** Create TextDatei.
 * @param name String kompletter Dateiname
 * @return tf  Objekt FilePointer
 */
function CreateFile(name) {
  var fso, tf;
  fso = new ActiveXObject("Scripting.FileSystemObject");  
  tf = fso.CreateTextFile(name, true);
  return tf;
}

/** Open TextDatei.
 * @param name String kompletter Dateiname
 * @return tf  Objekt FilePointer
 */
function OpenFile(name, mod) {
  var fso, tf, mode;
  if (mod == "r") {  
    mode = 1;
  }  
  if (mod == "w") {  
    mode = 2;
  }  
  if (mod == "a") {  
    mode = 8;
  }  
  fso = new ActiveXObject("Scripting.FileSystemObject");  
  tf = fso.OpenTextFile(name, mode);
  return tf;
}

@echo off & setlocal ENABLEDELAYEDEXPANSION
set "fileIN=c:\daten_in.txt"  
set "fileOUT=C:\daten_out.txt"  
for /f "usebackq tokens=1,2 delims=," %%a in ("%fileIN%") DO @(  
	call :toHex %%a hex
	set nachkomma=%%b
	set nachkomma=!nachkomma:~0,2!
	set merge=!merge!/sc!hex!!nachkomma!
)
echo !merge!>"%fileOUT%  
goto end

:toHex
set /a dec=%~1
set "hex="  
set "map=0123456789ABCDEF"  
for /L %%N in (1,1,8) do (
    set /a "d=dec&15,dec>>=4"  
    for %%D in (!d!) do set "hex=!map:~%%D,1!!hex!"  
)
set "hex=!hex:~5,3!  
( 
    ENDLOCAL
    SET %~2=%hex%
)
goto :eof

:end