1、安装MSXML 4.0 SP2。在VC6中建立一个基于Dialog的工程。如图:

VC读写XML文件_windows

在界面上放置3个编辑框、1个按钮控件。其中属性设置如下。

编辑框:

 

ID Category Variable Type Variable Name
IDC_ID Value CString m_strId
IDC_AUTHOR Value CString m_strAuthor
IDC_TITLE Value CString m_strTitle

按钮:

 

 

ID Caption
IDC_GENERATE Generate
IDC_LOAD Load

 

2、在App类的InitInstance函数里面加入如下代码:

VC读写XML文件_dialog_02 // Com口初始化

VC读写XML文件_dialog_02 AfxOleInit();

 

3、在StdAfx.h中引入动态链接库 MSXML.DLL(C:\windows\system32\msxml4.dll)

VC读写XML文件_dialog_02 #import  < msxml4.dll >

 

4、双击Generate按钮,在消息处理函数中添加如下代码:

VC读写XML文件_dialog_02 UpdateData(TRUE);

VC读写XML文件_dialog_02MSXML2::IXMLDOMDocumentPtr pDoc; 

VC读写XML文件_dialog_02MSXML2::IXMLDOMElementPtr  xmlRoot ; 

VC读写XML文件_dialog_02 // 创建DOMDocument对象

VC读写XML文件_dialog_02 HRESULT hr  =  pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40)); 

VC读写XML文件_dialog_02 if ( ! SUCCEEDED(hr)) 

VC读写XML文件_xml_11VC读写XML文件_dialog_12 VC读写XML文件_dialog_13 {  

VC读写XML文件_windows_14 MessageBox( " 无法创建DOMDocument对象,请检查是否安装了MS XML Parser 运行库! " ); 

VC读写XML文件_windows_14  return  ;

VC读写XML文件_xml_16}  

VC读写XML文件_dialog_02 // 根节点的名称为Book

VC读写XML文件_dialog_02 // 创建元素并添加到文档中

VC读写XML文件_dialog_02 xmlRoot = pDoc -> createElement((_bstr_t) " Book " );

VC读写XML文件_dialog_02 // 设置属性

VC读写XML文件_dialog_02 xmlRoot -> setAttribute( " id " ,( const   char   * )m_strId);

VC读写XML文件_dialog_02pDoc -> appendChild(xmlRoot);

VC读写XML文件_dialog_02MSXML2::IXMLDOMElementPtr pNode;

VC读写XML文件_dialog_02 // 添加“author”元素

VC读写XML文件_dialog_02 pNode = pDoc -> createElement((_bstr_t) " Author " );

VC读写XML文件_dialog_02pNode -> Puttext((_bstr_t)( const   char   * )m_strAuthor);

VC读写XML文件_dialog_02xmlRoot -> appendChild(pNode);

VC读写XML文件_dialog_02 // 添加“Title”元素

VC读写XML文件_dialog_02 pNode = pDoc -> createElement( " Title " );

VC读写XML文件_dialog_02pNode -> Puttext(( const   char   * )m_strTitle);

VC读写XML文件_dialog_02xmlRoot -> appendChild(pNode);

VC读写XML文件_dialog_02 // 保存到文件 

VC读写XML文件_dialog_02 // 如果不存在就建立,存在就覆盖 

VC读写XML文件_dialog_02 pDoc -> save( " d:\\he.xml " );

双击Load按钮,在消息处理函数中添加如下代码:

VC读写XML文件_dialog_02 MSXML2::IXMLDOMDocumentPtr pDoc;

VC读写XML文件_dialog_02HRESULT hr;

VC读写XML文件_dialog_02hr = pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40));

VC读写XML文件_dialog_02 if (FAILED(hr))

VC读写XML文件_xml_11VC读写XML文件_dialog_12 VC读写XML文件_dialog_13 {  

VC读写XML文件_windows_14 MessageBox( " 无法创建DOMDocument对象,请检查是否安装了MS XML Parser 运行库! " ); 

VC读写XML文件_windows_14  return  ;

VC读写XML文件_xml_16}  

VC读写XML文件_dialog_02 // 加载文件 

VC读写XML文件_dialog_02 pDoc -> load( " d:\\he.xml " ); 

VC读写XML文件_dialog_02MSXML2::IXMLDOMNodePtr  pNode;

VC读写XML文件_dialog_02 // 在树中查找名为Book的节点," // "表示在任意一层查找 

VC读写XML文件_dialog_02 pNode = pDoc -> selectSingleNode( " //Book " );

VC读写XML文件_dialog_02MSXML2::DOMNodeType nodeType; 

VC读写XML文件_dialog_02 // 得到节点类型 

VC读写XML文件_dialog_02 pNode -> get_nodeType( & nodeType); 

VC读写XML文件_dialog_02 // 节点名称 

VC读写XML文件_dialog_02 CString strName;

VC读写XML文件_dialog_02strName = ( char   * )pNode -> GetnodeName();

VC读写XML文件_dialog_02 // 节点属性,放在链表中 

VC读写XML文件_dialog_02 MSXML2::IXMLDOMNamedNodeMapPtr pAttrMap = NULL;

VC读写XML文件_dialog_02MSXML2::IXMLDOMNodePtr   pAttrItem;

VC读写XML文件_dialog_02_variant_t variantvalue;

VC读写XML文件_dialog_02pNode -> get_attributes( & pAttrMap);

VC读写XML文件_dialog_02 long  count;

VC读写XML文件_dialog_02count = pAttrMap -> get_length( & count);

VC读写XML文件_dialog_02pAttrMap -> get_item( 0 , & pAttrItem);

VC读写XML文件_dialog_02 // 取得节点的值

VC读写XML文件_dialog_02 pAttrItem -> get_nodeTypedValue( & variantvalue);

VC读写XML文件_dialog_02m_strId = ( char   * )(_bstr_t)variantvalue;

VC读写XML文件_dialog_02UpdateData(FALSE);