Creation d'un fichier XML avec ASP encoder en UTF-8

Version imprimable

Bonjour j'ai un problème pour encoder mon fichier XML quand je le créer a partir de ASP.

Pour etre sur que je vois mes lettres "é,è,..." dans le fichier XML sous Flash avec je dois réouvrir mon Fichier XML en notepad et le réenregistrer sous, encoding UTF-8.

Quel est le moyen de le faire directement en ASP ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 set fso=Server.CreateObject("Scripting.FileSystemObject") set fname=fso.CreateTextFile("d:\wwwroot\client.sdpinc.ca\wwwroot\geo-climat\xml\ville.xml",true) fname.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>") fname.writeline("<Ville>") fname.writeline(" <Information>") fname.writeline(" <nom>Montréal</nom>") fname.writeline(" </Information>") fname.writeline("</Ville>") fname.Close Set fso = Nothing
Merci de ne pas oublier les balises de code:aie:

Salut,

:tagcode:

Pour créer un fichier XML le filesystemobjet ne fonctionne pas. Il faut utiliser le Microsoft.XMLDOM

Code:

server.CreateObject("Microsoft.XMLDOM")

Voici un exemple de code qui créé un fichier XML à partir d'un recordset

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Function ConvertRStoXML(objRS, strTopLevelNodeName, strRowNodeName)
	on error resume next
 
	Dim objDom
	Dim objRoot
	Dim objField
	Dim objFieldValue
	Dim objcolName
	Dim objattTabOrder
	Dim objPI
	Dim x
	Dim objRSField
	Dim objRow
	Dim filename
 
	objRS.movefirst
 
	'Instantiate the Microsoft XMLDOM.
	Set objDom = server.CreateObject("Microsoft.XMLDOM")
	objDom.preserveWhiteSpace = True
 
	'Create your root element and append it to the XML document.
	Set objRoot = objDom.createElement(strTopLevelNodeName)
	objDom.appendChild objRoot
 
	Do While Not objRS.EOF
		Set objRow = objDom.CreateElement(strRowNodeName)
 
		For Each objRSField in objRS.Fields
			Set objField = objDom.createElement(objRSField.Name)
			objField.Text = objRSField.Value
 
			objField.appendChild objFieldValue
 
			objRow.appendChild objField
		Next 
 
		objRoot.appendChild objRow
 
		objRS.MoveNext
	Loop
 
	Set objPI = objDom.createProcessingInstruction("xml-stylesheet", "type='text/xsl' href='http://Monxsl.xsl'")
	Set objPI = objDom.createProcessingInstruction("xml", "version='1.0' encoding='iso-8859-1'")
	objDom.insertBefore objPI, objDom.childNodes(0)
 
	filename = strTopLevelNodeName & strRowNodeName & ".xml"
	objDom.Save folderpath() & "MONDOSSIER\" & filename
	ConvertRStoXML = filename
 
	'Clean up...
	Set filename = nothing
	Set objDom = Nothing
	Set objRoot = Nothing
	Set objField = Nothing
	Set objFieldValue = Nothing
	Set objcolName = Nothing
	Set objattTabOrder = Nothing
	Set objPI = Nothing
End Function

Et puis :google:

07/06/2006, 09h03
xmarabout

Créer un fichier XML

Ton système peut aussi fonctionner mais tu dois changer le UTF-8 en ISO-8859-1
Cela correspond au même alphabet mais IIS ne semble pas toujours reconnaître le code UTF-8
09/06/2006, 21h41
freeze_land

Oui !!!!!!!!!

J'AI RÉUSSIS !!!!

J'ai tellement cherché a trouver la réponse à ce problème MERCI !!

Ça fonctionner mais avec misère. La prochaine ça devrais me prendre la moitier du temps maintenant que j'ai compris.

MERCI Immobilis !
09/06/2006, 21h42
freeze_land

Avec mon code ??

J'ai essayer mais ça jamais marcher
09/06/2006, 21h51
Immobilis

De quoi?
14/02/2007, 10h59
Alex35

le fso fonctionnepour créer des xml, suffit de l'encoder en unicode(-1) et il reconnait parfaitement les accents...