Fortlaufende variable in batch möglich?

@echo off

setlocal


set "SrcFileName=%~dpn1"  
set "SrcFileExt=%~x1"  

set "nCopies=10"  
set "nDigits=4"  
set "NumberMarker=xxxx"  


for /l %%i in (1,1,%nCopies%) do (
  for /f "eol=: tokens=1,* delims=:" %%k in ('findstr /n "^" "%SrcFileName%%SrcFileExt%"') do (  
    call :ProcessLine %%i
  )
)

exit /b



:ProcessLine
  set "Number=0000000000%~1"  
  call set "Number=%%Number:~-%nDigits%%%"  

  (for /f "delims=" %%d in ("DummyString") do (  
     echo\%%l|findstr /b /c:"%NumberMarker%" > NUL && (  
       echo %Number%
     ) || (
       echo\%%l
     )
  )) >>"%SrcFileName%%Number%%SrcFileExt%" 2>NUL  
exit /b

Const nCopies      = 10
Const nDigits      = 4
Const NumberMarker = "xxxx"  


Const ForReading = 1
Const ForWriting = 2
Const AsASCII    = 0

If WScript.Arguments.Count > 0 Then
  Set objFSO = CreateObject("Scripting.FileSystemObject")  

  If objFSO.FileExists(objFSO.GetAbsolutePathName(WScript.Arguments(0))) Then
    strSrcFileName = objFSO.GetParentFolderName(objFSO.GetAbsolutePathName(WScript.Arguments(0)))
    strSrcFileName = strSrcFileName & "\" & objFSO.GetBaseName(WScript.Arguments(0))  
    strSrcFileExt  = "." & objFSO.GetExtensionName(WScript.Arguments(0))  

    Set objInFile  = objFSO.OpenTextFile(WScript.Arguments(0), ForReading, False, AsASCII)
    strFileContent = objInFile.ReadAll
    objInFile.Close

    arrLines = Split(strFileContent, vbCrLf)

    For I = 1 To nCopies
      strNumber = Right("0000000000" & CStr(I), nDigits)  

      Set objOutFile = objFSO.OpenTextFile(strSrcFileName & strNumber & strSrcFileExt, ForWriting, True, AsASCII)

      For J = 0 To UBound(arrLines)
        If arrLines(J) = NumberMarker Then
          objOutFile.WriteLine strNumber
        Else
          objOutFile.WriteLine arrLines(J)
        End If
      Next

      objOutFile.Close
    Next

    WScript.Quit 0
  End If

  WScript.Quit 2
End If

WScript.Quit 1