XML+XSLT→HTML覚え書き

xsltを使った変換コードを覚え書きとする。

   Private m_trnsStyleSheet As Xsl.XslCompiledTransform

        Dim _xStyleSheet As XDocument = XDocument.Parse(My.Resources.stylesheet)
        m_trnsStyleSheet = New Xsl.XslCompiledTransform()
        m_trnsStyleSheet.Load(_xStyleSheet.CreateReader())
        '↑この部分は時間がかかるので初回のみ動作させること



        Dim _strwrtHTML As New System.Text.StringBuilder
        Using _wrtHTML As XmlWriter = _
                   XmlWriter.Create(_strwrtHTML, m_trnsStyleSheet.OutputSettings)
            '                                                           XML+XSLT→HTML
            m_trnsStyleSheet.Transform(mXMLElement.CreateReader(), Nothing, _wrtHTML)
            ctlWeb.DocumentText = _strwrtHTML.ToString()
        End Using

XmlWriterでStringBuilderが使えるので、非常に簡潔になった