help with XML

[daveOliver]

hi,

I have an xml file which may or may not have information in a particular node.
I am trying to assign the value of this element (which will either be a 1 or nothing) to a variable called strTest.

This works fine if the element contains a "1" , however if the element is empty i get an automation error (clearly cause you cannot assign an empty node.typedValue to a string.

Can any1 suggest how i can ckeck to see if the node.typedValue is a "1" and if so to assign it to a string, but if its empty to assign a "0" to the string

or perhaps using a 1,0 boolean


For i = 0 To nodes.Length - 1
strTest (nodes.NextNode.selectSingleNode("REASON").nodeTypedValue)
Next

thanks in advance

[MartinLiss]

The code you show can't be your actual code. Can you show the actual code please?

[daveOliver]

here you go:

Dim xmlDocIssueNumber As DOMDocument
Set xmlDocIssueNumber = New DOMDocument
xmlDocIssueNumber.preserveWhiteSpace = True
xmlDocIssueNumber.loadXML (cIssueNoXML)
xmlDocIssueNumber.Save ("C:\Documents and Settings\Simon Pogrebinsky\Desktop\xmlSave\issueNo.xml")
Set nodes = xmlDocIssueNumber.selectNodes("//NewDataSet/AUTONUMBTABLE/AUTOFLAG")



For i = 0 To nodes.Length - 1
If Not (nodes.NextNode.selectSingleNode("AUTOFLAG") Is Nothing) Then strFaultFlag = ((nodes.NextNode.selectSingleNode("AUTOFLAG").nodeTypedValue))

Next

MsgBox (strFaultFlag)

[MartinLiss]

Dim NextNode As IXMLDOMNode
    Set NextNode = Nodes.NextNode.selectSingleNode("REASON").nodeTypedValue
    If Not (NextNode Is Nothing) Then
        If nodes.NextNode.selectSingleNode("REASON").nodeTypedValue ="1" Then
            strTest = "1"
         Else
             strTest = "0"
        End If
    End If

[MartinLiss]

All of my code, except the Dim of course, should be inside the loop.

[daveOliver]

thanks for the help my code is now:

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

[daveOliver]

however i still get a runtime error,

thanks for your help btw

[MartinLiss]

Can you attach your XML file?

[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

[daveOliver]

thanks very much - works well

[MartinLiss]

You're welcome. Now that we've helped you, you can help us by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer.