1：
<?xml version="1.0" encoding="UTF-8"?>
<Result>
<Status>00</Status>
<Services><Service>
<Service_id>CA_O_SAPP_IN_10000180</Service_id>
<Service_name>常住人口服務方</Service_name>
<Service_status>00</Service_status>
<Hc_result>1</Hc_result>
<Zps><zp>aaa</zp></Zps>
</Service></Services>
</Result>
如何決議1：中的資料
結果應該是：
Status=00
Service_id=CA_O_SAPP_IN_10000180
Service_name=常住人口服務方
Service_status=00
Hc_result=1
zp=aaa
2：
<?xml version="1.0" encoding="UTF-8"?>
<Result>
<Status>00</Status>
<CurPage>1</CurPage>
<TotalNum>1</TotalNum>
<Rows><Row>
<Col Name="FQZJHM">350322193202163023</Col>
<Col Name="MQZJHM">350322193402163087</Col>
<Col Name="SFZH">350322196806133045</Col>
<Col Name="JG">福建省</Col>
<Col Name="XM">詹良嬌</Col>
<Col Name="XB">女</Col>
<Col Name="MZ">漢</Col>
<Col Name="ZZXZ">福建省至亭路69-4號</Col>
<Col Name="XP">aafsas</Col>
<Col Name="FQXM">詹元碗</Col>
<Col Name="MQXM">林瑞英</Col>
<Col Name="CSRQ">19680613</Col>
</Row></Rows>
</Result>
如何決議2：中的資料
結果應該是：
FQZJHM=350322193202163023
MQZJHM=350322193402163087
SFZH=350322196806133045
JG=福建省
XM=詹良嬌
XB=女
MZ=漢
ZZXZ=福建省至亭路69-4號
XP=aafsas
FQXM=詹元碗
MQXM=林瑞英
CSRQ=19680613
uj5u.com熱心網友回復：
請問給位大俠，用delphi 7 如何把 1：和2：中xml資料決議成問題中的結果。。。。。。。uj5u.com熱心網友回復：
建議使用TXMLDocument;或第三方控制元件 NativeXml,。
uj5u.com熱心網友回復：
self.XMLDocument1.LoadFromFile("");
XMLDocument1.DocumentElement.ChildNodes.FindNode("Status").NodeValue
uj5u.com熱心網友回復：
使用TXMLDocument控制元件可以輕意解釋用法參考http://www.codes51.com/article/detail_22765.html
uj5u.com熱心網友回復：
自己定義RECORD，如果程式需要簡單直接的方法。注意：UTF-8編碼和ANSI編碼之間的轉換
uj5u.com熱心網友回復：
1、讀取XMLMemo1.Clear;
XMLDocument1.LoadFromFile(MainPath+'20140606.xml'); // 讀取XML檔案
Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text); // 查看格式化文本
2、加載記憶體檔案
var ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
ms.LoadFromFile(MainPath+'test.xml');
XMLDocument1.LoadFromStream(ms);
ms.Free;
Memo1.Lines := XMLDocument1.XML; {查看}
3、創建XML
var XML1:TXMLDocument;
Node:IXMLNode; // 根結點
node1,node2:IXMLNode; // 子結點
begin
XML1:=TXMLDocument.Create(nil);
XML1.Active:=True;
XML1.Version:='1.0';
XML1.Encoding:='gb2312';
Node:=XML1.AddChild('科室名單'); // 第一個節點是根節點, Root指向根節點
Node.SetAttribute('備注', '測驗'); // 為根節點設定屬性 職務,科長
Node.SetAttribute('備注', '正局級');
Node1 := Node.AddChild('人員'); // 為根節點添加子節點, 當前 pNode 指向“人員”節點
Node1.SetAttribute('職務', '科長'); // 設定屬性 (屬性名,屬性值)
Node1.SetAttribute('備注', '正局級');
Node2 := Node1.AddChild('姓名'); // 為 pNode 添加子節點
Node2.Text := '張三'; // 為 pNode 添加文本值
Node2.SetAttribute('職務', '科長'); // 設定屬性 (屬性名,屬性值)
Node2.SetAttribute('備注', '正局級');
Node2 := Node.AddChild('性別');
Node2.Text := '男';
Node2 := Node1.AddChild('年齡');
Node2.Text := '34';
Node2 := Node1.AddChild('AAA');
Node2 := Node1.AddChild('BBB');
Node2.SetAttribute('職務', '科長'); // 設定屬性 (屬性名,屬性值)
Node2.SetAttribute('備注', '正局級');
Node2 := Node1.AddChild('CCC');
Node2.SetAttribute('職務', '科長'); // 設定屬性 (屬性名,屬性值)
Node2.SetAttribute('備注', '正局級');
uj5u.com熱心網友回復：
http://download.csdn.net/detail/frtrnr/4518467uj5u.com熱心網友回復：
4、決議XMLprocedure TForm1.Button23Click(Sender: TObject);
var XMLRootNode,XMLnode1,XMLnode2,XMLnode3,XMLnode4,XMLnode5:IXMLNode;
begin
XMLDocument1.XML.Clear;
XMLDocument1.FileName :=MainPath+'test.xml';
XMLDocument1.Active := True; {激活}
XMLRootNode:=XMLDocument1.DocumentElement;
Memo1.Text := ReadXml(XMLRootNode);
// XMLDocument1.DocumentElement:=XMLRootNode;
// XMLDocument1.SaveToFile(MainPath+'test4.xml'); // 保存XML檔案
// Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
end;
procedure TForm1.Button24Click(Sender: TObject);
var i,j,k,k1,k2:integer;
nodeList,nodeList1,nodeList2,nodeList3,nodeList4:IXMLNodeList;
XMLRootNode,XMLnode1,XMLnode2,XMLnode3,XMLnode4,XMLnode5:IXMLNode;
begin
XMLDocument1.FileName := 'Test.xml';
XMLDocument1.Active := True; {激活}
Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
XMLRootNode := XMLDocument1.DocumentElement; // 根節點
// XMLRootNode.SetAttribute;
XMLDocument1.SaveToFile('D:\test6.xml'); // 保存XML檔案
Memo2.Lines.Add('0根節點:'+XMLRootNode.nodeName+'，子節點: '+IntToStr( XMLRootNode.ChildNodes.Count));
NodeList:=XMLRootNode.ChildNodes; // 第1級
fOR I:=0 TO NodeList.Count-1 DO
BEGIN
XMLNode1:=NodeList.Get(i);
If XMLNode1.HasChildNodes then
begin
if XMLNode1.IsTextElement
then Memo2.Lines.Add('1 節點 '+IntToStr(i+1)+' '+XMLNode1.NodeName+' 屬性文本')
else Memo2.Lines.Add('1 節點 '+IntToStr(i+1)+' '+XMLNode1.NodeName);
nodeList1:=XMLNode1.ChildNodes; // 第2級
For j:=0 TO NodeList1.Count-1 DO
begin
XMLNode2:=NodeList1.Get(j);
If XMLNode2.HasChildNodes then
begin
if XMLNode2.IsTextElement
then Memo2.Lines.Add('2 節點 '+IntToStr(j+1)+' '+XMLNode2.NodeName+' 屬性文本')
else Memo2.Lines.Add('2 節點 '+IntToStr(j+1)+' '+XMLNode2.NodeName);
nodeList2:=XMLNode2.ChildNodes; // 第2級
fOR k:=0 TO NodeList2.Count-1 DO
BEGIN
XMLNode3:=NodeList2.Get(k);
If XMLNode3.HasChildNodes then
begin
if XMLNode3.IsTextElement
then Memo2.Lines.Add('3 節點 '+IntToStr(k+1)+' '+XMLNode3.NodeName+' 屬性文本')
else Memo2.Lines.Add('3 節點 '+IntToStr(k+1)+' '+XMLNode3.NodeName);
NodeList3:=XMLNode3.ChildNodes; // 第2級
fOR k1:=0 TO NodeList3.Count-1 DO
BEGIN
XMLNode4:=NodeList3.Get(k1);
If XMLNode4.HasChildNodes then
begin
if XMLNode4.IsTextElement
then Memo2.Lines.Add('3 節點 '+IntToStr(k1+1)+' '+XMLNode4.NodeName+' 屬性文本')
else Memo2.Lines.Add('3 節點 '+IntToStr(k1+1)+' '+XMLNode4.NodeName);
NodeList4:=XMLNode4.ChildNodes; // 第2級
fOR k2:=0 TO NodeList4.Count-1 DO
BEGIN
XMLNode5:=NodeList4.Get(k2);
if XMLNode5.HasChildNodes then
begin
if XMLNode5.IsTextElement
then Memo2.Lines.Add('4 節點 '+IntToStr(k2+1)+' '+XMLNode5.NodeName+' 屬性文本')
else Memo2.Lines.Add('4 節點 '+IntToStr(k2+1)+' '+XMLNode5.NodeName);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/97432.html
標籤：網絡通信/分布式開發