Discussion :

[ennamsaoui]

Bonjour
j'ai fait une application qui génére des fichier XML, le seul probleme c'est que je ne sais pas comment inserer les entetes du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
<?xml version="1.0" encoding="UTF-8" ?>	
<?xml-stylesheet type="text/xsl" href="TEMPLATE_DOSSIER_SERVEUR.xsl" ?>

voila
je vous remerci de vos reponses!!

[zazaraignée]

Salut

les fichiers XML sont des fichiers de type texte... Je ne vois pas où est le problème. Tu peux expliquer un peu plus et nous montrer ce que tu as comme code pour générer ton fichier?

[SilkyRoad]

bonjour

cela dépend de la façon dont tu crées ton fichier XML


un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim oDM As DOMDocument
Dim oNd As IXMLDOMProcessingInstruction
Set oDM = New DOMDocument
oDM.resolveExternals = True
Set oNd = _
oDM.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
'
'....
'

une autre possiblité dans ce lien

http://www.developpez.net/forums/sho...d.php?t=169364



bonne soiree
michel

[ennamsaoui]

bonjour a tous
merci de vos reponse:
voila, je crée mes fichier XML de la facon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Dim objDOM      As DOMDocument
Dim XnodeRoot   As IXMLDOMElement
 
 
    Set objDOM = New DOMDocument 'création de l'objet document
 
    'création de l'objet racine Sites
    Set XnodeRoot = objDOM.createElement("TBL_SERVEUR")
    XnodeRoot.setAttribute "VCH_NOM", str_NomDossier
 
    'ajout du noeud racine au document
    objDOM.appendChild XnodeRoot
    ' et j'ajoute au fure et a mesure mes balises xml
    .
    .
    .

voila j'espere que c'est claire!!
donc ce qui'il me faut c'est rajouter avt le noeud racine les deux lignes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="TEMPLATE_DOSSIER_SERVEUR.xsl" ?>

merci encore

[SilkyRoad]

bonjour

tu peux tester cette procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oDM As DOMDocument
Dim XnodeRoot As IXMLDOMElement, Xnode As IXMLDOMElement
Dim xPI As IXMLDOMProcessingInstruction
 
Set oDM = New DOMDocument
oDM.resolveExternals = True
 
Set xPI = oDM.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
Set xPI = oDM.insertBefore(xPI, oDM.childNodes.Item(0))
Set xPI = oDM.createProcessingInstruction _
("xml-stylesheet", "type='text/xsl' href='TEMPLATE_DOSSIER_SERVEUR.xsl'")
Set xPI = oDM.insertBefore(xPI, oDM.childNodes.Item(1))
 
'
'
'....
'

bonne journée
michel

[ennamsaoui]

Merci beaucoup
c exactement ce qui 'il me fallait
merci encore