XMLDOM question?

[Troy28M]

Need to know if it is possible to check whether an attribute exists? As you can see below, the same XML file will be used by multiple users. I want to check to see if the attribute "name" exists. If not -I will create. If so, I pull the value.

Before "Set nodSelect" statement, I would like to check to see if the name="tom" exists...possible?

XML:
<program>
<user name="steve">
<org>Lawn Movers</org>
<site>Los Angeles</site>
<pos>Gardner</pos>
<msi>20080204A</msi>
<updates>20080409</updates>
</user>
<user name="tom">
<org>Lawn Movers</org>
<site>Los Angeles</site>
<pos>Gardner</pos>
<msi>20080204A</msi>
<updates>20080409</updates>
</user>
</Program>

Parsing with:
Function readXML(byVal strValue, byValue sUser)
strXpath = "/program/user[@name='" & sUser & "']"
Set nodSelect = oXML.selectSingleNode(strXpath).childNodes
For Each x In nodSelect
If x.nodeName = strValue Then
readXML = x.text
End If
Next
End Function

 

[tsuji]

[tt]Function readXML(byVal strValue, [red]byVal[/red] sUser)
[blue]dim strXpath,nodSelect,x[/blue]
strXpath = "/program/user[@name='" & sUser & "']"
[blue]Set nodSelect = oXML.selectSingleNode(strXpath)
if not(nodSelect is nothing) then[/blue]
For Each x In nodSelect[blue].childNodes[/blue]
If x.nodeName = strValue Then
readXML = x.text
[blue]exit for[/blue]
End If
Next
[blue]else
'create it
end if
set nodSelect=nothing[/blue]
End Function
[/tt]

 

[Troy28M]

Thanks tsuji, that works like a charm. New to VBScript and just learning the XML parser, so your help is much appreciated.

If you have any sites for learning XMLDOM, I could really use any and all help.

 

[tsuji]

The official documentation for the implementation.

http://msdn2.microsoft.com/en-us/library/ms764730(VS.85).aspx