Transformation d'un fichier xml par xsl (xslt)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 617 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaires

glad777
Messages postés
44
Date d'inscription
jeudi 19 août 2004
Statut
Membre
Dernière intervention
20 mars 2008
-
Bonjour, ton script m'a l'air intérréssant mais au niveau information c'est assez léger j'aimerai savoir ce que tu modifie, comment utiliser ce script et un peu plus d explication on n'y comprend rien.
MERCI..........
ifebo
Messages postés
181
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
28 décembre 2006
-
Moi aussi j'aurai bien aimé savoir comment utiliser ton code source. C'est marqué : Débutant au....début ;-). Donc je ne dois même pas être au niveau débutant. C'est rageant de découvrir que malgré tout le temps passé à apprendre on ne sait toujours rien !
...Une fois de plus.
VB_PtitCat
Messages postés
197
Date d'inscription
mercredi 30 mai 2007
Statut
Membre
Dernière intervention
13 mai 2009
-
Bonjour

Voilà just pour dire que pour moi aussi quelques explications aurais était les bien venues

+ +
_`
/ \

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.