.net - 使用 .NET 中的相对路径验证具有多个 XSD 的 XML

Question

我正在尝试编写一个通用的 VB.NET (VS2005) 函数来针对 XSD 验证 XML 文档。在我使用具有相对路径的 XSD 之前，这可以正常工作，包括：

<xs:include schemaLocation="test.02.xsd" />

它似乎永远无法找到任何辅助文档中包含的内容。这是我下面的原始功能。我一直在玩 XmlUrlResolver() 但我似乎也无法使用它取得任何进展。在这里的任何帮助将不胜感激。

Private Sub ValidatingProcess(ByVal XSDPath As String, ByVal XMLPath As String)
    Try
        Me.Reader = New XmlTextReader(XMLPath)
        Dim SR As New StreamReader(XSDPath)
        Dim Schema As New XmlSchema()
        Schema = XmlSchema.Read(SR, New ValidationEventHandler(AddressOf ReaderSettings_ValidationEventHandler))
        Dim ReaderSettings As New XmlReaderSettings()
        ReaderSettings.ValidationType = ValidationType.Schema
        ReaderSettings.Schemas.Add(Schema)
        AddHandler ReaderSettings.ValidationEventHandler, AddressOf ReaderSettings_ValidationEventHandler
        Dim objXmlReader As XmlReader = XmlReader.Create(Reader, ReaderSettings)
        While objXmlReader.Read()
        End While
    Catch AccessEx As UnauthorizedAccessException
        Throw AccessEx
    Catch Ex As Exception
        Throw Ex
    End Try
End Sub

Answer 1

我通过创建这样的自定义 XmlUrlResolver 来解决它：

Class CustomResolver
    Inherits XmlUrlResolver

    Private _CustomBaseUri As Uri

    Public Sub New(ByVal baseUri As Uri)
        If baseUri.IsFile Then
            _CustomBaseUri = New Uri(Path.GetDirectoryName(baseUri.LocalPath.ToString()) & "\")
        Else
        End If
        Me._CustomBaseUri = baseUri
    End Sub

    Public Overloads Overrides Function ResolveUri(ByVal baseUri As Uri, ByVal relativeUri As String) As Uri
        If baseUri IsNot Nothing Then
            Return MyBase.ResolveUri(baseUri, relativeUri)
        Else
            Return MyBase.ResolveUri(_CustomBaseUri, relativeUri)
        End If
    End Function
End Class