用XML文件存储数据

yiyiyicz 2012-06-16

展开全文

1：XML缺少数据库具备的特性：高效的存储（即使是数据库内XML字段还是没有传统字段的速度快）、索引和数据修改机制（DB2等数据库产品对XML内的元素和属性可以加索引，内建在数据库中的XML字段享受了数据库带来的一些好处）；严格的数据安全访问控制；完整的事务和数据一致性控制；多用户访问机制；触发器、完善的并发控制等因此，用户量大、数据集成度高以及性能要求高的数据环境中还是需要数据库来完成任务，IBM的DB2工程师也在讨论时建议我们统计类数据还是用传统字段为好。

2：说说 XSL,XSLT文件是用来做XML转换，一般是转换为HTML(XHTML),只是转换的话 XSL 代码与XML的结构复杂度有关，与 XML本身有多少数据量无关，为什么会有几千万行的数据？你恐怕把 XML 写成 XSL 了吧，数据有几千万行才对吧，XSL 不会很大。

3：真的数据源有 几千万行的话，是否应该存在 XML 文档中？你可以计算一下，XML文档是文本模式存放，一行存放最少算平均20个字节有吧（就算10个汉字），那 1000万行已经 200M 大，不要说 200M，就是20M的文本文件用编辑器打开都会非常吃力，像死机一样，这么大的数据量我认为不应该存在 XML 文件中，应存在数据库表中，如果是文件系统应该用二进制文件存放或根据用途和管理方案对其分割。XML只适合保存少量数据,最多不能超过1w

4：数据库中XML数据（表转换或通过源生XML字段）读出通过 XSL 显示页面的方式由于没有了SQL,可以保证页面代码与各类数据库产品的无关性，由于大数据量显示一般都有分页控制读取和显示，性能问题不大。

5，现代的数据库大部分都有 XML 字段，可以直接存储 XML, 不需要经过表 -> XML 的转换，即使没有 XML 字段，由于XML本身的文本特性，也可以将其作为字符串或 CLOB 存储，只有数据本身不是XML，而是用二维表格存在数据库中时，才需要表 -> XML 转换

把数据存储到 XML 文件

创建并保存 XML 文件

如果数据要被传送到非 Windows 平台上的应用程序，那么把数据保存在 XML 文件中是有好处的。请记住，XML 有很强的跨平台可移植性，并且数据无需转换！

首先，我们将学习如何创建并保存一个 XML 文件。下面的这个 XML 文件将被命名为 "test.xml"，并被保存在服务器上的 c 目录中。我们将使用 ASP 和微软的 XMLDOM 对象来创建并保存这个 XML 文件：

<%
Dim xmlDoc, rootEl, child1, child2, p

'创建XML文档
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")

'创建根元素并将之加入文档
Set rootEl = xmlDoc.createElement("root")
xmlDoc.appendChild rootEl

'创建并加入子元素
Set child1 = xmlDoc.createElement("child1")
Set child2 = xmlDoc.createElement("child2")
rootEl.appendChild child1
rootEl.appendChild child2

'创建 XML processing instruction
'并把它加到根元素之前
Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'")
xmlDoc.insertBefore p,xmlDoc.childNodes(0)

'把文件保存到 C 目录
xmlDoc.Save "c:\test.xml"
%>

如果您打开这个被保存的文件，它会使这个样子 ("test.xml")：

<?xml version="1.0"?>
<root>
  <child1 />
  <child2 />
</root>

真实的表单例子

现在，我们看一个真实的表单例子。

我们首先看一下这个被用在例子中的 HTML 表单：下面的HTML表单要求用户输入他们的名字、国籍以及电子邮件地址。随后这些信息会被写到一个 XML 文件，以便存储。

"customers.htm":

<html>

<body>
<form action="saveForm.asp" method="post">
<h1>请输入您的联系信息：</h1>
<label>名字: </label>
<p><input type="text" id="firstName" name="firstName"></p>

<label>姓氏: </label>
<p><input type="text" id="lastName" name="lastName"></p>

<label>国家: </label>
<p><input type="text" id="country" name="country"></p>

<label>邮件: </label>
<p><input type="text" id="email" name="email"></p>

<p>
<input type="submit" id="btn_sub" name="btn_sub" value="Submit">
<input type="reset" id="btn_res" name="btn_res" value="Reset">
</p>
</form>
</body>

</html>

用于以上 HTML 表单的 action 被设置为 "saveForm.asp"。"saveForm.asp" 文件是一个 ASP 页面，可循环遍表单域，并把它们的值存储在一个 XML 文件中：

<%
dim xmlDoc
dim rootEl,fieldName,fieldValue,attID
dim p,i

'如果有错误发生，不允许程序终止
On Error Resume Next

Set xmlDoc = server.CreateObject("Microsoft.XMLDOM")
xmlDoc.preserveWhiteSpace=true

'创建并向文档添加根元素
Set rootEl = xmlDoc.createElement("customer")
xmlDoc.appendChild rootEl

'循环遍历 Form 集
for i = 1 To Request.Form.Count
  '除去表单中的 button 元素
  if instr(1,Request.Form.Key(i),"btn_")=0 then
    '创建 field 和 value 元素，以及 id 属性
    Set fieldName = xmlDoc.createElement("field")
    Set fieldValue = xmlDoc.createElement("value")
    Set attID = xmlDoc.createAttribute("id")
    '把当前表单域的名称设置为 id 属性的值
    attID.Text = Request.Form.Key(i)
    '把 id 属性添加到 field 元素
    fieldName.setAttributeNode attID
    '把当前表单域的值设置为 value 元素的值
    fieldValue.Text = Request.Form(i)
    '将 field 元素作为根元素的子元素进行添加
    rootEl.appendChild fieldName
    '将 value 元素作为 field 元素的子元素进行添加
    fieldName.appendChild fieldValue
  end if
next

'添加 XML processing instruction
'并把它加到根元素之前
Set p = xmlDoc.createProcessingInstruction("xml","version='1.0'")
xmlDoc.insertBefore p,xmlDoc.childNodes(0)

'保存 XML 文件
xmlDoc.save "c:\Customer.xml"

'释放所有的对象引用
set xmlDoc=nothing
set rootEl=nothing
set fieldName=nothing
set fieldValue=nothing
set attID=nothing
set p=nothing

'测试是否有错误发生
if err.number<>0 then
  response.write("Error: No information saved.")
else
  response.write("Your information has been saved.")
end if
%>

注释：如果指定的 XML 文件名已经存在，那个文件会被覆盖！

XML 文件会由上面的代码生成，大致的样子是这样的：("Customer.xml"):

<?xml version="1.0" ?>
<customer>
  <field id="firstName">
    <value>David</value> 
  </field>
  <field id="lastName">
    <value>Smith</value> 
  </field>
  <field id="country">
    <value>China</value> 
  </field>
  <field id="email">
    <value>mymail@myaddress.com</value> 
  </field>
</customer

XML文件XPATH查询方法

vb中使用DomDocument对象操作xml时，若要使用XPath中的内部函数，需要进行如下设置

dim dom as DomDocument

dom.setProperty  "SelectionLanguage", "XPath"

XML 路徑語言 (XPath) 查詢可以用來利用 DOM 方法 (如 selectNodes 或 selectSingleNode 查詢 XML 文件。預設會使用的查詢是 XSLPattern 回溯相容性。若要用以 XPath 變更 [以 XPath 的 [DOMDocument 的 SelectionLanguage 內部屬性]。XPath 新增很多的功能 ； 比方說它可讓您使用如 字串長度 和 加總 函數。

下列的程式碼範例示範如何使用 XPath 與 selectNodes 方法：

啟動 Visual Basic，並建立新的標準執行檔。
[] 選取 [專案]、選取 [參考]，然後再新增 [Microsoft XML、 v3.0 的參考]。
將下列程式碼加入至 Form_Load 事件:

Dim dom As DOMDocument30
Dim nodelist As IXMLDOMNodeList
Dim strPath As String
   
Set dom = New DOMDocument30
dom.async = False
   
dom.loadXML "<Admin><Area AreaName='a'/></Admin>"
   
dom.setProperty "SelectionLanguage", "XPath"
strPath = "/Admin/Area[string-length(@AreaName) = 1]"
Set nodelist = dom.documentElement.selectNodes(strPath)
   
Debug.Print "Found " & nodelist.length & " Node"

4，執行該應用程式，並請注意 [即時運算] 視窗會顯示 找到 1 節點。

5，若要顯示預設的註解出呼叫 setProperty 程式碼行行為。因為再執行程式碼會產生錯誤訊息 XSL 模式比對不支援 字串長度 函式。