Salut

la c'est la suite du problème résolu dans le précédent topic.

Donc, maintenant mon fichier s'ouvre bien mais les caractères spéciaux sont remplacé par des "?", donc c'est ennuyeux.

Pourtant je les encode correctement, enfin je crois.
Voici du code histoire de mieux comprendre :
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
 
Public Shared Function CaracCodeTA(ByVal car As String)
		Dim carcode As String = car
		carcode = Replace(car, "&", "&")
		carcode = Replace(car, "à", "à")
		carcode = Replace(car, "â", "â")
		carcode = Replace(car, "ä", "ä")
		carcode = Replace(car, "é", "è")
		carcode = Replace(car, "è", "é")
		carcode = Replace(car, "ê", "ê")
		carcode = Replace(car, "ë", "ë")
		carcode = Replace(car, "ï", "ï")
		carcode = Replace(car, "î", "î")
		carcode = Replace(car, "ö", "ö")
		carcode = Replace(car, "ô", "ô")
		carcode = Replace(car, "ù", "ù")
		carcode = Replace(car, "û", "û")
		carcode = Replace(car, "ü", "ü")
		carcode = Replace(car, "ç", "ç")
		Return carcode
	End Function
 
Public Shared Sub ecrire(ByVal message As String, ByVal fichier As String, ByVal codage As System.Text.Encoding)
		Dim oWriter As New StreamWriter(fichier, True, codage)
		oWriter.WriteLine(message)
		oWriter.Close()
	End Sub
 
ecrire("<?xml version='1.0' encoding='ISO-8859-1' ?>", ficXML, codage)
ecrire("<texte>" & CaracCodeTA(r.Item("TEXTE")) & "</texte><rubrique>" & r.Item("RUBRIQUE") & "</rubrique><pays>France</pays><ville>" & CaracCodeTA(r.Item("VILLE")) & "</ville><postal>" & r.Item("POSTAL") & "</postal><prix>" & r.Item("PRIX") & "</prix><tel_agence>" & r.Item("TEL_AGENCE") & "</tel_agence><complements><CH>" & r.Item("CH") & "</CH><B>" & r.Item("B") & "</B><AN>" & r.Item("AN") & "</AN></complements></annonce>", ficXML, codage)
Et donc, je comprends plus, soit j'ai bon sur les caractère et le fichier ne s'ouvre pas sous IE, soit il s'ouvre sous IE, mais j'ai pas bon sur les caractères ? ? ?