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

Ce site au démarrage

begin process at 2012 02 05 01:34:34

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Chaînes de caratères

> CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS

CONVERSION CARACTÈRES UTF-8 VERS FRANÇAIS

Information sur la source

Note :

4,00 / 10

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

Auteur : EricDD

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

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>

Commentaire de Keneyda le 27/03/2009 14:56:45

Sinon plus simple au cas ou pour d'autre

<%response.Charset="ISO-8859-1"%>

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 ! encoder un string en utf8 [ par romain117 ] Bonjour, Je développe une application web asp.net, en c#, et je cherche à transformer un string saisi dans un textbox par l'utilisateur en UTF8. Voic 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 analyse et codage des requetes client serveurs [ par sa7liano96 ] j'a un exposé de sujet suivent:analyse et codage de differents types des requetes client serveurs. et je ne comprendre pas ce que lui demmender a moi

Nos sponsors

Derniers Blogs

CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY

MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice

Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks

[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET

IIS7 - COMPRESSION GZIP par cyril

Forum

RE : COORDONNéES SOURIS par Megafan

SCRIPT par nadialadypower

DEMANDE D'INFOS SUR LE REFERENCEMENT, LA PUB POUR LES SITES DYNAMIQUES par Picou972

COORDONNéES SOURIS par babe59

INSTALLATION DU SERVEUR OBIEE par xx07pedro

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Cherche referenceur astucieux
Budget : 1 500€
Recherche expert advisor sous mql4 hedging
Budget : 200€
Creation boutique en ligne iphone- android - Republication.
Budget : 4 000€

Logiciels

Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
Academy System (17.1.3.0)
ACADEMY SYSTEM (17.1.3.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011