instruction pour xml Encoder utf-8

**totoche** · 10/10/2005, 10h27

Bonjour,
Je crée un fichier xml a partir d'une page asp, mais les instructions d'entêtes

Code :

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

1
2
3
4
5
 
<%@CODEPAGE="65001" LANGUAGE="VBSCRIPT" %>
...
Set objFile =  objFSO.CreateTextFile(File1)
Response.Write"<?xml version='1.0' encoding='UTF-8'?>"

ne semblent d'aucun effet, car quand j'ouvre mon fichier xml dans ie j'ai l'erreur :

Un caractère incorrect a été trouvé dans un contenu de texte. Erreur de traitement de la ressource

(è...)

il faut que j'ouvre mon fichier xml avec le bloc note que je fasse enregistrer sous 'UTF-8'

, codage ANSI étant proposé par défaut, et dans ie le fichier xml s'affiche correctement
Merci de votre aide

**LEK** · 10/10/2005, 20h11

Essaye un encodage en iso latin pour avoir droit aux accents :

Code :

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

iso-8859-1

**totoche** · 11/10/2005, 09h12

Salut le fichier xml doit être récupérer dans flash, et lui exploite le UTF-8

**Immobilis** · 13/10/2005, 22h52

Salut,

MSDN ne fait pas tout à fait comme toi pour ecrire dans un fichier:
http://msdn.microsoft.com/library/en...tetextfile.asp
Response.write fonctionne vraiment pour ecrire dans ton fichier?

A+

**totoche** · 17/10/2005, 18h01

Désolé pour le retard je suis sur un autre taf...

Le probleme réside, une fois mon fichier xml généré je suis obligé de faire un enregistrer sous 'UTF-8', malgrès

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
<%@CODEPAGE="65001" LANGUAGE="VBSCRIPT" %> 
 
<%
File1 =  Request.ServerVariables("APPL_PHYSICAL_PATH") &_
"fichier.xml"
 
	'cration objet fso
	Set fsxml=Server.CreateObject("Scripting.FileSystemObject")
 
	'ouverture du fichier
	Set objfile = fsxml.OpenTextFile(File1,2,TRUE) 'ASCII
	'Ecriture Entte
	objFile.writeLine"<?xml version='1.0' encoding='UTF-8' ?>"
 
%>

**Immobilis** · 17/10/2005, 18h11

Voici une fonction qui me permet de créer un fichier XML.
Elle N'utilise PAS le file system object:

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
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
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
 
	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='inc/closing.xsl'")
	'objDom.insertBefore objPI, objDom.childNodes(0)
	Set objPI = objDom.createProcessingInstruction("xml", "version='1.0' encoding='iso-8859-1'")
	objDom.insertBefore objPI, objDom.childNodes(0)
 
	'ConvertRStoXML = objDom.xml
	objDom.Save replace(request.ServerVariables("PATH_TRANSLATED"),replace(request.ServerVariables("SCRIPT_NAME"),"/",""),"") & "MyXMLDoc.xml"
 
	'Clean up...
	Set objDom = Nothing
	Set objRoot = Nothing
	Set objField = Nothing
	Set objFieldValue = Nothing
	Set objcolName = Nothing
	Set objattTabOrder = Nothing
	Set objPI = Nothing
End Function

A méditer