急:如何实现XML的replace()功能?
即从一XML文件读入,删除其中一部分内容。
Private Sub Form_Load()
Dim objXml As New DOMDocument30
Dim objNode As MSXML2.IXMLDOMNode
Dim objNodelist As MSXML2.IXMLDOMNodeList
Dim objSettingXml As New MSXML2.DOMDocument30
Dim objNodeadd As MSXML2.IXMLDOMNode
Dim objNodenew As MSXML2.IXMLDOMNode
Dim bRtn As Boolean
Dim strupdatexml As String
Dim straddxml As String
Dim strnewItem1 As String
strnewItem1 = "desktop.gif"
objXml.Load CStr("c:\items.xml")
strupdatexml = objXml.xml
Set objNodelist = objXml.selectNodes("/items/item[picname='" & strnewItem1 & "']")
For i = 1 To objNodelist.length
Set objNode = objXml.selectSingleNode("/items/item[ItemCount='" & i & "']")
straddxml = straddxml & objNode.xml
Next
If InStr(strupdatexml, straddxml) > 1 Then
MsgBox ">" --不执行
End If
strupdatexml = Replace(strupdatexml, straddxml, "")--替换没效果。
bRtn = objXml.loadXML(straddxml)
If Not bRtn Then
MsgBox "objXml.loadXML方法出错。", vbOKOnly, "Updatexmlnode出错"
Exit Sub
End If
objXml.save "c:\items2.xml"
End Sub