如何用微软提供的customUI.xsd来校验用户编辑的customUI.xml是否合法？

cooloaky · 发表于 2011-10-27 10:33

上网搜了好久，好像还是不太明白怎么回事。附件为我自己编辑的xml和下载的xsd，我用的代码如下，请高手指点一二。

customUI.rar (9.18 KB, 下载次数: 66)

Function Validate(ByVal xmlFile As String, ByVal xsdFile As String) As Boolean
Dim xDom As DOMDocument, xSchema As XMLSchemaCache

Set xDom = New DOMDocument
xDom.async = False
xDom.Load xmlFile

Set xSchema = New XMLSchemaCache
xSchema.Add xDom.DocumentElement.NamespaceURI, xsdFile

Set xDom.Schemas = xSchema

Validate = xDom.parseError.ErrorCode <> 0

End Function

结果老是在xschema.add xdom.documentelement.namespaceuri,xsdfile这一句的时候提示“架构中根元素的错误定义”

winland · 发表于 2011-10-27 17:54

你试一下这个网址中的代码。我试了你的customUI的文件，返回结果是True。
http://www.nonhostile.com/howto-validate-xml-xsd-in-vb6.asp

cooloaky · 发表于 2011-10-27 18:44

谢谢版主。原来需要将对象变量定义为40才可以……

cooloaky · 发表于 2011-12-18 16:09

本帖最后由 cooloaky 于 2011-12-18 23:24 编辑

再想问多一下：校验过程中捕获Error对象后，如何定位出错的节点？好像Error对象只有Line和Column属性，但是和记事本打开的文件完全对不上号…

liucqa · 发表于 2011-12-18 19:36

看不懂，留个记号

winland · 发表于 2011-12-19 18:33

cooloaky 发表于 2011-12-18 16:09
再想问多一下：校验过程中捕获Error对象后，如何定位出错的节点？好像Error对象只有Line和Column属性，但是 ...

前面给的那个网址中的代码里有处理错误的情况，objErr对象除了reason属性外还有Line和LinePos等其它属性，你可以试试看。当然如果和记事本里可能对不上，你可以用Notepad++打开XML文件看看。
      Set objErr = objXML.Validate()

      ' any good?
      Validate = (objErr.errorCode = 0)
      If objErr.errorCode <> 0 Then
         Err.Raise 1, "Validate", objErr.reason ' & vbCrLf & objErr.Line & vbCrLf & objErr.linepos
      End If

夜风淡淡 · 发表于 2014-10-16 10:12

除了看不懂，其他都没问题

		自动登录	找回密码
密码			免费注册