全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1535
推到 Plurk!
推到 Facebook!

請問如何水平式讀取 XML ?

缺席
jtain
一般會員


發表:16
回覆:18
積分:6
註冊:2005-01-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-15 11:47:28 IP:211.21.xxx.xxx 訂閱
版主︰上一篇因為無法在修改時傳檔,所以又重新寫了一篇,請版主刪除該篇貼文。


我有一份 xml 如下,我想把資料讀取成︰ A 亦作a noun pl. As或A's the first letter of the alphabet
在 BCB6 專業版上要如何寫?

ps: 不好意思這一段 xml 碼始終無法正常顯示,所以改成用檔案上傳。

我是有從網路上抓了一段程式,但會出現錯誤。有哪位高手可以給一個範例?

[code cpp]
di_IXMLDocument XML_Doc;
try{
XML_Doc=LoadXMLDocument(WideString(Trim(inName->Text)));
}catch(Exception &e){
MyMsgBox(e.Message,""); return;
} XML_Doc->Active;
IXMLNode *root; //指向XML根結點
IXMLNode *Parent_Node; //父結點
IXMLNode *Child_Node; //子結點
ListBox1->Items->Clear();
root=XML_Doc->DocumentElement;
Parent_Node=root->ChildNodes->First(); //獲取第一個父結點
while(Parent_Node != NULL){
Child_Node=Parent_Node->ChildNodes->First(); //獲取本父結點的第一個子結點
while(Child_Node != NULL){
ListBox1->Items->Add(Child_Node->Text); //取姓結點的值(就是這一行會出錯 Element does not contain a single text node)
Child_Node = Child_Node->NextSibling(); //順序取下一個子結點信息
}
Parent_Node = Parent_Node->NextSibling(); //順序取下一個父結點信息
}

[/code]
------
無所不在
系統時間:2024-03-29 0:11:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!