MSXML 解析用法 实例

/*
    CoInitialize(NULL); 
    CComPtr<IXMLDOMDocument> spXmldoc; 
    HRESULT hr = spXmldoc.CoCreateInstance(L"MSXML2.DOMDocument.6.0"); 
    if(SUCCEEDED(hr)) 
    { 
        VARIANT_BOOL isSuccessFul; 
        CComVariant varXmlFile(L"Demo.xml"); 
        spXmldoc->put_async(VARIANT_FALSE); 
        HRESULT hr= spXmldoc->load(varXmlFile, &isSuccessFul); 
        if(isSuccessFul==VARIANT_TRUE) 
        { 
            CComBSTR bstrXml; 
            CComPtr<IXMLDOMElement> spRoot=NULL; 
            CComPtr<IXMLDOMElement> spTheBook=NULL; 
            CComPtr<IXMLDOMElement> spTheElem=NULL; 
            CComPtr<IXMLDOMNode> spNewNode=NULL; 
            hr = spXmldoc->get_documentElement(&spRoot); 
            spRoot->get_xml(&bstrXml); 
            AfxMessageBox("1, 原始的XML"); 
            char *buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf);
            spXmldoc->createElement(L"book", &spTheBook); 
            spXmldoc->createElement(L"name", &spTheElem); 
            spXmldoc->put_text(L"新书"); 
            spTheBook->appendChild(spTheElem, &spNewNode); 
            spTheElem.Release(); 
            spNewNode.Release(); 
            spXmldoc->createElement(L"price", &spTheElem); 
            spTheElem->put_text(L"20"); 
            spTheBook->appendChild(spTheElem, &spNewNode); 
            spTheElem.Release(); 
            spNewNode.Release(); 
            spXmldoc->createElement(L"memo", &spTheElem); 
            spTheElem->put_text(L"新书的更好看。"); 
            spTheBook->appendChild(spTheElem, &spNewNode); 
            spNewNode.Release(); 
            spTheElem.Release(); 
            spRoot->appendChild(spTheBook, &spNewNode); 
            spNewNode.Release(); 
            spTheBook.Release(); 
            spRoot->get_xml(&bstrXml); 
            AfxMessageBox("2, 新建一本书完成"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf);
            ////---  新建一本书完成 ---- 
            ////---  下面对《哈里波特》做一些修改。 ---- 
            ////---  查询找《哈里波特》---- 
            CComPtr<IXMLDOMNode> spTheNode=NULL; 
            spRoot->selectSingleNode(L"/books/book[name='哈里波特']", &spTheNode); 
            hr=spTheNode.QueryInterface(&spTheBook); 
            spTheNode.Release(); 
            spTheBook->get_xml(&bstrXml); 
            AfxMessageBox("3,《哈里波特》的XML"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf);
            ////---  此时修改这本书的价格 ----- 
            CComPtr<IXMLDOMNodeList> spNodeList=NULL; 
            CComPtr<IXMLDOMNode> spListItem=NULL; 
            spTheBook->get_childNodes(&spNodeList); 
            spNodeList->get_item(1, &spListItem); 
            spNodeList.Release(); 
            spListItem->put_text(L"15"); 
            ////---  另外还想加一个属性id，值为B01 ---- 
            CComVariant varId(L"B01"); 
            spTheBook->setAttribute(L"id", varId); 
            varId.Clear();
            spTheBook->get_xml(&bstrXml); 
            spTheBook.Release(); 
            AfxMessageBox("4, 对《哈里波特》修改完成。"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf);
            ////---  对《哈里波特》修改完成。 ---- 
            ////---  要用id属性删除《三国演义》这本书  ---- 
            spRoot->selectSingleNode(L"/books/book[@id='B02']", &spTheNode); 
            hr=spTheNode.QueryInterface(&spTheBook); 
            spTheNode.Release(); 
            spTheBook->get_xml(&bstrXml); 
            AfxMessageBox("5, 《三国演义》的XML"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf);  
            CComPtr<IXMLDOMNode> spParentNode=NULL; 
            spTheBook->get_parentNode(&spParentNode); 
            spParentNode->removeChild(spTheBook, &spTheNode); 
            spTheNode.Release(); 
            spParentNode.Release(); 
            spTheBook.Release(); 
            spRoot->get_xml(&bstrXml); 
            AfxMessageBox("6, 删除《三国演义》后的XML"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf); 
            ////---  再将所有价格低于10的书删除  ---- 
            spRoot->selectNodes(L"/books/book[price<10]", &spNodeList); 
            CComQIPtr<IXMLDOMSelection> spSomeBooks=spNodeList; 
            spNodeList.Release(); 
            spSomeBooks->removeAll(); 
            spSomeBooks.Release(); 
            spXmldoc->get_xml(&bstrXml); 
            AfxMessageBox("7, 已经删除价格低于10的书"); 
            buf = _com_util::ConvertBSTRToString(bstrXml.m_str);
            AfxMessageBox(buf); 
            spRoot.Release(); 
            bstrXml.Empty(); 
            //spXmldoc->save(varXmlFile); //保存xml。 
        } 
        varXmlFile.ClearToZero(); 
    } 
    spXmldoc.Release(); 
    CoUninitialize(); 
    */