LotusScript解析XML字符串

Function GetKeys(xmlStr As String) As Boolean
'-----------------------------------------------------------
'-函数功能：从给定的XML中提取结点中的值
'-参数说明：
'-返回值：返回结果链表
'-----------------------------------------------------------
On Error GoTo errh

Dim XMLProcessor As NotesDOMParser
Dim root As NotesDOMDocumentNode
Dim nodelist As NotesDOMNodeList
Dim nodevalList List As String

MsgBox xmlStr
If xmlStr<>"" Then
Set XMLProcessor = session.CreateDOMParser(xmlStr)
Call XMLProcessor.Process
Set root = XMLProcessor.Document
nodevalList("Result") = GetNodeValue(root,"Result")
nodevalList("Reason") = GetNodeValue(root,"Reason")
Else
GetKeys = False
End If

GetKeys = True
Exit Function
errh:
MsgBox "Agent:selectAgent_GetKeys:"
MsgBox Error
MsgBox Erl
GetKeys = False
Exit Function

End Function

-------------------------------------------------------------------------------------------------------------------------------

Function GetNodeValue(node As NotesDOMDocumentNode,tagName As String) As String
'-----------------------------------------------------------
'-函数功能：从指定的XML结点中获取结点值
'-参数说明：
'-返回值：返回结果链表
'-----------------------------------------------------------
On Error GoTo errh

Dim nodelist As NotesDOMNodeList
Dim elementNode,textNode As NotesDOMNode 
Set nodelist = node.GetElementsByTagName(tagName)
If nodelist.NumberOfEntries<>0 Then
Set elementNode = nodelist.GetItem(1)
If Not elementNode.isNull Then
Set textNode = elementNode.FirstChild
If Not textNode.isNull Then
GetNodeValue = textNode.NodeValue
Else
GetNodeValue = ""
End If
End If
End If

Exit Function
errh:
MsgBox "Agent:selectAgent_GetNodeValue:"
MsgBox Error
MsgBox Erl
Exit Function
End Function