Notes中LS处理XML情况

通过dom解析XML的简单方式如下
NotesDomParser.Document.DocumentElement-----getElementsByTagName("")获得子元素列表--NotesDomNodeList--循环获得list的每一个值getItem(i)----再继续循环获得以下的值
通过nextsibling获得同级元素
获得节点后，通过GetAttribute("属性名")获取属性值
通过.firstChild获取第一个子元素。

 

function getPersonDocs (node As NotesDOMElementNode) As Variant%REM功能：获得Form%END REMDim nodeList As NotesDOMNodeListDim childList As NotesDOMNodeListDim eNode As NotesDOMElementNodeDim childNode As NotesDOMElementNodeSet nodeList = node.Getelementsbytagname("document")For i = 1 To nodeList.NumberofentriesSet eNode = nodeList.Getitem(i)If Not eNode Is Nothing ThenIf eNode.Getattribute("form") = "Person" ThenSet childList = eNode.Getelementsbytagname("item")For j = 1 To childList.NumberofentriesSet childNode = childList.Getitem(j)If Not childNode Is Nothing ThenIf childNode.Getattribute("name") = "LastName" ThenMsgBox childNode.Firstchild.Firstchild.NodevalueEnd IfEnd IfNextEnd IfEnd IfNextEnd Function

 

获得字节点

Function GetChild(domRoot As NotesDOMElementNode,strSelect As String) As NotesDOMElementNode%REM功能：根据传入XML结构的路径名+属性名称获得对应的节点 例如：(bookstor book[category='web'] title)创建：ycy 2011-04-26%END REMOn Error GoTo ErrorhandleSet GetChild = NothingDim domList As NotesDOMNodeListDim domNode As NotesDOMElementNodeDim childNode As NotesDOMElementNodeDim varPathList As VariantDim strAttName As StringDim strAttValue As StringDim strNodeName As StringDim i As Integer,j As Integer,m As Integer,n As Integer'解析字符串strSelect = Replace(strSelect," "," ")strSelect = Replace(strSelect," "," ")strSelect = Replace(strSelect," "," ")strSelect = Replace(strSelect," "," ")If strSelect = "" ThenSet GetChild = domRootExit FunctionEnd IfvarPathList = Split(strSelect," ")For i = 0 To UBound(varPathList)'获得属性名称、属性值strAttName = ""strAttValue = ""strNodeName = ""If InStr(varPathList(i),"[") ThenstrNodeName = StrLeft(varPathList(i),"[")strAttName = StrLeft(StrRight(varPathList(i),"["),"=")strAttValue = StrLeft(StrRight(varPathList(i),"='"),"']")ElsestrNodeName = varPathList(i)End If'查找子节点，查看属性Set domList = domRoot.Getelementsbytagname(strNodeName)For j = 1 To domList.NumberofentriesSet childNode = domList.Getitem(j)If Not childNode Is Nothing Then'获得选择条件（如果有属性，按照属性查找，如果没有则获取第一个节点）If strAttName <> "" ThenIf childNode.Getattribute(strAttName) = strAttValue Then'递归获得下一层级的元素Set GetChild = GetChild(childNode,StrRight(strSelect," "))'遍历完成OR已经获得对应元素则退出If j = domList.Numberofentries Or (Not GetChild Is Nothing) ThenExit FunctionEnd IfEnd IfElse'递归获得下一层级的元素Set GetChild = GetChild(childNode,StrRight(strSelect," "))'遍历完成OR已经获得对应元素则退出If j = domList.Numberofentries Or (Not GetChild Is Nothing) ThenExit FunctionEnd IfEnd IfEnd IfNextNextExit FunctionErrorhandle:MsgBox "XMLTools-----GetChild------erl:" + CStr(Erl) + ", error:" + ErrorEnd Function

 

设置字节点

Function SetChild(domDocNode As NotesDOMDocumentNode,domNode As NotesDOMElementNode,varList As Variant,strMode As String) As NotesDOMElementNode%REM功能: 将指定的列表值附加到某一节点下面,并可设置节点的属性值创建: ycy 2011-04-26参数:varList---------节点名称#*#节点值#*#属性#*#属性值 strMode---------如果有相同的节点，是否要将其节点的值改变还是直接附加（replace或者add）%END REMOn Error GoTo ErrorhandleSet SetChild = NothingDim i As IntegerDim varTmp As VariantDim domList As NotesDOMNodeListDim domNewNode As NotesDOMElementNodeDim docTextNode As NotesDOMTextNodeDim domChildNode As NotesDOMElementNodeDim strNodeName As StringDim strNodeValue As StringDim strAttName As StringDim strAttValue As StringDim strNewFlag As String'遍历要添加的子元素For i = 0 To UBound(varList)If varList(i) <> "" ThenvarTmp = Split(varList(i),"#*#")'判断是否有属性值If UBound(varTmp) > 1 ThenstrNodeName = varTmp(0)strNodeValue = varTmp(1)strAttName = varTmp(2)strAttValue = varTmp(3)ElsestrNodeName = varTmp(0)strNodeValue = varTmp(1)strAttName = ""strAttValue = ""End If'查找是否有相同名称的节点，If strMode = "replace" ThenSet domList = domNode.Getelementsbytagname(strNodeName)If domList.Numberofentries > 0 ThenSet domChildNode = domList.Getitem(1)If strNodeValue = "null" Then '如果文本节点值为空，则删除文本节点If not domChildNode.Firstchild.Isnull ThenCall domChildNode.Removechild(domChildNode.Firstchild)End IfElse'如果没有文本节点则添加If domChildNode.Firstchild.Isnull ThenSet docTextNode = domDocNode.Createtextnode("#text")docTextNode.Nodevalue = strNodeValueCall domChildNode.Appendchild(docTextNode)ElsedomChildNode.Firstchild.Nodevalue = strNodeValueEnd IfEnd If'设置属性名称If strAttName <> "" ThenCall domChildNode.Setattribute(strAttName, strAttValue)End IfSet SetChild = domChildNodeElsestrNewFlag = "True"End IfElsestrNewFlag = "True"End If'生成新节点，并添加到父节点If strNewFlag = "True" Then'创建节点Set domNewNode = domDocNode.Createelementnode(strNodeName)'设置属性名称If strAttName <> "null" And strAttName <> "" ThenCall domNewNode.Setattribute(strAttName, strAttValue)End IfCall domNode.Appendchild(domNewNode)'创建文本节点If strNodeValue <> "null" ThenSet docTextNode = domDocNode.Createtextnode("#text")docTextNode.Nodevalue = strNodeValueCall domNewNode.Appendchild(docTextNode)End IfSet SetChild = domNewNodeEnd IfEnd IfNextExit FunctionErrorhandle:MsgBox "XMLTools-----SetChild------erl:" + CStr(Erl) + ", error:" + ErrorEnd Function  

 

树结构改变之后，重新获取XML，则需要调用 

 Call domP.Serialize()

 strXML = streamOut.Readtext()-------streamOut为解析器输出流！

---

 

 第二种方法：

通过SAX解析。

Parser设置输入之后，在Process之前，需要设定在解析的时候事件。

比较有用的两个事件

       SAX_Characters ：读取叶子值

     SAX_StartElement：获取Element名称，和属性。但是不能获取下面的值。

这个不是很好

 Set saxParser = ss.Createsaxparser(strXML)On Event SAX_Characters From saxParser Call SAXCharactersOn Event SAX_StartElement From saxParser Call SAXStartElement