instruction pour xml Encoder utf-8

Version imprimable

10/10/2005, 10h27
totoche

instruction pour xml Encoder utf-8
Bonjour,
Je crée un fichier xml a partir d'une page asp, mais les instructions d'entêtes
Code:

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 :

Citation:

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' :cry: , codage ANSI étant proposé par défaut, et dans ie le fichier xml s'affiche correctement
Merci de votre aide
10/10/2005, 20h11
LEK

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

Code:

iso-8859-1
11/10/2005, 09h12
totoche

Salut le fichier xml doit être récupérer dans flash, et lui exploite le UTF-8
13/10/2005, 22h52
Immobilis

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+

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:

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' ?>" %>
:cry:

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

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
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

18/10/2005, 16h24
totoche

Merci, :bravo:

en effet utiliser le parser MSXML, est la solution la prise en charge de l'encodage fonctionne : createProcessingInstruction

merci encore[/b]
14/02/2007, 11h03
Alex35

ou pour flash utliser l'unicode (-1) avec le fso et flash le reconnait tres bien...