Discussion :

[Myrza]

Bonjour

J'en reviens à vous après des heures de recherches infructueuses.
Voici mon problème:

Je dois réaliser une passerelle entre deux sites en utilisant un web-service.
En effet je dois piocher de ma base, créer un xml et envoyer le tout au site distant.
Le problème se pose au niveau des caractères spéciaux qui passent pas (les fameux ? à la place). Puis il m'est impossible de changer le format de la base ou le format du fichier xml à envoyer.

En plus technique:

Ma BDD: SQL Server 2005 Express , avec les enregistrements encodés en French_CI_AS

Charset fichier xml: UTF-8

Langage: ASP

J'ai essayé de nettoyer chaque enregistrement texte en appliquant ma fonction noaccent() qui enlève les accents mais ça donne rien...

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
 
 
exemple *****************
 
'titre			soapReq.NewChild2"title",HTMLDecode(noaccent(rstSQL("CvFichNom")))
'descriptif		soapReq.NewChild2"description",HTMLDecode(noaccent(notag(rstSQL("CvFichDesc"))))
 
' ----------------------------------------------------------
' fonction de suppression des caracteres accentues
' ----------------------------------------------------------
function noaccent(chaine)
   avecaccent = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðòóôõöùúûüýÿ"
   sansaccent = "AAAAAACEEEEIIIIOOOOOUUUUYaaaaaaceeeeiiiioooooouuuuyy"
   noaccent = strtr(chaine, avecaccent, sansaccent)
end function
 
Function HTMLDecode(sText)
    Dim I
	sText = Replace(sText, "'", Chr(39))
    sText = Replace(sText, """, Chr(34))
    sText = Replace(sText, "<"  , Chr(60))
    sText = Replace(sText, ">"  , Chr(62))
    sText = Replace(sText, "&" , Chr(38))
    sText = Replace(sText, " ", Chr(32))
    For I = 1 to 255
        sText = Replace(sText, "&#" & I & ";", Chr(I))
    Next
    HTMLDecode = sText
End Function

Voici un exemple:

Ce que j'obtiens:

Code :

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

1
2
<title>Chambres et Table d&apos;hotes de MARGARIDOU</title>
            <description>Accueil des camping-cariste &quot;FRANCE PASSION&quot;, vtc en location , billard , piano , synthe  a disposition Piscine couverte avec grande plage sous abri</description>

Ce que je veux:

Code :

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

1
2
<title>Chambres et Table d'hotes de MARGARIDOU</title>
            <description>Accueil des camping-cariste"FRANCE PASSION", vtc en location , billard , piano , synthe  a disposition Piscine couverte avec grande plage sous abri</description>

Voila je ne sais pas comment faire.
J'espère avoir été clair.

Merci à vous

[Sergejack]

Tu peux te renseigner sur la clause "FOR XML" de select.
Sinon, ce n'est pas le bon forum (ASP serait le bon).