CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 15 20:07:24

SORTIE DE SILVERLIGHT 2 ET DE FLASH PLAYER 10 par Nix

TCB : QUE FAIRE EN SALLE BLANCHE ? par themit

DEBUG : MAKE OBJECT ID - COMMENT CONNAITRE L'éTAT D'UNE VARIABLE LORSQUE CELLE-CI N'EST PAS ACCESSIBLE DANS LE SCOPE COURANT par cyril

IIS7 : CONFIGURATION DES HANDLERS POUR L'UPLOAD DE FICHIER - INTERDIRE CERTAINS FICHIERS DE S'EXéCUTER | ACCéDER à DES FICHIERS .CS, .ASPX par cyril

MICROSOFT ANNONCE LE NOM COMMERCIAL DE WINDOWS 7 par RaptorXP

RE : QUE PENSER VOUS DE CET HEBERGEUR WWW.007HEBERGEMENT.COM? par lataupe1

CONNEXION à UNE BD DéPLOYéE AVEC UNE APPLICATION EN ASP.NET 2.0 par adilali

RE : PB DE VIEWSATE par equinoxe83

CONNEXION à LA BD DéPLOYéE AVEC APPLICATION ASP.NET 2.0 par adilali

RE : PB DE VIEWSATE par jesusonline

+ de logiciels à télécharger

1 263 137 membres
672 nouveaux aujourd'hui
14 420 membres club

Trouver une ressource

Trouvez une ressource parmi 38 859 codes, 1 187 392 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS

Information sur la source

Catégorie :Chaînes de caratères Classé sous : utf8, utf8, codage Niveau : Débutant Date de création : 20/03/2007 Vu : 14 331

Auteur : EricDD

Site perso

Ecrire un message privé

Note :

4,00 / 10

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

En ASP (pas en ASP .net), je n'ai pas trouvé de fonction de transformation des caractères UTF-8 en ISO français.
Je me suis donc créé une fonction basique de remplacement.
Je la mets là car elle peut reservir, soit à moi, soit à d'autres.
Si certains veulent la compléter, n'hésitez pas !

Source

Function Utf8Iso(vsStr)
Dim strTemp
strTemp = vsStr
strTemp = Replace(strTemp,"Ã§","ç")
strTemp = Replace(strTemp,"ä§","ç")
strTemp = Replace(strTemp,"Ã©","é")
strTemp = Replace(strTemp,"ä©","é")
strTemp = Replace(strTemp,"Ã¨","è")
strTemp = Replace(strTemp,"ä¨","è")
strTemp = Replace(strTemp,"Ãª","ê")
strTemp = Replace(strTemp,"äª","ê")
strTemp = Replace(strTemp,"Ã«","ë")
strTemp = Replace(strTemp,"ä«","ë")
strTemp = Replace(strTemp,"ÃŠ","Ê")
strTemp = Replace(strTemp,"äŠ","Ê")
strTemp = Replace(strTemp,"Ã‹","Ë")
strTemp = Replace(strTemp,"ä‹","Ë")
strTemp = Replace(strTemp,"Ã®","î")
strTemp = Replace(strTemp,"ä®","î")
strTemp = Replace(strTemp,"Ã¯","ï")
strTemp = Replace(strTemp,"ä¯","ï")
strTemp = Replace(strTemp,"Ã¬","ì")
strTemp = Replace(strTemp,"ÃŽ","Î")
strTemp = Replace(strTemp,"äŽ","Î")
strTemp = Replace(strTemp,"Ã²","ò")
strTemp = Replace(strTemp,"ä²","ò")
strTemp = Replace(strTemp,"Ã´","ô")
strTemp = Replace(strTemp,"ä´","ô")
strTemp = Replace(strTemp,"Ã¶","ö")
strTemp = Replace(strTemp,"ä¶","ö")
strTemp = Replace(strTemp,"Ãµ","õ")
strTemp = Replace(strTemp,"Ã³","ó")
strTemp = Replace(strTemp,"Ã¸","ø")
strTemp = Replace(strTemp,"äµ","õ")
strTemp = Replace(strTemp,"ä³","ó")
strTemp = Replace(strTemp,"ä¸","ø")
strTemp = Replace(strTemp,"Ã”","Ô")
strTemp = Replace(strTemp,"ä”","Ô")
strTemp = Replace(strTemp,"Ã–","Ö")
strTemp = Replace(strTemp,"ä–","Ö")
strTemp = Replace(strTemp,"Ã ","à")
strTemp = Replace(strTemp,"ä ","à")
strTemp = Replace(strTemp,"Ã¢","â")
strTemp = Replace(strTemp,"ä¢","â")
strTemp = Replace(strTemp,"Ã¤","ä")
strTemp = Replace(strTemp,"ä¤","ä")
strTemp = Replace(strTemp,"Ã¥","å")
strTemp = Replace(strTemp,"ä¥","å")
strTemp = Replace(strTemp,"Ã‚","Â")
strTemp = Replace(strTemp,"ä‚","Â")
strTemp = Replace(strTemp,"Ã„","Ä")
strTemp = Replace(strTemp,"ä„","Ä")
strTemp = Replace(strTemp,"Ã¹","u")
strTemp = Replace(strTemp,"Ã»","û")
strTemp = Replace(strTemp,"Ã¼","ü")
strTemp = Replace(strTemp,"ä¼","ü")
strTemp = Replace(strTemp,"Ã›","Û")
strTemp = Replace(strTemp,"Ãœ","Ü")
strTemp = Replace(strTemp,"ä¹","u")
strTemp = Replace(strTemp,"ä»","û")
strTemp = Replace(strTemp,"ä¼","ü")
strTemp = Replace(strTemp,"ä¼","ü")
strTemp = Replace(strTemp,"ä›","Û")
strTemp = Replace(strTemp,"äœ","Ü")
strTemp = Replace(strTemp,"Ã²","ñ")
strTemp = Replace(strTemp,"Ã±","ñ")
Utf8Iso = strTemp
End Function

Function Utf8Iso(vsStr)

Dim strTemp

	strTemp = vsStr
	
	strTemp = Replace(strTemp,"Ã§","ç")
	strTemp = Replace(strTemp,"ä§","ç")
	strTemp = Replace(strTemp,"Ã©","é")
	strTemp = Replace(strTemp,"ä©","é")
	strTemp = Replace(strTemp,"Ã¨","è")
	strTemp = Replace(strTemp,"ä¨","è")
	strTemp = Replace(strTemp,"Ãª","ê")
	strTemp = Replace(strTemp,"äª","ê")
	strTemp = Replace(strTemp,"Ã«","ë")	
	strTemp = Replace(strTemp,"ä«","ë")	
	strTemp = Replace(strTemp,"ÃŠ","Ê")
	strTemp = Replace(strTemp,"äŠ","Ê")
	strTemp = Replace(strTemp,"Ã‹","Ë")
	strTemp = Replace(strTemp,"ä‹","Ë")
	strTemp = Replace(strTemp,"Ã®","î")
	strTemp = Replace(strTemp,"ä®","î")
	strTemp = Replace(strTemp,"Ã¯","ï")
	strTemp = Replace(strTemp,"ä¯","ï")
	strTemp = Replace(strTemp,"Ã¬","ì")
	strTemp = Replace(strTemp,"ÃŽ","Î")
	strTemp = Replace(strTemp,"äŽ","Î")
	strTemp = Replace(strTemp,"Ã²","ò")	
	strTemp = Replace(strTemp,"ä²","ò")	
	strTemp = Replace(strTemp,"Ã´","ô")
	strTemp = Replace(strTemp,"ä´","ô")
	strTemp = Replace(strTemp,"Ã¶","ö")	
	strTemp = Replace(strTemp,"ä¶","ö")	
	strTemp = Replace(strTemp,"Ãµ","õ")
	strTemp = Replace(strTemp,"Ã³","ó")
	strTemp = Replace(strTemp,"Ã¸","ø")
	strTemp = Replace(strTemp,"äµ","õ")
	strTemp = Replace(strTemp,"ä³","ó")
	strTemp = Replace(strTemp,"ä¸","ø")
	strTemp = Replace(strTemp,"Ã”","Ô")
	strTemp = Replace(strTemp,"ä”","Ô")
	strTemp = Replace(strTemp,"Ã–","Ö")	
	strTemp = Replace(strTemp,"ä–","Ö")	
	strTemp = Replace(strTemp,"Ã ","à")
	strTemp = Replace(strTemp,"ä ","à")
	strTemp = Replace(strTemp,"Ã¢","â")
	strTemp = Replace(strTemp,"ä¢","â")
	strTemp = Replace(strTemp,"Ã¤","ä")	
	strTemp = Replace(strTemp,"ä¤","ä")
	strTemp = Replace(strTemp,"Ã¥","å")
	strTemp = Replace(strTemp,"ä¥","å")
	strTemp = Replace(strTemp,"Ã‚","Â")
	strTemp = Replace(strTemp,"ä‚","Â")
	strTemp = Replace(strTemp,"Ã„","Ä")	
	strTemp = Replace(strTemp,"ä„","Ä")	
	strTemp = Replace(strTemp,"Ã¹","u")	
	strTemp = Replace(strTemp,"Ã»","û")
	strTemp = Replace(strTemp,"Ã¼","ü")
	strTemp = Replace(strTemp,"ä¼","ü")
	strTemp = Replace(strTemp,"Ã›","Û")
	strTemp = Replace(strTemp,"Ãœ","Ü")
	strTemp = Replace(strTemp,"ä¹","u")	
	strTemp = Replace(strTemp,"ä»","û")
	strTemp = Replace(strTemp,"ä¼","ü")
	strTemp = Replace(strTemp,"ä¼","ü")
	strTemp = Replace(strTemp,"ä›","Û")
	strTemp = Replace(strTemp,"äœ","Ü")
	strTemp = Replace(strTemp,"Ã²","ñ")
	strTemp = Replace(strTemp,"Ã±","ñ")
	
	Utf8Iso = strTemp

End Function

Sources de la même categorie

FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUI... par promeythey

CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650

FONCTION UCFIRST EN ASP par DesignerCreator

FONCTIONS DE VÉRIFICATION DE LA SYNTAXE D'UNE CHAINE par vladam

RECUPERER LE RENDU D'UN CONTROLE par jesusonline

Toutes les sources de la catégorie Chaînes de caratères

Commentaires et avis

Commentaire de BSGilles le 26/06/2007 20:26:41

Evident, mais bien utile. Je cherchais à récupérer sous VB6 des fichiers textes enregistrés sous VB2005 (.net), où les pièges vicieux posés par les hommes de Bill sont légion. Merci pour la solution.

Commentaire de phimselfbis le 27/07/2007 09:36:53

Merci,
j'ai repris tes valeurs car il m'en manquait quelques unes et je les ai ajoutées à mon code. J'utilise pour ma part 2 tableaux, comme çà, on peut changer dans les 2 sens.

Dim NOMBRE
Dim VALEURS1
VALEURS1 = Array("Ã§","ä§","Ã©","ä©","Ã¨","ä¨","Ãª","äª","Ã«","ä«","ÃŠ","äŠ","Ã‹","ä‹","Ã®","ä®","Ã¯","ä¯","Ã¬","ÃŽ","äŽ","Ã²","ä²","Ã´","ä´","Ã¶","ä¶","Ãµ","Ã³","Ã¸","äµ","ä³","ä¸","Ã”","ä”","Ã–","ä–","Ã ","ä ","Ã¢","ä¢","Ã¤","ä¤","Ã¥","ä¥","Ã‚","ä‚","Ã„","ä„","Ã¹","Ã»","Ã¼","ä¼","Ã›","Ãœ","ä¹","ä»","ä¼","ä¼","ä›","äœ","Ã²","Ã±")
VALEURS2 = Array("ç", "ç", "é", "é", "è", "è", "ê", "ê", "ë", "ë", "Ê", "Ê", "Ë", "Ë", "î", "î", "ï", "ï", "ì", "Î", "Î", "ò", "ò", "ô", "ô", "ö", "ö", "õ", "ó", "ø", "õ", "ó", "ø", "Ô", "Ô", "Ö", "Ö", "à", "à", "â", "â", "ä", "ä", "å", "å", "Â", "Â", "Ä", "Ä", "u", "û", "ü", "ü", "Û", "Ü", "u", "û", "ü", "ü", "Û", "Ü", "ñ", "ñ")

texte = "mon texte"
temp = 0
For each NOMBRE in VALEURS1
texte = replace( texte, VALEURS1(temp), VALEURS2(temp) )
temp = temp+1
next

Commentaire de EricDD le 27/07/2007 09:53:48

Merci phimselfbis,
Ta solution est beaucoup plus élégante.

Je suis impressionné par le nombre de personnes qui sont venus sur cette page depuis le mois de mars : 3312 fois à ce jour.
J'espère que cela aura été utile à beaucoup.

Commentaire de pifou25 le 19/09/2007 16:46:48

Moi je suis bluffé par le temps qu'on perd à cause de ces betises de transcodifications incompréhensibles qui dérangent tout le monde!

Voila, le serveur tente de trouver automatiquement le charset, ensuite en ASP on peut le définir manuellement (response.charset) mais il faut aussi enregistrer le fichier au même format qu'on le définit (la plupart des éditeurs ont les options pour cela) et quoi qu'il en soit je tombe encore sur des cas ou ça fonctionne pas ou mal!
Me trouve obligé d'utiliser cette fonction (que je trouve digne de la préhistoire de l'informatique mais pourtant!) et ben, un grand merci à Phimselfbis, je note le code pour ton commentaire ^^

Commentaire de angedead le 09/01/2008 10:08:43

Merci pour ce code

Peut aller de pair avec la fonction javascript pour faire de l'Ajax :

pour encoder en UTF8 le contenu d'un textAREA par exemple et l'envoyer vers une page aspx en ajax.

<script>

function encode (string) {

        string = string.replace(/\r\n/g,"\n");

        var utftext = "";

        for (var n = 0; n < string.length; n++) {

            var c = string.charCodeAt(n);

            if (c < 128) {
                utftext += String.fromCharCode(c);
            }
            else if((c > 127) && (c < 2048)) {
                utftext += String.fromCharCode((c >> 6) | 192);
                utftext += String.fromCharCode((c & 63) | 128);
            }
            else {
                utftext += String.fromCharCode((c >> 12) | 224);
                utftext += String.fromCharCode(((c >> 6) & 63) | 128);
                utftext += String.fromCharCode((c & 63) | 128);
            }

        }

        return utftext;
    }

</script>

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Encoder du utf8 et décoder un chaine utf8 [ par Lily25 ] Existe-il une fonction ASP qui encode une chaine en utf8, comme utf8_encode en php ? Et une fonction inverse qui décode une chaine utf8 ?Merci ! Codage des caractères ? [ par SuperBouly ] Lorsque je veux afficher le contenu d'un cookie sur une page *.aspx avec qqch du genre :lbInfo.text = request.cookie("monCookie")("mavariable"), certa