有時，只需要用xml作一些小的應用，比如只是簡單地保存日志或者一些配置，這時我們只需要直接讀寫XML就好，效率第一。 Delphi盒子有一個直接讀寫XML文件 (例子和代碼)，其核心函數為下面兩個函數（一讀一寫）：
{------------------------------------------------------------------------------- 
Fun/PRo: GetXMLNodeValue @Date: 2004.12.11 @Param: xmlFile xml文件 @Param: xmlnodepath 節點 @Param: xmlattrname 節點中的屬性名稱，如果直接取節點值則可以忽略此參數。 @Param: dep 節點的參數的分隔符，默認為. @Return: 第一個節點的值 
-------------------------------------------------------------------------------} 
function GetXMLNodeValue(strEntityEngineFile:String; xmlNodePath:String; const xmlattrname:String=''; const dep:Char ='.'):String; var xmlDocument :IXMLDocument; node :IXMLNode; xmlnodeList :TStrings; i :Integer; urlcount :Integer; begin //xml節點路徑 xmlnodeList:=TStringList.Create; xmlnodeList.Delimiter:=dep; xmlnodeList.DelimitedText:=xmlnodepath; urlcount:=xmlnodeList.Count; //xml對象 xmlDocument :=TXMLDocument.Create(nil); xmlDocument.LoadFromFile(strEntityEngineFile); xmlDocument.Active:=true; try node:= xmlDocument.DocumentElement; if(node.NodeName = xmlnodeList[0]) then begin //掃描節點 for i := 1 to urlcount-1 do begin if(node<>nil) then node := getnodefromIXMLNodeList(node.ChildNodes,xmlnodeList[i]) else Break; end; if(node=nil)then begin result:=''; end else begin //判斷是取屬性還是取節點內容 if(Trim(xmlattrname)='') then result:=node.Text else result:=node.AttributeNodes.Nodes[xmlattrname].NodeValue; end; end else begin result:=''; end; except result:='error'; end; xmlDocument.Active:=false; end; {------------------------------------------------------------------------------- Fun/Pro: SetXMLNodeValue @Date: 2004.12.11 @Param: xmlFile xml文件 @Param: xmlnodepath 節點 @Param: xmlattrname 節點中的屬性名稱，如果直接取節點值則可以忽略此參數。 @Param: dep 節點的參數的分隔符，默認為. @Return: 操作成功否 -------------------------------------------------------------------------------} function setXmlNodeValue(strEntityEngineFile:String; xmlNodePath:String; const xmlattrname:String=''; const value:String=''; const dep:Char ='.'):boolean; var xmlDocument :IXMLDocument; node :IXMLNode; xmlnodeList :TStrings; i :Integer; urlcount :Integer; begin //xml節點路徑 xmlnodeList:=TStringList.Create; xmlnodeList.Delimiter:=dep; xmlnodeList.DelimitedText:=xmlnodepath; urlcount:=xmlnodeList.Count; //xml對象 xmlDocument :=TXMLDocument.Create(nil); xmlDocument.LoadFromFile(strEntityEngineFile); xmlDocument.Active:=true; try node:= xmlDocument.DocumentElement; if(node.NodeName = xmlnodeList[0]) then begin //掃描節點 for i := 1 to urlcount-1 do begin if(node<>nil) then node := getnodefromIXMLNodeList(node.ChildNodes,xmlnodeList[i]) else Break; end; if(node <> nil)then begin if(Trim(xmlattrname)='') then node.Text:=value else node.AttributeNodes.Nodes[xmlattrname].NodeValue:=value; xmlDocument.SaveToFile(strEntityEngineFile); end; end; result:=true; except result:=false; end; xmlDocument.Active:=false; end;但是上述兩個函數有一個問題：它只能按節點名和屬性名查找第一條記錄。舉例：如果要操作類似下述XML文件，節點和屬性名相同的有多個，只是屬性的值不一樣，上面的讀寫函數就罷工了。
<colour name="normal attribute" red="100" green="125" blue="150"/> <colour name="good attribute" red="150" green="175" blue="200"/> <colour name="Excellent attribute" red="0" green="0" blue="255"/> OK，程序員的最大樂趣就是自己動手了。我們來改造一下這兩個函數。 在原有函數的基礎上增加了兩個參數：
{------------------------------------------------------------------------------- Fun/Pro: GetXMLNodeSpecialValue @Date: 2004.12.11 @Param: xmlFile xml文件 @Param: xmlnodepath 節點 @Param: xmlattrname 節點中的屬性名稱，如果直接取節點值則可以忽略此參數。 @Param: XMLSpecialName 要查找的節點中屬性名 @Param: XMLSpecialValue 要查找的節點中某屬性對應的值 @Param: dep 節點的參數的分隔符，默認為. @Return: 某屬性的值 -------------------------------------------------------------------------------} function GetXMLNodeSpecialValue(strEntityEngineFile:String; XMLNodePath:String; const XMLAttrName:String=''; const XMLSpecialName:String=''; const XMLSpecialValue:String=''; const dep:Char ='.'):String; var xmlDocument :IXMLDocument; node :IXMLNode; xmlnodeList :TStrings; i :Integer; urlcount :Integer; begin //xml節點路徑 xmlnodeList:=TStringList.Create; xmlnodeList.Delimiter:=dep; xmlnodeList.DelimitedText:=xmlnodepath; urlcount:=xmlnodeList.Count; //xml對象 xmlDocument :=TXMLDocument.Create(nil); xmlDocument.LoadFromFile(strEntityEngineFile); xmlDocument.Active:=true; try node:= xmlDocument.DocumentElement; if(node.NodeName = xmlnodeList[0]) then begin //掃描節點 for i := 1 to urlcount-1 do begin if(node<>nil) then begin node := getnodefromIXMLNodeList(node.ChildNodes,xmlnodeList[i]); end else Break; end; if(node=nil)then begin result:=''; end else begin //判斷是取屬性還是取節點內容 if(Trim(xmlattrname)='') then result:=node.Text else begin result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue; //這里不想再聲明一個臨時變量了，就用result來比較，可能有隱患。 while ((result <> XMLSpecialValue)) do begin node := node.NextSibling; while (node.NodeName = '#comment') do begin node:= node.NextSibling; end; result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue; end; result:=node.AttributeNodes.Nodes[XMLAttrName].NodeValue; end; end; end else begin result:=''; end; except result:='error'; end; xmlDocument.Active:=false; end;寫函數
{------------------------------------------------------------------------------- Fun/Pro: SetXMLNodeSpecialValue @Date: 2004.12.11 @Param: xmlFile xml文件 @Param: xmlnodepath 節點 @Param: xmlattrname 節點中的屬性名稱，如果直接取節點值則可以忽略此參數。 @Param: XMLSpecialName 要查找的節點中屬性名 @Param: XMLSpecialValue 要查找的節點中某屬性對應的值 @Param: dep 節點的參數的分隔符，默認為. @Return: 操作成功與否 -------------------------------------------------------------------------------} function SetXMLNodeSpecialValue(strEntityEngineFile:String; xmlNodePath:String; const xmlattrname:String=''; const value:String=''; const XMLSpecialName:String=''; const XMLSpecialValue:String=''; const dep:Char ='.'):boolean; var xmlDocument :IXMLDocument; node :IXMLNode; xmlnodeList :TStrings; i :Integer; urlcount :Integer; CMPValue :String; begin //xml節點路徑 xmlnodeList:=TStringList.Create; xmlnodeList.Delimiter:=dep; xmlnodeList.DelimitedText:=xmlnodepath; urlcount:=xmlnodeList.Count; //xml對象 xmlDocument :=TXMLDocument.Create(nil); xmlDocument.LoadFromFile(strEntityEngineFile); xmlDocument.Active:=true; try node:= xmlDocument.DocumentElement; if(node.NodeName = xmlnodeList[0]) then begin //掃描節點 for i := 1 to urlcount-1 do begin if(node<>nil) then node := getnodefromIXMLNodeList(node.ChildNodes,xmlnodeList[i]) else Break; end; if(node <> nil)then begin {if(Trim(xmlattrname)='') then node.Text:=value else node.AttributeNodes.Nodes[xmlattrname].NodeValue:=value; } if (Trim(XMLAttrName)='') then node.Text := value else begin CMPValue := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue; while (CMPValue <> XMLSpecialValue) do begin node := node.NextSibling; while (node.NodeName = '#comment') do begin node:= node.NextSibling; end; CMPValue := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue; end; node.AttributeNodes.Nodes[XMLAttrName].NodeValue:=value; end; xmlDocument.SaveToFile(strEntityEngineFile); end; end; result:=true; except result:=false; end; xmlDocument.Active:=false; end;新聞熱點
疑難解答
圖片精選
