help with XML

[daveOliver]

sure here you go, this is the XML file where the AUTOFLAG typed value is "1"

[daveOliver]

hmm, its actually an object required error now

[daveOliver]

have you had any ideas on this? sorry to keep asking

[MartinLiss]

hmm, its actually an object required error now

Where?

[daveOliver]

well, as this is a COm addin for outlook I cannot really debug, however using message boxes it gets to this line:

Set NextNode = Nodes.NextNode.selectSingleNode("REASON").nodeTypedValue

and an object required error occours

[MartinLiss]

There is no "REASON" node, at least in the xml document you attached.

[daveOliver]

ok this is the actual line:


Set NextNode = nodes.NextNode.selectSingleNode("AUTOFLAG").nodeTypedValue

[MartinLiss]

The NodeList you are creating is already a list of AUTOFLAG nodes so you don't need to go any deeper. That simplifies it a bit. I also changed "nodes" since that's a reerved word.

Dim xmlDocIssueNumber As DOMDocument
    Dim NextNode As IXMLDOMNode
    Set xmlDocIssueNumber = New DOMDocument
    xmlDocIssueNumber.preserveWhiteSpace = True
    xmlDocIssueNumber.Load "C:\vb examples\xml\test.xml"
    Dim oXMLNodes As IXMLDOMNodeList
'    xmlDocIssueNumber.loadXML (cIssueNoXML)
'    xmlDocIssueNumber.save ("C:\Documents and Settings\Simon Pogrebinsky\Desktop\xmlSave\issueNo.xml")
    Set oXMLNodes = xmlDocIssueNumber.selectNodes("//NewDataSet/AUTONUMBTABLE/AUTOFLAG")
'    Dim i, strFaultFlag
'    For i = 0 To oXMLNodes.length - 1
'        Set NextNode = oXMLNodes.NextNode.selectSingleNode("AUTOFLAG").nodeTypedValue
'            If Not (NextNode Is Nothing) Then
'                If oXMLNodes.NextNode.selectSingleNode("AUTOFLAG").nodeTypedValue = "1" Then
'                    strFaultFlag = "1"
'                Else
'                    strFaultFlag = "0"
'                End If
'            End If
'     Next
 
    Dim i, strFaultFlag
    For i = 0 To oXMLNodes.length - 1
        If oXMLNodes(i).nodeTypedValue = "1" Then
            strFaultFlag = "1"
        Else
            strFaultFlag = "0"
        End If
        MsgBox strFaultFlag
     Next