如何通過VB處理XML

1. 首先要引用一個Microsoft XML 隨便選個版本。
2. 在初始化的時候讀取XML顯示到TXTBOX中，代碼如下：
   '通過2進制流將XML文件讀出來，也可以是其它文件格式
   Private Function pstrUpdateView(istrXMLPath As String) As String
       Dim wlngFreeFile As Long
       Dim wbytwbytLoadBytes() As Byte
       '獲得一個空閑文件號
       wlngFreeFile = FreeFile
       Open istrXMLPath For Binary As #wlngFreeFile
       ReDim wbytLoadBytes(1 To LOF(wlngFreeFile)) As Byte
       Get #wlngFreeFile, , wbytLoadBytes
       Close wlngFreeFile
       
       pstrUpdateView = StrConv(wbytLoadBytes, vbUnicode)
   End Function
3. 裝載XML。傳進去一個XML地址，如果裝載不成功就error，成功則執行下一步
   Private Sub fsubLoadXML(istrXMLPath As String)
       Set pobjXMLDoc = CreateObject("MSXML2.DOMDocument")
       If pobjXMLDoc.Load(istrXMLPath) = False Then
           On Error GoTo LoadXMLErr:
       End If
       
       On Error GoTo 0
       Exit Sub
   LoadXMLErr:
       Dim myErr
       Set myErr = pobjXMLDoc.parseError
       MsgBox ("ERROR：" & myErr.reason)
       Set myErr = Nothing
   End Sub
4. 讀屬性。DOMDocument對象里有2個讀節點的方法：
   1. selectNodes() 如果根節點下有多個子節點就要用這個方法，item定義了第幾個子節點
   2. selectSingleNode()如果根節點下只有一個字節點可以用這個方法
   1. Private Function fstrReadAttr(istrNodes As String, istrAttribute As String) As String
      On Error GoTo ErrHandle:
          Dim wobjXmlAttr As MSXML2.IXMLDOMAttribute
          '
      '    Set wobjXmlAttr = pobjXMLDoc.selectNodes(istrNodes).Item(0).Attributes.getNamedItem(istrAttribute)
          '
          Set wobjXmlAttr = pobjXMLDoc.selectSingleNode(istrNodes).Attributes.getNamedItem(istrAttribute)
          fstrReadAttr = wobjXmlAttr.Text
          
          'destroy object
          Set wobjXmlAttr = Nothing
          On Error GoTo 0
          Exit Function
      ErrHandle:
          MsgBox Err.Description
          Set wobjXmlAttr = Nothing
      End Function
5. 讀節點。 call fstrReadNode("/test/user") ,參數是test節點下的user子節點

   Private Function fstrReadNode(istrNodes As String) As String
       Dim xNode As MSXML2.IXMLDOMNode
       Set xNode = pobjXMLDoc.selectSingleNode(istrNodes)
       fstrReadNode = xNode.Text
       Set xNode = Nothing
   End Function
6. 寫節點。參數1：節點；參數2：需要寫入的值

   Private Sub fsubWriteNode(istrNodes As String, istrValue As String)
       Dim wobjXMLNode As IXMLDOMElement
       
       Set wobjXMLNode = pobjXMLDoc.documentElement.selectNodes(istrNodes).Item(0)
   
       wobjXMLNode.Text = istrValue

        Set wobjXMLNode = Nothing
   End Sub

a sample :download

posted on 2006-01-19 14:52 瘋流成性 閱讀(5339) 評論(0)  編輯  收藏 所屬分類: VB項目