Inhalt einer XML Datei per Batch bzw. Script ändern

Const ForReading = 1
Const AsASCII    = 0


strFixedValue = "1050"  


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

  strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0))
  If WScript.Arguments.Count > 1 Then strFixedValue = WScript.Arguments(1)

  If objFSO.FolderExists(strSrcDir) Then
    Set objRegExp        = New RegExp
    objRegExp.Global     = False
    objRegExp.IgnoreCase = True

    For Each objFile In objFSO.GetFolder(strSrcDir).Files
      If LCase(objFSO.GetExtensionName(objFile.Name)) = "xml" Then  
        'Eingabedatei lesen  
        Set objInFile = objFile.OpenAsTextStream(ForReading, AsASCII)
        strContent    = objInFile.ReadAll
        objInFile.Close


        'Den Wert zwischen <arbeitszeitBeginn></arbeitszeitBeginn>  
        'durch den Wert zwischen <arbeiten></arbeiten> ersetzen  
        objRegExp.Pattern = "<arbeiten>"  
        Set colMatch1     = objRegExp.Execute(strContent)

        objRegExp.Pattern = "</arbeiten>"  
        Set colMatch2     = objRegExp.Execute(strContent)

        If (colMatch1.Count > 0) And (colMatch2.Count > 0) Then
          intKeyValueStart  = colMatch1(0).FirstIndex + 1 + colMatch1(0).Length
          intKeyValueLen    = colMatch2(0).FirstIndex + 1 - intKeyValueStart
          strReplace        = Mid(strContent, intKeyValueStart, intKeyValueLen)

          objRegExp.Pattern = "(<arbeitszeitBeginn>).*(</arbeitszeitBeginn>)"  
          strContent = objRegExp.Replace(strContent, "$1" & strReplace & "$2")  
        End If


        'Das h bei dem Wert zwischen <arbeitszeit></arbeitszeit> entfernen  
        objRegExp.Pattern = "(<arbeitszeit>)([0-9,]{1,}).{1,}(</arbeitszeit>)"  
        strContent = objRegExp.Replace(strContent, "$1$2$3")  


        'Den Wert zwischen <arbeitszeitEnde></arbeitszeitEnde>  
        'durch einen fixen Wert ersetzen  
        objRegExp.Pattern = "(<arbeitszeitEnde>).*(</arbeitszeitEnde>)"  
        strContent = objRegExp.Replace(strContent, "$1" & strFixedValue & "$2")  


        'Ausgabedaei schreiben  
        Set objOutFile = objFSO.CreateTextFile(objFSO.BuildPath(strSrcDir, objFSO.GetBaseName(objFile.Name) & "_Neu." & objFSO.GetExtensionName(objFile.Name)), True)  
        objOutFile.Write strContent
        objOutFile.Close
      End If
    Next
  End If
End If

cscript /nologo "Replace.vbs" "PfadDesVerzeichnissesMitDenXMLDateien"

cscript /nologo "Replace.vbs" "PfadDesVerzeichnissesMitDenXMLDateien" "FixerWert"

Ein = "D:\Test.xml"  
Aus = "D:\Korrigiert.xml"  
FestWert = "1050"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set rE = New RegExp

T = fso.OpenTextFile(Ein).ReadAll

rE.Pattern = "<arbeiten>([\S\s]+)</arbeiten>"  

Set Matches = rE.Execute(T)
If Matches.Count = 0 Then 
    WScript.Echo "Leistungsdaten nicht gefunden!"  
    WScript.Quit(1)
End If

Wert = Matches(0).SubMatches(0)

rE.Pattern = "<arbeitszeitBeginn>.*</arbeitszeitBeginn>"  
T = rE.Replace(T, "<arbeitszeitBeginn>" & Wert & "</arbeitszeitBeginn>")  

rE.Pattern = "(<arbeitszeit>[^h]*)(h)(</arbeitszeit>)"  
T = rE.Replace(T, "$1$3")  

rE.Pattern = "<arbeitszeitEnde>.*</arbeitszeitEnde>"  
T = rE.Replace (T, "<arbeitszeitEnde>" & FestWert & "</arbeitszeitEnde>")  

fso.CreateTextFile(Aus).Write T

Const strXmlDoc = "test.xml"  

Set objXmlDoc = CreateObject("Microsoft.XMLDOM")  
objXmlDoc.async = False
objXmlDoc.load(strXmlDoc)

Set objNode1 = objXmlDoc.documentElement.SelectSingleNode("//arbeiten")  
If objNode1 Is Nothing Then
  MsgBox "Der Knoten ""arbeiten"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

Set objNode2 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitBeginn")  
If objNode2 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeitBeginn"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

objNode2.text = objNode1.text

Set objNode3 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeit")  
If objNode3 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeit"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

strArbeitszeit = objNode3.text
objNode3.text = Left(strArbeitszeit, Len(strArbeitszeit) - 1)

Set objNode4 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitEnde")  
If objNode4 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeitEnde"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

objNode4.text = "1050"  

objXmlDoc.save(strXmlDoc)
Set objXmlDoc = Nothing

If objNode1 Is Nothing Then

If objNode1 = Nothing Then

'XML_bearbeiten  
If WScript.Arguments.Count = 0 Then
    MsgBox "Keine Datei übergeben!", vbCritical, "Fehler"  
    WScript.Quit 2
End If

strXmlDoc = WScript.Arguments(0)

Set objXmlDoc = CreateObject("Microsoft.XMLDOM")  
objXmlDoc.async = False
objXmlDoc.load(strXmlDoc)

Set objNode1 = objXmlDoc.documentElement.SelectSingleNode("//arbeiten")  
If objNode1 Is Nothing Then
  MsgBox "Der Knoten ""arbeiten"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

Set objNode2 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitBeginn")  
If objNode2 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeitBeginn"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

objNode2.text = objNode1.text

Set objNode3 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeit")  
If objNode3 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeit"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

strArbeitszeit = objNode3.text
objNode3.text = Left(strArbeitszeit, Len(strArbeitszeit) - 1)

Set objNode4 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitEnde")  
If objNode4 Is Nothing Then
  MsgBox "Der Knoten ""arbeitszeitEnde"" wurde nicht gefunden!", vbCritical, "Fehler"  
  WScript.Quit 1
End If

objNode4.text = "1050"  

objXmlDoc.save(strXmlDoc)
Set objXmlDoc = Nothing

@echo off & setlocal
set "Verzeichnis=D:\XML"  
set "Script=D:\XML_bearbeiten.vbs"  
set "Fehler=%Verzeichnis%\Fehler.txt"  

pushd "%Verzeichnis%"  
del "%Fehler%"  
for /f "delims=" %%i in ('dir /b /a-d *.xml') do (  
    copy "%%i" *.bak  
    echo Bearbeite: %%i
    cscript //nologo "Script%" "%%i" || (  
        move "%%~ni.bak" *.xml  
        echo Fehler!
        >>"%Fehler%" echo %%i  
    ) 
    echo\
)
if exist "%Fehler%" notepad "%Fehler%"  
popd

MsgBox "Der Knoten ""arbeitszeitBeginn"" wurde nicht gefunden!", vbCritical, "Fehler"

WScript.Echo "Der Knoten ""arbeitszeitBeginn"" wurde nicht gefunden!"

If WScript.Arguments.Count < 1 Then
  WScript.Echo "Syntax:" & _  
    vbLf & "cscript //nologo """ & WScript.ScriptName & """ ""Pfad"" [""FixerWert""]" & _  
    vbLf & vbLF & "Returncodes:" & _  
    vbLf & "3  zu wenig Argumente" & _  
    vbLf & "2  Verzeichnis nicht gefunden" & _  
    vbLf & "1  eine oder Mehrere Dateien konnten nicht verarbeitet werden" & _  
    vbLf & "0  alle gefundenen Dateien erfolgreich verarbeitet" & vbLf      
  WScript.Quit 3
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")  
strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0))
If Not objFSO.FolderExists(strSrcDir) Then WScript.Quit 2

If WScript.Arguments.Count > 1 Then
  strFixedValue = WScript.Arguments(1)
Else
  strFixedValue = "1050"  
End If

iSucc = 0
iErr = 0
For Each objFile In objFSO.GetFolder(strSrcDir).Files
  If LCase(objFSO.GetExtensionName(objFile.Name)) = "xml" Then  
    If Process_XML(objFile.Path) Then
      WScript.Echo """" & objFile.Name & """ - Verarbeitung erfolgreich."  
      iSucc = iSucc + 1
    Else
      WScript.Echo """" & objFile.Name & """ - Verarbeitung fehlgeschlagen."  
      iErr = iErr + 1
    End If
  End If
Next
WScript.Echo vbLf & iSucc + iErr & " Dateien verarbeitet." & _  
  vbLf & iSucc & " erfolreich" & _  
  vbLf & iErr & " fehlgeschlagen" & vbLf  
If iErr > 0 Then WScript.Quit 1


Function Process_XML(ByRef strXmlDoc)
    Set objXmlDoc = CreateObject("Microsoft.XMLDOM")  
    objXmlDoc.async = False
    objXmlDoc.load(strXmlDoc)

    Set objNode1 = objXmlDoc.documentElement.SelectSingleNode("//arbeiten")  
    If objNode1 Is Nothing Then
      Process_XML = False
      Exit Function
    End If

    Set objNode2 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitBeginn")  
    If objNode2 Is Nothing Then
      Process_XML = False
      Exit Function
    End If

    objNode2.text = objNode1.text

    Set objNode3 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeit")  
    If objNode3 Is Nothing Then
      Process_XML = False
      Exit Function
    End If

    strArbeitszeit = objNode3.text
    objNode3.text = Left(strArbeitszeit, Len(strArbeitszeit) - 1)

    Set objNode4 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitEnde")  
    If objNode4 Is Nothing Then
      Process_XML = False
      Exit Function
    End If

    objNode4.text = strFixedValue

    objXmlDoc.save(strXmlDoc)
    Set objXmlDoc = Nothing

    Process_XML = True
End Function

If WScript.Arguments.Count < 1 Then
  WScript.Echo "Syntax:" & _  
    vbLf & "cscript //nologo """ & WScript.ScriptName & """ ""Pfad"" [""FixerWert""]" & _  
    vbLf & vbLF & "Returncodes:" & _  
    vbLf & "3  zu wenig Argumente" & _  
    vbLf & "2  Verzeichnis nicht gefunden" & _  
    vbLf & "1  eine oder Mehrere Dateien konnten nicht verarbeitet werden" & _  
    vbLf & "0  alle gefundenen Dateien erfolgreich verarbeitet" & vbLf      
  WScript.Quit 3
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")  
strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0))
If Not objFSO.FolderExists(strSrcDir) Then WScript.Quit 2

If WScript.Arguments.Count > 1 Then
  strFixedValue = WScript.Arguments(1)
Else
  strFixedValue = "1050"  
End If

iSucc = 0
iErr = 0
For Each objFile In objFSO.GetFolder(strSrcDir).Files
  If LCase(objFSO.GetExtensionName(objFile.Name)) = "xml" Then  
    iRet = Process_XML(objFile.Path)
    If iRet > 0 Then
      WScript.Echo """" & objFile.Name & """ - " & iRet & " Knoten verarbeitet."  
      iSucc = iSucc + 1
    Else
      WScript.Echo """" & objFile.Name & """ - Verarbeitung fehlgeschlagen."  
      iErr = iErr + 1
    End If
  End If
Next
WScript.Echo vbLf & iSucc + iErr & " Dateien verarbeitet." & _  
  vbLf & iSucc & " erfolreich" & _  
  vbLf & iErr & " fehlgeschlagen" & vbLf  
If iErr > 0 Then WScript.Quit 1


Function Process_XML(ByRef strXmlDoc)
    Set objXmlDoc = CreateObject("Microsoft.XMLDOM")  
    objXmlDoc.async = False 
    objXmlDoc.load(strXmlDoc)
    iCounter = 0

    Set objNode1 = objXmlDoc.documentElement.SelectSingleNode("//arbeiten")  
    If Not objNode1 Is Nothing Then
      Set objNode2 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitBeginn")  
      If Not objNode2 Is Nothing Then
        objNode2.text = objNode1.text
        iCounter = iCounter + 2
      End If
    End If

    Set objNode3 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeit")  
    If Not objNode3 Is Nothing Then
      strArbeitszeit = objNode3.text
      objNode3.text = Left(strArbeitszeit, Len(strArbeitszeit) - 1)
      iCounter = iCounter + 1
    End If

    Set objNode4 = objXmlDoc.documentElement.SelectSingleNode("//taetigkeit/arbeitszeitEnde")  
    If Not objNode4 Is Nothing Then
      objNode4.text = strFixedValue
      iCounter = iCounter + 1
    End If

    Set objNode5 = objXmlDoc.documentElement.SelectSingleNode("//rechnungsadresse")  
    If Not objNode5 Is Nothing Then
      strrechnungsadresse = objNode5.text
      objNode5.text = Left(strrechnungsadresse, 5)
      iCounter = iCounter + 1
    End If

    If iCounter > 0 Then objXmlDoc.save(strXmlDoc)
    Set objXmlDoc = Nothing

    Process_XML = iCounter
End Function

      objNode3.text = CStr(Round(Left(strArbeitszeit, Len(strArbeitszeit) - 1) * 4, 0) / 4)

@echo off
cscript //nologo "replace.vbs" "PfadDerXMLDateien"  
pause

If WScript.Arguments.Count < 1 Then
  WScript.Echo "Syntax:" & _  
    vbLf & """" & WScript.ScriptName & """ ""Pfad"" [""FixerWert""]" & _  
    vbLf & vbLF & "Returncodes:" & _  
    vbLf & "3  zu wenig Argumente" & _  
    vbLf & "2  Verzeichnis nicht gefunden" & _  
    vbLf & "1  eine oder Mehrere Dateien konnten nicht verarbeitet werden" & _  
    vbLf & "0  alle gefundenen Dateien erfolgreich verarbeitet" & vbLf  
  WScript.Quit 3
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")  
strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0))
If Not objFSO.FolderExists(strSrcDir) Then WScript.Quit 2

If WScript.Arguments.Count > 1 Then
  strFixedValue = WScript.Arguments(1)
Else
  strFixedValue = "1050"  
End If

strLogPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
strLogName = objFSO.GetBaseName(WScript.ScriptName) & " " & _  
             Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2) & " " & _  
             Right("0" & Hour(Now), 2) & "-" & Right("0" & Minute(Now), 2) & "-" & Right("0" & Second(Now), 2) & _  
             ".log"  

Set objLogFile = objFSO.CreateTextFile(objFSO.BuildPath(strLogPath, strLogName), True)

iSucc = 0
iErr = 0

For Each objFile In objFSO.GetFolder(strSrcDir).Files
  If LCase(objFSO.GetExtensionName(objFile.Name)) = "xml" Then  
    iRet = Process_XML(objFile.Path)
    If iRet > 0 Then
      objLogFile.WriteLine """" & objFile.Name & """ - " & iRet & " Knoten verarbeitet."  
      iSucc = iSucc + 1
    Else
      objLogFile.WriteLine """" & objFile.Name & """ - Verarbeitung fehlgeschlagen."  
      iErr = iErr + 1
    End If
  End If
Next

objLogFile.Close

strMessage = iSucc + iErr & " Dateien verarbeitet." & _  
  vbLf & iSucc & " erfolreich" & _  
  vbLf & iErr & " fehlgeschlagen" & _  
  vbLf & _
  vbLf & "Möchten Sie sich die Log-Datei anschauen?"  

If iErr = 0 Then
  cButtons = vbQuestion
Else
  cButtons = vbCritical
End If

If MsgBox(strMessage, cButtons + vbYesNo, WScript.ScriptName) = vbYes Then
  Set objShell = CreateObject("WScript.Shell")  
  objShell.Run "notepad.exe """ & objFSO.BuildPath(strLogPath, strLogName) & """"  
End If

If iErr > 0 Then WScript.Quit 1

<?xml version="1.0" encoding="utf-8" ?> 
<Document>
<CstmrCdtTrfInitn>
<GrpHdr>
<MsgId>20130619001</MsgId> 
<CreDtTm>2013-06-19T14:22:08</CreDtTm> 
<NbOfTxs>1</NbOfTxs> 
<CtrlSum>100.00</CtrlSum> 
<InitgPty>
<Nm>Company Name</Nm> 
<Id>
<OrgId>
<Othr>
<Id>123456789</Id> 
</Othr>
</OrgId>
</Id>
</InitgPty>
</GrpHdr>
</CstmrCdtTrfInitn>
</Document>

<?xml version="1.0" encoding="utf-8" ?> 
<Document>
<CstmrCdtTrfInitn>
<GrpHdr>
<MsgId>20130619001</MsgId> 
<CreDtTm>2013-06-19T14:22:08</CreDtTm> 
<NbOfTxs>1</NbOfTxs> 
<CtrlSum>100.00</CtrlSum> 
<InitgPty>
<Nm>Company Name</Nm> 
</InitgPty>
</GrpHdr>
</CstmrCdtTrfInitn>
</Document>