Batch zum erstellen von Textdateien von Textvorlage

const ForReading   = 1
const ForWriting   = 2
const ForAppending = 8


Set colArgsNamed   = WScript.Arguments.Named
Set colArgsUnnamed = WScript.Arguments.Unnamed


If colArgsNamed.Count >= 3 Then
  If colArgsNamed.Exists("I") Then strInFile          = colArgsNamed("I")  
  If colArgsNamed.Exists("P") Then strPattern         = colArgsNamed("P")  
  If colArgsNamed.Exists("R") Then strReplacement     = colArgsNamed("R")  
  If colArgsNamed.Exists("F") Then strReplacementFile = colArgsNamed("F")  

  If strInFile <> "" And strPattern <> "" And (strReplacement <> "" Or strReplacementFile <> "") Then  
    Set objFSO = CreateObject("Scripting.FileSystemObject")  

    If objFSO.FileExists(strInFile) Then
      If strReplacement = "" Then  
        If objFSO.FileExists(strReplacementFile) Then
          Set objReplacementFile = objFSO.GetFile(strReplacementFile)
          Set objInStream        = objReplacementFile.OpenAsTextStream(ForReading)
          strFileContent         = objInStream.ReadAll
          objInStream.Close

          arrReplacements = Split(strFileContent, vbCrLf)

          If arrReplacements(UBound(arrReplacements)) = "" Then  
            ReDim Preserve arrReplacements(UBound(arrReplacements) - 1)
          End If
        End If
      Else
        arrReplacements = Array(strReplacement)
      End If

      If Not IsEmpty(arrReplacements) Then
        Set objInFile   = objFSO.GetFile(strInFile)
        Set objInStream = objInFile.OpenAsTextStream(ForReading)
        strFileContent  = objInStream.ReadAll
        objInStream.Close

        strInFilePath = objFSO.GetParentFolderName(strInFile)
        strInFileName = objFSO.GetBaseName(strInFile)
        strInFileExt  = objFSO.GetExtensionName(strInFile)
        intCntr       = 1

        For Each strReplacement In arrReplacements
          'strNewFileContent = Replace(strFileContent, strPattern, strReplacement, 1, -1, vbTextCompare)  
          strNewFileContent = Replace(strFileContent, strPattern, strReplacement, 1, -1, vbBinaryCompare)

          strOutFile = objFSO.BuildPath(strInFilePath, strInFileName + "_" + CStr(intCntr) + "." + strInFileExt)  

          Set objOutStream = objFSO.CreateTextFile(strOutFile, True)
          objOutStream.Write strNewFileContent
          objOutStream.Close

          intCntr = intCntr + 1
        Next
      Else
        WScript.Echo "Datei " + strReplacementFile + " nicht gefunden."  
      End If
    Else
      WScript.Echo "Datei " + strInFile + " nicht gefunden."  
    End If
  Else
    WScript.Echo "Fehlende Parameter"  
  End If
Else
  WScript.Echo "Fehlende Parameter"  
End If