VC,VB操作XML

TCHAR buffer[MAX_PATH] = {};

 ::GetModuleFileName(NULL, buffer, MAX_PATH);

 CString strPath = buffer;

 int nIndex = strPath.ReverseFind(_T('\\'));

 strPath = strPath.Left(nIndex + );

 CString strBomFile = strPath + _T("Bom.xml");

 MSXML2::IXMLDOMDocumentPtr pDocXML = NULL;

 MSXML2::IXMLDOMElementPtr pRoot = NULL;

 MSXML2::IXMLDOMElementPtr pNode = NULL;

 HRESULT hr = pDocXML.CreateInstance(__uuidof(MSXML2::DOMDocument));

 ASSERT(SUCCEEDED(hr));

 pRoot = pDocXML->createElement((_bstr_t)(_T("BomData")));

 pDocXML->appendChild(pRoot);

 //3-1、遍历BomRcdArr

 for(long i = ;i<;i++)

 {

  CString strFilePath = strBomFile;

  //write to xml

  short iNum=;

  iNum=;

  BSTR strKey;

  BSTR strValue;

  short ii=;

  for (ii=;ii<iNum;ii++)

  {

   strKey = L"KEY";

   strValue =L"VALUE";

   //pITHDbBomRecorder->GetItem(&strKey,&strValue,ii);

   pNode=NULL;

   pNode = pDocXML->createElement((_bstr_t)(_T("Node")));

   pNode->put_text((_bstr_t)_T("BomData"));//设置标签的文本内容;

   pNode->setAttribute((_bstr_t)_T("BomDataBigNum"),(_variant_t)i);

   pNode->setAttribute((_bstr_t)_T("BomDataSmallNum"),(_variant_t)ii);

   pNode->setAttribute((_bstr_t)_T("key"),(_variant_t)strKey);

   pNode->setAttribute((_bstr_t)_T("value"),(_variant_t)strValue);

   pRoot->appendChild(pNode);

  }

 }

 pDocXML->save( _bstr_t(strBomFile));

 pNode->Release();

 pRoot->Release();

 pDocXML->Release(); 

Private Sub Command1_Click()

Dim xDoc As Object

Dim xmlFile As String

Dim strWidth As String

Dim strHeight As String

Set xDoc = CreateObject("MSXML2.DOMDocument")

xmlFile = "C:\aa.xml"

xDoc.Load xmlFile

strWidth = xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes().Text

strHeight = xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes().Text

MsgBox ("Width=" & strWidth & " Height=" & strHeight)

xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes().Text = ""

xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes().Text = ""

xDoc.save (xmlFile)

End Sub

注意 你上面的XML中Width=""Height="" 要分开，改成：

 Width="" Height=""