利用VB操作XML數據

      擴展標記語言XML是一種簡單的數據存儲語言，使用一系列簡單的標記描述數據，而這些標記可以用方便的方式建立，雖然XML佔用的空間比二進制數據要佔用更多的空間，但XML極其簡單易於掌握和使用。

　　XML與Access,Oracle和SQL Server等數據庫不同，數據庫提供了更強有力的數據存儲和分析能力，例如：數據索引、排序、查找、相關一致性等，XML僅僅是展示數據。事實上XML與其他數據表現形式最大的不同是：他極其簡單。這是一個看上去有點瑣細的優點，但正是這點使XML與衆不同。

　　XML的簡單使其易於在任何應用程序中讀寫數據，這使XML很快成爲數據交換的唯一公共語言，雖然不同的應用軟件也支持其它的數據交換格式，但不久之後他們都將支持XML，那就意味着程序可以更容易的與Windows、Mac OS, Linux以及其他平臺下產生的信息結合，然後可以很容易加載XML數據到程序中並分析他，並以XML格式輸出結果。

　　XML的優點

　　我們談到XML長於在不同的應用程序之間交換數據，XML文件也便於構建小的數據庫，不久以前，軟件都使用INI文件存儲配置信息、用戶參數以及其他信息，後來微軟引入了系統註冊表，接作微軟告訴我們不應該再使用INI文件了，從那時起Visual Basic對INI文件的支持被削弱了。但不幸的是註冊表有幾個致命的缺點：不是簡單的文本文件，難於讀寫、可能會變得龐大和緩慢、如果註冊表不知何故出現問題，將有可能造成系統死機。

　　將配置信息放在XML文件中可以避免這些問題，甚至可以將XML文件設置爲一個共享文件，這樣在不同的計算機上的用戶就可以共享數據，這是註冊表所不能比擬的。

　　在被稱爲下一代ASP的ASP.NET中可以在WEB頁中直接使用XML，你可以使用數據綁定控件直接綁定數據並自動顯示。

　　當然也可以不選擇XML，使用文本文件、註冊表、數據庫都可以完成XML所能完成的任務，XML只是你在數據存儲和恢復的另一種工具而已。

　　XML語法簡介

　　XML的語法非常的簡單，XML文檔由節點組成，使用打開和關閉節點描述標記，在格式上與HTML標記非常相似，它們之間最大的不同是：XML中可以自由定義標記名。比如下面的標記就描述了一個電話號碼：

＜Phone＞987-654-3210＜/Phone＞

　　而且不用聲明標記名就可以使用。

　　開始和結束標記必須相同，XML是識別大小寫的，所以標記的大小寫也必須相同。比如上面的例子中以＜Phone＞標記開始就必須以＜/Phone＞標記結束，而不能是＜/phone＞或＜/PHONE＞

　　節點標記中可以包含屬性，比如下面的代碼中Phone節點包含屬性Type，其值爲WorkFax:

＜Phone Type="WorkFax"＞987-654-3210＜Phone＞

　　如果不願意在節點中包含一個值，那麼可以不需要結束標記，可以用在開始標記的後面加一個斜線來結束節點，在下面的例子中，Phone標記的Number屬性就存儲了一個電話號碼，所以就不需要一個結束標記：

＜Phone Type="WorkFax" Number="987-654-3210" /＞

　　XML文檔的結構是一個樹形等級結構。文檔必須有一個唯一的根結點，根節點包含所有其它節點。下面我們舉一個較爲完整的例子：

＜Addresses＞
　＜Entry Type="Personal"＞
　　＜FirstName＞Andy＜/FirstName＞
　　＜LastName＞Fickle＜/LastName＞
　　＜Street＞1234 Programmer Place＜/Street＞
　　＜City＞Bugsville＜/City＞
　　＜State＞CO＜/State＞
　　＜Zip＞82379＜/Zip＞
　　＜Phone Type="Home"＞354-493-9489＜/Phone＞
　＜/Entry＞
　＜Entry Type="Work"＞
　　＜FirstName＞Betty＜/FirstName＞
　　＜LastName＞Masterson＜/LastName＞
　　＜Phone Type="Work"＞937-878-4958＜/Phone＞
　　＜Phone Type="WorkFax"＞937-878-4900＜/Phone＞
　＜/Entry＞
　...
＜/Addresses＞  

　　注意相似的節點不需要包含相同的信息，例如第一個Entry節點包含了地址信息和家庭電話號碼，第二個Entry節點包含了Work和WorkFax電話號碼，而沒有包含第一個Entry節點包含的信息。
　　XML工具

　　如前面的例子顯示，XML語法是如此的簡單以至於你可以在很短的時間作一個XML解析器，幸運的是你不必這樣做，因爲XML工具可以運行在各種平臺上，包括可以安裝了Visual Basic的Windows。

　　正是這些L工具而不是XML本身使XML變得更強大和複雜。不同的解析器使你可以某一時刻加載整個XML文檔或只加載某個節點，與此相反，XML Writer 可以同時創建一個XML文檔和節點。

　　DOM解析器使我們能夠很方便的加載、複製、排序、修改和存儲XML文件，遍歷節點獲得名稱或屬性，並給結果排序。雖然他們的功能沒有真正的關係數據庫強大，但DOM的這些特點依然非常有用。

　　XSD可以定義XML文檔的格式，XSL擴展樣式單定義了怎樣將XML文檔轉換成其他可以在WEB瀏覽器中瀏覽的文件格式，比如HTML文件。

　　這些工具實際上比XML本身更復雜，所以所有講解XML的書籍都花了很大的篇幅解釋這些XML工具。但這超出了本文的範圍，有興趣的讀者可以參考有關資料。

　　Visual Basic.Net提供了使用XML、XSL以及其他XML工具的完整工具。但不用等待VB.NET，微軟XML核心服務（MSXML）版本4.0提供了從Visual Basic6.0加載和存儲XML文檔的工具。

　　在msdn.microsoft.com/xml/default.asp中下載最新版本的MSXML，並安裝在計算機上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他對象一樣，首先在工程菜單中選擇引用菜單項，選擇Microsoft V4.0,單擊OK,一切完成後就現在就可以在VB應用程序中添加XML對象了。

　　DOMDocument 類

　　文檔對象模型(DOM)使用了一系列相應的對象描述了XML文檔的等級狀態，DOMDocument類是一個描繪XML文檔的DOM結構的MSXML類。

　　DOMDocument類僅僅提供了很少的幾個有用的屬性和方法。Load方法載入一個xml文件，loadxml方法將字符串作爲xml數據添加到對象中。例如，下面的代碼就將一個小的xml文件添加到名爲xml_document的文檔中。

Dim xml_document As New DOMDocument

xml_document.loadXML _
"＜Person＞" & vbCrLf & _
" ＜FirstName＞Rod＜/FirstName＞" & vbCrLf & _
" ＜LastName＞Stephens＜/LastName＞" & vbCrLf & _
"＜/Person＞"  

　　DOMDocument的xml屬性返回文檔的xml描述，可以顯示這些返回值看看這些文檔究竟是什麼樣子，也可以將它存儲爲一個文件，但這完全不必要，因爲DOMDocument對象的save方法已經自動將他們存儲了。

　　DOMDocument對象的documentElement屬性表示文檔數據的根結點，通常情況下操作XML文檔都從這裏開始。

　　DOMDocument提供了幾種創建新節點的方法。CreateElement方法爲文檔創建一個新的元素節點，其他創建節點的方法有createAttribute, createProcessingInstruction, 和 createTextNode，在這裏就不一一介紹了。

　　IXMLDOMNode類

　　IXMLDOMNode類描述了一個節點，該類提供了一系列用於搜索和操縱XML文檔的屬性和方法。
selectSingleNode 方法用於搜索指定節點的後代，用於搜索指定節點路徑的語言稱爲XPATH，XPATH非常棘手，本文就不詳細說明其規範了。下面我們將介紹兩個對搜索子節點有特別有用並且簡單的方法。

　　在給selectsingleNode方法中輸入子節點的名字，該方法將在節點的子節點進行精確匹配搜索。如果在輸入的字符串前面加上".//"，那麼將搜索節點的全部後代。

註釋： Search for a child node named "LastName."
Set last_name_node = address_node.selectSingleNode("LastName")

註釋： Search for any descendant named "LastName."
Set last_name_node = address_node.selectSingleNode(".//LastName")  

　　下面列出了IXMLDOMNode對象的部分非常有用的屬性：

　　　attributes.節點屬性集合

　　　nodeName.節點的標記名

　　　nodeTypeString.節點的類型

　　　ownerDocument.返回DOMDocument對象包含的節點

　　　text.表示節點包含的文本內容。如果該節點包含其他節點，那麼text代表了所有節點的文本內容的組合。

　　　xml.給出了節點的xml內容，例如："＜FirstName＞Rod＜/FirstName＞".

　　ChildNodes集合包含了節點的子節點。要給節點增加一個子節點，首先必須給使用DOMDocument對象的節點創建方法，然後將這個新建的節點加入到父節點的childNodes集合中。下面的代碼展示了創建一個新的子節點的子程序，並使用父節點的appendChild方法將其加入到父節點中：

註釋： Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal indent As Integer, _
ByVal parent As IXMLDOMNode, ByVal node_name As String, _
ByVal node_value As String)
Dim new_node As IXMLDOMNode

註釋： Create the new node.
Set new_node = parent.ownerDocument.createElement(node_name)

註釋： Set the node註釋：s text value.
new_node.Text = node_value

註釋： Add the node to the parent.
parent.appendChild new_node
End Sub
　　SaveValues 程序

　　現在我們可以使用XML創建一個簡單的程序（如圖1），其值存儲到XML文件中，在程序開始運行時，程序從VALUE.XML文件中加載數據，在程序運行結束時，將程序中的現行值存入VALUE.XML文件中。



　　下面的代碼是顯示了VALUE.XML文件的結構:

＜Values＞
　＜FirstName＞Rod＜/FirstName＞
　＜LastName＞Stephens＜/LastName＞
　＜Street＞1234 Programmer Place＜/Street＞
　＜City＞Bugsville＜/City＞
　＜State＞CO＜/State＞
　＜Zip＞80276＜/Zip＞
＜/Values＞  

　　List1顯示了怎樣編寫SaveValues，當載入表單時，form_load事件觸發LoadValues子程序。

　　LoadValues創建了一個名爲xml_document的DOMDocument對象，然後載入xml文件，使用selectSingleNode方法查找名爲values的節點，然後使用GetNodeValue方法獲得從value節點後代中得到的值。

　　GetNodeValue使用value節點的selectSingleNode方法尋找目標節點，如果節點不存在函數將返回一個缺省值，如果找到這個節點GetNodeValue將返回該節點的text值。對於value.xml文件中的數據節點，text僅僅是包含在節點中的文本內容。

　　當窗體卸載時觸發form_unload事件，unload事件調用SaveValues子程序。程序創建一個新的DOMDocument對象，該對象創建一個新的名爲value的節點，然後用文檔的appendChild方法將節點添加到文檔中。

　　在創建所有新的節點後，SaveValues調用DOMDocument註釋：s save方法存儲新的xml文件。

　　注意這個新的文件已經覆蓋了舊文件，使用DOMDocument對象無法部分改變XML文件，可以加載XML文件，然後修改其中一部分，然後保存文件，但原文件將被完全覆蓋。這是一個小的缺陷，但在這時可以使用其它程序進行修改。

　　List1的最後一部分是CreateNode子程序，CreateNode 爲父節點創建一個新節點並同時給這個節點賦值。在這個子程序中首先引用一個DOMDocument對象，然後使用該對象的createElement方法創建一個新的節點。

　　createNode方法設置節點的text屬性，然後將節點作爲子節點添加到父節點中。

　　List1:

Option Explicit

Private m_AppPath As String

Private Sub Form_Load()
註釋： Get the application註釋：s startup path.
m_AppPath = App.Path
If Right$(m_AppPath, 1) ＜＞ "/" Then m_AppPath = m_AppPath & "/"

註釋： Load the values.
LoadValues
End Sub

Private Sub Form_Unload(Cancel As Integer)
註釋： Save the current values.
SaveValues
End Sub

註釋： Load saved values from XML.
Private Sub LoadValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode

註釋： Load the document.
Set xml_document = New DOMDocument
xml_document.Load m_AppPath & "Values.xml"

註釋： If the file doesn註釋：t exist, then
註釋： xml_document.documentElement is Nothing.
If xml_document.documentElement Is Nothing Then
註釋： The file doesn註釋：t exist. Do nothing.
Exit Sub
End If

註釋： Find the Values section.
Set values_node = xml_document.selectSingleNode("Values")

註釋： Read the saved values.
txtFirstName.Text = GetNodeValue(values_node, "FirstName", "???")
txtLastName.Text = GetNodeValue(values_node, "LastName", "???")
txtStreet.Text = GetNodeValue(values_node, "Street", "???")
txtCity.Text = GetNodeValue(values_node, "City", "???")
txtState.Text = GetNodeValue(values_node, "State", "???")
txtZip.Text = GetNodeValue(values_node, "Zip", "???")
End Sub

註釋： Return the node註釋：s value.
Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, _
ByVal node_name As String, _
Optional ByVal default_value As String = "") As String
Dim value_node As IXMLDOMNode

Set value_node = start_at_node.selectSingleNode(".//" & node_name)
If value_node Is Nothing Then
GetNodeValue = default_value
Else
GetNodeValue = value_node.Text
End If
End Function

註釋： Save the current values.
Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode

註釋： Create the XML document.
Set xml_document = New DOMDocument

註釋： Create the Values section node.
Set values_node = xml_document.createElement("Values")

註釋： Add the Values section node to the document.
xml_document.appendChild values_node

註釋： Create nodes for the values inside the
註釋： Values section node.
CreateNode values_node, "FirstName", txtFirstName.Text
CreateNode values_node, "LastName", txtLastName.Text
CreateNode values_node, "Street", txtStreet.Text
CreateNode values_node, "City", txtCity.Text
CreateNode values_node, "State", txtState.Text
CreateNode values_node, "Zip", txtZip.Text

註釋： Save the XML document.
xml_document.save m_AppPath & "Values.xml"
End Sub

註釋： Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal parent As IXMLDOMNode, _
ByVal node_name As String, ByVal node_value As String)
Dim new_node As IXMLDOMNode

註釋： Create the new node.
Set new_node = parent.ownerDocument.createElement(node_name)

註釋： Set the node註釋：s text value.
new_node.Text = node_value

註釋： Add the node to the parent.
parent.appendChild new_node
End Sub  
　　SaveValuesIndented 程序

　　雖然每個人都化了很大的精力去處理xml文檔，使他們看上更容易些，但xml工具一般都忽略了那些使xml文檔結構明顯的空白和縮進，xml解析器也同樣忽略縮進和空白。

　　不幸的是我們例子也同樣忽略了這些縮進和空白，SaveValues創建了一個象下面那樣的xml文件，所有的代碼都在同一行中。

＜Values＞＜FirstName＞Rod＜/FirstName＞＜LastName＞Stephens＜/LastNa
me＞＜Street＞1234 Programmer Place＜/Street＞＜City＞Bugsville＜/Ci
ty＞＜State＞CO＜/State＞＜Zip＞80276＜/Zip＞＜/Values＞  

　　VB.NET中包括了文本寫入類，可以XML文檔規定格式。但MSXML重沒有這種功能，所以如果需要以一種清晰的格式保存XML文件，只能另行添加它的格式。

　　List2列出了程序SaveValuesIndented使用的代碼，SaveValues子程序與上面例子中講的幾乎完全相同，但他在創建value節點後同時給XML文檔創建了一個＜value＞標記的新行。

　　然後SaveValues 調用CreateNode創建一個新的數據節點，但在這裏它傳遞給CreateNode一個新的參數，這個參數表示這個新節點的縮進方式。

　　CreateNode

註釋： Save the current values.
Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode

註釋： Create the XML document.
Set xml_document = New DOMDocument

註釋： Create the Values section node.
Set values_node = xml_document.createElement("Values")

註釋： Add a new line.
values_node.appendChild xml_document.createTextNode(vbCrLf)

註釋： Add the Values section node to the document.
xml_document.appendChild values_node

註釋： Create nodes for the values inside the
註釋： Values section node.
CreateNode 4, values_node, "FirstName", txtFirstName.Text
CreateNode 4, values_node, "LastName", txtLastName.Text
CreateNode 4, values_node, "Street", txtStreet.Text
CreateNode 4, values_node, "City", txtCity.Text
CreateNode 4, values_node, "State", txtState.Text
CreateNode 4, values_node, "Zip", txtZip.Text

註釋： Save the XML document.
xml_document.save m_AppPath & "Values.xml"
End Sub

註釋： Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal indent As Integer, _
　ByVal parent As IXMLDOMNode, ByVal node_name As String, _
　ByVal node_value As String)
Dim new_node As IXMLDOMNode

註釋： Indent.
parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))

註釋： Create the new node.
Set new_node = parent.ownerDocument.createElement(node_name)

註釋： Set the node註釋：s text value.
new_node.Text = node_value

註釋： Add the node to the parent.
parent.appendChild new_node

註釋： Add a new line.
parent.appendChild parent.ownerDocument.createTextNode(vbCrLf)
End Sub  

　　結論

　　本文僅僅揭示XML編程的表面，本文的例子中的涉及只是非常簡單的XML文件，但你可以使用使用本文揭示的技術做更多的事情，比如配置設置、表單位置、以及其他信息。XML已經向前更進一步的發展了，有了更復雜的數據層次。對於更復雜的數據結構，在運行時可以更容易的使用MSXML對象來存取XML文件