Hi大家好:   我就不再說客套話了,直接進入主題. 我最近在寫讀取XML檔資料的程式(bcb+msxmlV3.0),程式要讀取檔案中所有node的名稱及其data, 我搜尋了相關文章就是找不到bcb的完整範例, 於是自己拼拼湊湊寫了一個小小程式, 但是出了問題想請教大家, 我的問題是程式可正確讀取到root node的名稱及data, 但繼續讀下一層就會出現error, 我嘗試只讀node的名稱不讀取data則可正確讀出所有各層nodes的名稱,以下是我的程式, 請大家幫幫忙看看錯在哪裡, 感謝, 感謝!!

 
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
  int nodelength;
  TCOMIXMLDOMDocument myXML;
  myXML = CoDOMDocument::Create();
  myXML->load(xmlfilename);      IXMLDOMNodeListPtr CNList;
  CNList = myXML->documentElement->childNodes;
  GetNodeData(CNList);
}
//--------------------------------------------------------------
void __fastcall TFormMain::GetNodeData(IXMLDOMNodeListPtr CNList)
{
   IXMLDOMNodePtr n;
   for (int i = 0; i < CNList->length; i  )
       {
         n = CNList->get_item(i);           //取出個別的 Child Node。
         ListBox1->Items->Add(n->nodeName); //取出該Node名稱。
         ListBox1->Items->Add(n->attributes->get_item(i)-
                              Text);        //取出該Node資料。
                                            //如果不讀值,將此行去除則
                                            //可正確執行             GetNodeData(n->childNodes);        //遞迴取出底下node的data
       }
} 

發表人 -

引言: Hi大家好: 我就不再說客套話了,直接進入主題. 我最近在寫讀取XML檔資料的程式(bcb msxmlV3.0),程式要讀取檔案中所有node的名稱及其data, 我搜尋了相關文章就是找不到bcb的完整範例, 於是自己拼拼湊湊寫了一個小小程式, 但是出了問題想請教大家, 我的問題是程式可正確讀取到root node的名稱及data, 但繼續讀下一層就會出現error, 我嘗試只讀node的名稱不讀取data則可正確讀出所有各層nodes的名稱,以下是我的程式, 請大家幫幫忙看看錯在哪裡, 感謝, 感謝!! void __fastcall TFormMain::Button1Click(TObject *Sender) { int nodelength; TCOMIXMLDOMDocument myXML; myXML = CoDOMDocument::Create(); myXML->load(xmlfilename); IXMLDOMNodeListPtr CNList; CNList = myXML->documentElement->childNodes; GetNodeData(CNList); } //-------------------------------------------------------------- void __fastcall TFormMain::GetNodeData(IXMLDOMNodeListPtr CNList) { IXMLDOMNodePtr n; for (int i = 0; i < CNList->length; i ) { n = CNList->get_item(i); //取出個別的 Child Node。 ListBox1->Items->Add(n->nodeName); //取出該Node名稱。 ListBox1->Items->Add(n->attributes->get_item(i)- Text); //取出該Node資料。 //如果不讀值,將此行去除則 //可正確執行 GetNodeData(n->childNodes); //遞迴取出底下node的data } } < face="Verdana, Arial, Helvetica"> moli1943 你好: 請參考以下的連結文章

謝謝版主的回應, 不過我看的實在有點給他霧煞煞, 還有沒有白話一點的範例?

_di_IXMLDocument XMLDocument1=NewXMLDocument(); XMLDocument1->LoadFromFile(WideString(OpenDialog1->FileName)); _di_IXMLNodeList nodelist1=XMLDocument1->GetChildNodes();//Root Element int BLListCount=nodelist1->GetCount(); _di_IXMLNode node1 =nodelist1->Get(1);//Use For loop to find all Child Element AnsiString Traffic_No,BL_NO,Traffic_Model_Code; Traffic_Model_Code =AnsiString(node1->Attributes[WideString("Traffic_Model_Code")]);//Get Attribute _di_IXMLNodeList nodelist2 = node1->GetChildNodes();//Next Level Elements BLListCount = nodelist2->Count;//The count of Next level Elements .....