Replace text in XML file if another string is found?

[TheWennerWoman]

Hello,

I have the following code courtesy of @JEC (many thanks)

Sub jec()
Dim it

With CreateObject("scripting.filesystemobject")

' specify source folder, file extension and what text needs to be replaced
For Each it In .GetFolder("W:\COYA\interfaces\MIPLoader\failed\").Files
      If .GetExtensionName(it) = "XML" Then .CreateTextFile(it).Write Replace(.OpenTextFile(it).ReadAll, "<TaxCode>VIZERO</TaxCode>", "<TaxCode>VISTD</TaxCode>")
Next
End With

End Sub

Which works perfectly and does a simple find/replace.

Can this be enhanced so that if these strings (not necessarily adjacent in the file)

<DocumentMasterCode>PINVCAPX</DocumentMasterCode>
<InputTemplateMasterCode>PINVMAT</InputTemplateMasterCode>

are found then the second string needs to say

<InputTemplateMasterCode>PINVCAPX</InputTemplateMasterCode>

Thanks in advance as always.

 

[JEC]

Hi again!

For now the quick adjustment:

Sub jec()
 Dim it, x, y
 With CreateObject("scripting.filesystemobject")
   For Each it In .GetFolder("W:\COYA\interfaces\MIPLoader\failed\").Files
      If .GetExtensionName(it) = "XML" Then
        x = "<DocumentMasterCode>PINVCAPX</DocumentMasterCode>" & vbLf & "<InputTemplateMasterCode>PINVMAT</InputTemplateMasterCode>"
        y = Replace(x, "PINVMAT", "PINVCAPX")
        .CreateTextFile(it).Write Replace(Replace(.OpenTextFile(it).ReadAll, "<TaxCode>VIZERO</TaxCode>", "<TaxCode>VISTD</TaxCode>"), x, y)
      End If
   Next
 End With
End Sub

 

[TheWennerWoman]

Genius Thanks again!

 

[JEC]

You're welcome! Cheers!