EXÉCUTER UN SCRIPT VB.NET LORS D'UNE TRANSFORMATION XSLT (V2)

'Fonction réaliser la tranformation xslt

    Public Shared Function GetXSLTransform(ByVal pXmlDocument As XmlDocument, ByVal pXslFile As String) As String

        'On charge le fichier XSL dans un XmlDocument 
        Dim vXsltDocument As XmlDocument = New XmlDocument()
        vXsltDocument.Load(pXslFile)

        'Création du lecteur XML 
        Dim vXsltDocumentReader As XmlNodeReader = New XmlNodeReader(pXmlDocument)

        'Création du transformateur XSLT  
        Dim vXslt As XslCompiledTransform = New XslCompiledTransform()
        Dim vXsltSettings As XsltSettings = New XsltSettings()
        vXsltSettings.EnableScript = True

        vXslt.Load(vXsltDocument, vXsltSettings, Nothing)

        'là où sera enregistré la transformation 
        Dim vStringBuilder As StringBuilder = New StringBuilder()

        'paramètre d'écriture du fichier transformé 
        Dim vXmlWriterSettings As XmlWriterSettings = New XmlWriterSettings()

        'paramètre un peu spécial, consultez msdn 
        vXmlWriterSettings.ConformanceLevel = ConformanceLevel.Auto

        Dim vXmlWriter As XmlWriter = XmlWriter.Create(vStringBuilder, vXslt.OutputSettings)

        vXslt.Transform(vXsltDocumentReader, Nothing, vXmlWriter, New XmlUrlResolver())

        Return vStringBuilder.ToString()

    End Function

'Feuille Xslt

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" xmlns:mafonction="urn:gadgaillcorporation:mafonction">
	<xsl:output method="html"/>
	<xsl:template match="root">
		<xsl:apply-templates select="name"/>
	</xsl:template>
	<xsl:template match="name">
		<xsl:value-of select="mafonction:Hello(string(.))"/><br/>
	</xsl:template>
	
	<msxml:script language="vb" implements-prefix="mafonction">
		<![CDATA[
		Public Function Hello(pName as String) as string
			return "Bonjour " & pName
		End Function
		]]>
	</msxml:script>
	
</xsl:stylesheet>