Transformation d'un fichier xml par xsl (xslt)

Commenter

Contenu du snippet

Voici comment on peut appliquer une transformation à un fichier XML

Source / Exemple : 


<%
dim objXML, objXSLT
dim allok

allok = true
' ----------------------------------------------------
' Create the blank xml docs
' ----------------------------------------------------
Set objXML = Server.CreateObject("Msxml2.DOMDocument")
Set objXSLT = Server.CreateObject("Msxml2.DOMDocument")

objXML.async = false
objXML.load server.mappath("file.xml")

if objQuery.parseError.errorcode <> 0 then
	response.write "Impossible de charger file.xml. Cause: " & objXML.parseError.reason
	allok = false
end if

' ----------------------------------------------------
' Load the transform
' ----------------------------------------------------
if allok = true then
	objIDFiller.async = false
	objIDFiller.load server.mapPath("file.xslt")

	if objIDFiller.parseError.errorcode <> 0 then
		response.write "Impossible de charger file.xslt. Cause: " & objIDFiller.parseError.reason
		allok = false
	end if
end if

' ----------------------------------------------------
' Apply the transform
' ----------------------------------------------------

if allok = true then
	response.write objXML.transformNode objXSLT
end if
%>

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (superpa)