Virer les accents d'un texte
Soyez le premier à donner votre avis sur cette source.
Vue 5 404 fois - Téléchargée 362 fois
Description
ce source réponds à une question du forum
http://www.progzed.com
http://u.p.s.free.fr
Source / Exemple :
dans le zip
Conclusion :
http://www.progzed.com
http://u.p.s.free.fr
Codes Sources
A voir également
- Virer les accents d'un texte
- Supprimer les accents d'un texte - Codes sources - PHP (Astuces)
- Charger un texte avec accents - Codes sources - Flash (ActionScripts)
- Afficher un fichier texte (accents...) ✓ - Forum - VB.NET
- Problème de lecture d'accent à partir d'un fichier texte ✓ - Forum - VB.NET
- Lecture fichier texte, prob avec les accents ✓ - Forum - VB.NET
25 oct. 2009 à 18:44
function EnleverAccents(const SChaine: string): string;
var
PResult: PChar;
PStr: PChar;
TmpChaine: string;
begin
TmpChaine := SChaine;
Result := TmpChaine;
PResult := PChar(Result);
PStr := PChar(TmpChaine);
while PStr[0] <> #0 do
begin
case PStr[0] of
#192..#197: PResult[0] := 'A';
#199: PResult[0] := 'C';
#200..#203: PResult[0] := 'E';
#204..#207: PResult[0] := 'I';
#209: PResult[0] := 'N';
#210..#214: PResult[0] := 'O';
#138: PResult[0] := 'S';
#217..#220: PResult[0] := 'U';
#159, #221: PResult[0] := 'Y';
#142: PResult[0] := 'Z';
#224..#229: PResult[0] := 'a';
#231: PResult[0] := 'c';
#232..#235: PResult[0] := 'e';
#236..#239: PResult[0] := 'i';
#241: PResult[0] := 'n';
#242..#246: PResult[0] := 'o';
#154: PResult[0] := 's';
#249..#252: PResult[0] := 'u';
#253, #255: PResult[0] := 'y';
#158: PResult[0] := 'z';
end;
Inc(PResult);
Inc(PStr);
end;
end;
22 mai 2008 à 16:21
// Enlève les accents d'une chaîne de caractères
function EnleverAccents(Chaine: String; Espace: Boolean = True): String;
const
AvecAccent = 'àáâãäåæçèéêëìíîïñòóôõöøšùúûüýžþÿœÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÑÒÓÔÕÖØŠÙÚÛÜÝŽÞߌ€£$¥';
SansAccent = 'aaaaaaaceeeeiiiinoooooosuuuuyztyeAAAAAAACEEEEIIIINOOOOOOSUUUUYZTSEELSY';
var
i: Integer;
begin
Result := Chaine;
for i := 0 to Length(AvecAccent) - 1 do
Result := AnsiReplaceStr(Result, AvecAccent[i], SansAccent[i]);
if Espace then
Result := AnsiReplaceStr(Result, ' ', '_');
end;
18 oct. 2005 à 12:16
Moi je suis confrontée au prob aujourd'hui avec une base orable derrière, je ne trouve pas de solution
Merci
22 mai 2002 à 22:40
avec un case of
mais j'ai fait expres de laisser ainsi pour la comprehension la methode
22 mai 2002 à 22:33
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.