1、安裝MSXML 4.0 SP2。在VC6中建立一個基于Dialog的工程。如圖：



在界面上放置3個編輯框、1個按鈕控件。其中屬性設置如下。
編輯框：

// Com口初始化
AfxOleInit();

3、在StdAfx.h中引入動態鏈接庫 MSXML.DLL(C:\windows\system32\msxml4.dll)

#import? < msxml4.dll >

4、雙擊Generate按鈕，在消息處理函數中添加如下代碼：

UpdateData(TRUE);
MSXML2::IXMLDOMDocumentPtr?pDoc;?
MSXML2::IXMLDOMElementPtr??xmlRoot?;?
// 創建DOMDocument對象
HRESULT?hr? = ?pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40));?
if ( ! SUCCEEDED(hr))?
{??
?MessageBox( " 無法創建DOMDocument對象，請檢查是否安裝了MS?XML?Parser?運行庫! " );?
? return ?;
} ?
// 根節點的名稱為Book
// 創建元素并添加到文檔中
xmlRoot = pDoc -> createElement((_bstr_t) " Book " );
// 設置屬性
xmlRoot -> setAttribute( " id " ,( const ? char ? * )m_strId);
pDoc -> appendChild(xmlRoot);
MSXML2::IXMLDOMElementPtr?pNode;
// 添加“author”元素
pNode = pDoc -> createElement((_bstr_t) " Author " );
pNode -> Puttext((_bstr_t)( const ? char ? * )m_strAuthor);
xmlRoot -> appendChild(pNode);
// 添加“Title”元素
pNode = pDoc -> createElement( " Title " );
pNode -> Puttext(( const ? char ? * )m_strTitle);
xmlRoot -> appendChild(pNode);
// 保存到文件?
// 如果不存在就建立,存在就覆蓋?
pDoc -> save( " d:\\he.xml " );

雙擊Load按鈕，在消息處理函數中添加如下代碼：

MSXML2::IXMLDOMDocumentPtr?pDoc;
HRESULT?hr;
hr = pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40));
if (FAILED(hr))
{??
?MessageBox( " 無法創建DOMDocument對象，請檢查是否安裝了MS?XML?Parser?運行庫! " );?
? return ?;
} ?
// 加載文件?
pDoc -> load( " d:\\he.xml " );?
MSXML2::IXMLDOMNodePtr??pNode;
// 在樹中查找名為Book的節點," // "表示在任意一層查找?
pNode = pDoc -> selectSingleNode( " //Book " );
MSXML2::DOMNodeType?nodeType;?
// 得到節點類型?
pNode -> get_nodeType( & nodeType);?
// 節點名稱?
CString?strName;
strName = ( char ? * )pNode -> GetnodeName();
// 節點屬性,放在鏈表中?
MSXML2::IXMLDOMNamedNodeMapPtr?pAttrMap = NULL;
MSXML2::IXMLDOMNodePtr???pAttrItem;
_variant_t?variantvalue;
pNode -> get_attributes( & pAttrMap);
long ?count;
count = pAttrMap -> get_length( & count);
pAttrMap -> get_item( 0 , & pAttrItem);
// 取得節點的值
pAttrItem -> get_nodeTypedValue( & variantvalue);
m_strId = ( char ? * )(_bstr_t)variantvalue;
UpdateData(FALSE);