DominoArea.org [Archive]

je suis a la recherche de la fonction qui pourrais me changer les caracteres accentué etc par leur équivalant &--- la sur le coup je seche ...

quelqu'un aurait 30s pour me rafraichir la mémoire ?

Voila je suis pas reveille j'ai encoder mon mail en
ENC_IDENTITY_7BIT

du coup les ê € etc sont passé a la trappe
mais en codant en ENC_IDENTITY_8BIT
ca marche nettement mieux ...

circuler il n'y a plus rien à voir

salut

fonction sous quelle langage ?

salut,

regarde ce post si ça peut t'aider à avancer :
http://forum.dominoarea.org/decodage-dune-chaine-reue-par-un-web-service-t16817,search_id,643227284.html#75967

re

un truc dans ce genre ?

Code : Tout sélectionner

Function WebEscapeEN(chaine As String) As String
   '   Equivalent de la fonction escape en Javascript mais pour l'entity number
   '   Code une chaîne pour permettre de la passer dans une URL.
   '    converti les caratere spéciaux en code hexadecimale
   'exemple > en >
   
   'Déclaration des variables
   Dim caractere As String
   Dim i As Integer
   
   On Error Goto ErreurHandle
   
   WebEscapeEN = ""
   
   For i = 1 To Len(chaine)
      caractere = Mid(chaine, i , 1)
      'détermine si c'est un caratere spécial
      If Instr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-_", caractere ) > 0 Then
         WebEscapeEN= WebEscapeEN + caractere
      Else
         WebEscapeEN = WebEscapeEN +"&#"+Cstr(Asc(caractere))+";"
      End If
   Next
   Exit Function
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"   
   WebEscapeEN = ""
   Resume Next   
   Exit Function
End Function

Bah la gestion de caractères, c'est un vieux problème. Entre les navigateurs, le javascript, le html, le php etc etc etc, les systèmes de fichiers et d'exploitation... A croire qu'on nous veut du mal
Mais la fonction de Mickaël est cool. J'ai un truc approchant mais qui utilise le code ASCII différemment car de 0 à 127 y'a pas d'accent donc je calcule le asc(x) et si > à 127, j'applique
&#"+Cstr(Asc(caractere))
Enfin j'espère que c'est clair

je pense le plus simple est d'utiliser la fonction @URLEncode

http://web.gie-objectifs.com/help/help65_designer.nsf/5bce1aa684217dc880256c230049f369/46d8100bb0bbc2b548256e3f004532d9?OpenDocument

ouaip mais ça oblige a faire un evalute

Oui mais j'ai rencontré de temps en temps des pbs avec @UrlEncode qui étaient dûs aux différentes versions des navigateurs. Donc maintenant je préfère coder comme ça et ça passe. Enfin jusqu'à présent

merci a tous je connaissais deja @urlEncode et @urldecode
mais j'étais surpris qu'il n'y avait pas d'équivalant en LS

donc il n'y a pas déquivalant ...

à mon connaissance non, c'est pour cela que j'avais fait un evaluate dans mon post à l'époque