如何運用DOM解析VB.NET XML文件

小編給大家分享一下如何運用DOM解析VB.NET XML文件，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

XML文件是安全的，在程序中我們大多數的文件都是XML文件，但是對于用DOM解析XML文件熟練運用的還是很少，如何使用DOM解析VB.NET XML文件呢？

1、建立字符串寫文件，XML是由<></>組成，實際上把所有字符形成后再寫進文件中即可。但此類方法不適合大數據的操作。
2、XLST，相當與CSS，VB不適合。
3、DOM。
所以介紹的是使用DOM來寫VB.NET XML文件。以下范例以SQLSERVER的Northwind中Employee表進行示范。VB.NET XML文件代碼如下：

Option Explicit     Public RsAs New ADODB.Recordset     Public Conn As New ADODB.Connection     Public tempDocAs MSXML2.DOMDocument 'xml文件     Public tempNode As MSXML2.IXMLDOMNode     Public Root As MSXML2.IXMLDOMElement     Public tempelement As MSXML2.IXMLDOMElement     Public tempattribute As MSXML2.IXMLDOMElement     Public emp As MSXML2.IXMLDOMElement     Private Sub Command1_Click()     '生成一個XML DOMDocument對象     Set tempDoc = New MSXML2.DOMDocument     '生成根節點并把它設置為文件的根     Set Root = tempDoc.createElement("employees")     Set tempDoc.documentElement = Root    '在節點上添加多個屬性     Call Root.setAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")     Call Root.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")     Call Root.setAttribute("xmlns", "http://www.kingdee.com/ReK3Inventory")     Do While Not Rs.EOF     Set emp = tempDoc.createNode(MSXML2.NODE_ELEMENT, "employee", "")     Root.appendChild emp     '生成孩子節點添加到根節點上去，并且為這個節點設置一個屬性     Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Employeeid", "")     tempNode.Text = Rs(0)     emp.appendChild tempNode     Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Firstname", "")     tempNode.Text = Rs(1)     emp.appendChild tempNode     Set tempNode = tempDoc.createNode(MSXML2.NODE_ELEMENT, "Title", "")     tempNode.Text = Rs(2)     emp.appendChild tempNode     Rs.MoveNext     Loop     Dim pi As IXMLDOMProcessingInstruction     Set pi = tempDoc.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")     Call tempDoc.insertBefore(pi, tempDoc.childNodes(0))     '直接保存成文件即可     tempDoc.Save "c:\myTest.xml"     Unload Me     End Sub     Private Sub Form_Load()     '連接SQLSERVER     Dim strConn As String     strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=LocalHost"    Conn.CursorLocation = adUseClient    Conn.Open strConn     If Rs.State <> adStateClosed Then Rs.Close     Rs.Open "Select employeeid,Firstname,Title from employees ", Conn, adOpenStatic, adLockOptimistic     End Sub     Private Sub Form_Unload(Cancel As Integer)Rs.Close     Set Rs = Nothing    Conn.Close     Set Conn = Nothing    End Sub

以上是“如何運用DOM解析VB.NET XML文件”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！