XML DOM初学者指南

XML DOM初学者指南(5)   
  Dim xDoc As MSXML.DOMDocument
  
  Set xDoc = New MSXML.DOMDocument
  
  xDoc.validateOnParse = False
  
  If xDoc.Load("C:\My Documents\cds.xml") Then
  
  ' 文档调入成功
  
  ' 作我们喜欢作的事
  
  Else
  
  ' 文档调入失败
  
  End If
  
  事先关闭验证功能不是个好主意，它会带来许多问题，至少它会是你提供错误格式的数据给你的用户。
  
  你可以通过访问ParseError对象来从解析器那儿获得有关错误类型的信息。创建一个IXMLDOMParseError界面的引用，然后把它指向文档自身的ParseError对象。IXMLDOMParseError界面实现了七种属性来使你获得错误原因。
  
  下面的例子显示了一个信息框，列出了ParseError对象中所有错误信息。
  
  Dim xDoc As MSXML.DOMDocument
  
  Set xDoc = New MSXML.DOMDocument
  
  If xDoc.Load("C:\My Documents\cds.xml") Then
  
  ' 文档调入成功
  
  ' 作我们喜欢作的事
  
  Else
  
  ' 文档调入失败
  
  Dim strErrText As String
  
  Dim XPE As MSXML.IXMLDOMParseError
  
  ' 获得parseError对象
  
  Set xPE = xDoc.parseError
  
  With xPE
  
  strErrText = "你的XML Document 不能调入" & _
  
  "原因是." & vbCrLf & _
  
  "错误 #: " & .errorCode & ": " & xPE.reason & _
  
  "Line #: " & .Line & vbCrLf & _
  
  "Line Position: " & .linepos & vbCrLf & _
  
  "Position In file: " & .filepos & vbCrLf & _