замена значений XML в For-Each и возврат в функцию

Сценарий, который у меня есть, пытается выполнить рекурсию через файл XML, сохраняя каждое совпадение RegEx (хранящееся в массиве поиска) в 2 массива результатов; 1 для даты начала, 1 для даты окончания. Границы обоих массивов проверяются на равенство, затем текст передается функции, которая использует XMLDOM для поиска узла End_Date в каждом родительском узле, затем передает этот текст другой функции, добавляя 30 дней, а затем возвращая его обратно, заменяя предыдущее значение. . Затем предполагается записать содержимое в файл и сохранить его.

У меня тут несколько проблем. 1. Я не могу получить значение +30 дней, которое будет передано чему-либо за пределами первого родительского узла - пространство памяти, похоже, сохраняет значение +30 дней из предыдущей итерации For-Each. 2. Я не могу ничего записать обратно в файл.

Сначала я писал для текстовых файлов, но формат изменился на XML, так как требования к нашему проекту изменились.

Я хотел бы иметь возможность делать все это в XMLDOM в vbscript и просто использовать функции для внесения конкретных изменений данных. Но больше всего меня беспокоит мой небрежный сценарий, не выполняющий основ.

Может ли кто-нибудь помочь мне, указав на недостатки в циклах, которые я запускаю? Я врезался в стену и просто не могу добиться большего прогресса!

Вот XML-файл, который я читаю (сокращенный до 2 рекламных узлов с удалением тонны дочерних узлов):

<?xml version="1.0" encoding="utf-8"?>
<XMLFeederRoot>
<ADS_CREATE_TIME>2016-06-07T01:35:39</ADS_CREATE_TIME>
<Ad>
  <Ad_Number>d00524224</Ad_Number>
  <Start_Date>2016-08-20T00:00:00</Start_Date>
  <End_Date>2016-08-20T00:00:00</End_Date>
  <Status>Run</Status>
</Ad><Ad>
  <Ad_Number>d00524225</Ad_Number>
  <Start_Date>2016-08-20T00:00:00</Start_Date>
  <End_Date>2016-08-20T00:00:00</End_Date>
  <Status>Run</Status>
</Ad>
</XMLFeederRoot>

Вот сценарий:

'Setting the Regular Expression object and setting occurrences to all in strings searched.
Set objRegEx= CreateObject("VBScript.RegExp")
objRegEx.Global= True

set Shell= createobject("wscript.shell")
Dim FSO, FLD, FIL, TS, strDate, strEDat, i, d, c
Dim strFolder, strContent, strPath
Const ForReading= 1, ForWriting= 2 

strFolder= "C:\Scripts\Run"

Set FSO= CreateObject("Scripting.FileSystemObject")

'Get a reference to the folder you want to search
set FLD= FSO.GetFolder(strFolder)

'loop through the folder and get the files
For Each Fil In FLD.Files

'Open the file to read
Set TS= FSO.OpenTextFile(fil.Path, ForReading)

'Read the contents into a variable
strContent= TS.ReadAll

'Close the file
TS.Close


reDim arrMR(1,1)
    arrMR(0,0)= "(\s+)(<Start_Date>(.*?)<\/Start_Date>)"
    arrMR(1,0)= "(\s+)(<End_Date>(.*?)<\/End_Date>)"


For i= 0 to Ubound(arrMR)
    objRegEx.Pattern= arrMR(i,0)
    Set objMatches= objRegEx.Execute(strContent)


d=0

    For Each objMatch in objMatches
        If i= 0 Then
            If d>0 Then
                reDim Preserve arrStart(d)
            Else
                reDim arrStart(d)
            End If
                arrStart(d)= objMatches.Item(d).SubMatches(2)

                'Wscript.Echo arrStart(d)
        ElseIf i<> 0 Then
            If d>0 Then
                reDim Preserve arrEnd(d)
                ReDim Preserve arrMatch1(d)
            Else
                reDim arrEnd(d)
                ReDim arrMatch1(d)
            End If
                arrEnd(d)= objMatches.Item(d).SubMatches(2)         
                arrMatch1(d)= objMatches.Item(d).SubMatches(1)

        End If



        If objRegEx.Pattern<> arrMR(0,0) Then
            If (ubound(arrStart)= ubound(arrEnd)) Then
                'Wscript.Echo "Ubounds Match"   
                            Parse strContent
                            strContent= Parse(strContent)
            Else
                'Wscript.Echo "Start & End Dates do not match"
            End If
        End If          
            d= d+ 1 'increment to next match

    Next

Next    

'Close the file
TS.Close

'Open the file to overwrite the contents
Set TS= FSO.OpenTextFile(fil.Path, ForWriting)

'Write the contents back
TS.Write strContent

'Close the current file
TS.Close

Next

'Clean up
Set TS= Nothing
Set FLD= Nothing
Set FSO= Nothing


Function Parse(ParseContent)

  'Dim sFSpec : sFSpec   =   FSO.GetAbsolutePathName("C:\Users\j.levine\Desktop\XML Feeder                 Scripts\Test_Files\monvid.txt")
  Dim oXML   : Set oXML = CreateObject("Msxml2.DOMDocument.6.0")  
  Dim strXMLSDat, strXMLarrStartD, XMLEDat
  oXML.setProperty "SelectionLanguage", "XPath"
  oXML.async = False
  oXML.loadXML(ParseContent)

  If 0 = oXML.parseError Then
     Dim sXPath3 : sXPath3    = "//XMLFeederRoot/Ad[End_Date=Start_Date]"
     Dim ndlFnd : Set ndlFnd = oXML.selectNodes(sXPath3)
     If 0 = ndlFnd.length Then
        WScript.Echo sXPath, "not found"
     ElseIf 0<> ndlFnd.length Then       
        'WScript.Echo "found", ndlFnd.length, "nodes for", sXPath
        Dim ndCur, oldNode
        For Each ndCur In ndlFnd    
            oldNode = oXML.selectsinglenode("//End_Date").text
            oldNode= XMLSplitArray(oldNode) 'Pass current Date into Array and add 30 days & return as node text
            Set newNode= oXML.selectSingleNode("//End_Date")
            newNode.text= oldNode
            WScript.Echo ndCur.xml

        Next
        'WScript.Echo "We have nothing to replace"
     End If
  Else
     WScript.Echo oXML.parseError.reason
  End If

  Parse= ParseContent
End Function


Function XMLSplitArray(strval1)

dim XmlSA, XmlSA2, XMLEDat

XmlSA = split(strval1, "-")
XmlSA(2) = Left(XmlSA(2), 2)
strXMLDate = XmlSA(1) & "/" & XmlSA(2) & "/" & XmlSA(0)
strXMLDate30 = DateAdd("d", 30, strXMLDate)

XmlSA2 = split(strXMLDate30, "/")

'Add zero to the left
XmlSA2(0)= Right("0" & XmlSA2(0), 2)
XmlSA2(1)= Right("0" & XmlSA2(1), 2)

XmlSA2(1) = XmlSA2(1) & "T00:00:00"
XMLEDat = XmlSA2(2) & "-" & XmlSA2(0) & "-" & XmlSA2(1)
XMLSplitArray= XMLEDat

End Function