Reed XML Nodes With VBScript

[emmirodriguez]

Hi I want to read the ContactActivity node of this XML with VB Script:

<?xml version="1.0"?>
<DataSet xmlns="

http://api.test.net/">

<diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">
<DSContactActivity xmlns="">
<ContactActivity diffgr:id="ContactActivity1" msdata:rowOrder="0" diffgr:hasChanges="inserted">
<MessageID>197337</MessageID>
<ActivityType>10</ActivityType>
<ActivityDate>2015-09-22T15:43:56+00:00</ActivityDate>
<Observation>El contacto ha leído el email "Información sobre su Cuenta de Capitalización Individual en Integración AFAP"</Observation>
<Country>US</Country>
<IP>1123638687</IP>
</ContactActivity>
<ContactActivity diffgr:id="ContactActivity2" msdata:rowOrder="1" diffgr:hasChanges="inserted">
<MessageID>197337</MessageID>
<ActivityType>10</ActivityType>
<ActivityDate>2015-10-05T15:11:39+00:00</ActivityDate>
<Observation>El contacto ha leído el email "Información sobre su Cuenta de Capitalización Individual en Integración AFAP"</Observation>
<Country>US</Country>
<IP>1123638659</IP>
</ContactActivity>
<ContactActivity diffgr:id="ContactActivity3" msdata:rowOrder="2" diffgr:hasChanges="inserted">
<MessageID>197337</MessageID>
<ActivityType>10</ActivityType>
<ActivityDate>2015-10-05T15:11:47+00:00</ActivityDate>
<Observation>El contacto ha leído el email "Información sobre su Cuenta de Capitalización Individual en Integración AFAP"</Observation>
<Country>ES</Country>
<IP>1597921715</IP>
</ContactActivity>
</DSContactActivity>
</diffgr:diffgram>
</DataSet>

 

[strongm]

What have you tried so far?

 

[markdmac]

I would recommend you try using PowerShell instead. It has built in cmdlets for reading XML.

I hope that helps.

Regards,

Mark

No trees were harmed in posting this message, however a significant number of electrons were terribly inconvenienced.

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER.

 

[strongm]

Something like the following:

[blue]    Dim myXML 
    Dim Contact
    Dim Datum
    Dim result

    Set myXML = CreateObject("Microsoft.XMLDOM")
    
    myXML.Load "f:\file downloads\test.xml" [green]' your file goes here[/green]

    For Each Contact In myXML.getElementsByTagName("ContactActivity")
		result=""
        For Each Datum In Contact.ChildNodes
            result=result & Datum.tagName & ": " & Datum.Text & vbcrlf
        Next
        wscript.echo result & vbcrlf
    Next[/blue]