Ceuroansi() chaine de caractères désaccentuée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 096 fois - Téléchargée 35 fois

Contenu du snippet

Fonction qui retourne une chaine de caractère européenne ANSI sans ses accents
Utile pour créer des noms sans accents (fichiers, dossiers, etc.)

Source / Exemple :



  • -------------------------------------------------------------
FUNCTION cEuroANSI && Chaine de caractères désaccentuée LPARAMETERS tcEuropean && Chaine de caractères accentuée local lcResult && Chaine de caractères désaccentuée m.lcResult = space(0) IF Vartype(m.tcEuropean) = 'C' ; AND !Empty(m.tcEuropean) ; AND !IsNull(m.tcEuropean)
  • Restore translation strings
IF NOT Vartype(m.European) == 'C' ; OR NOT Vartype(m.EuroANSI ) == 'C' PUBLIC European, EuroANSI RESTORE FROM (Home()+'european.mem') ADDITIVE ENDIF
  • Translate
m.lcResult = Sys(15, m.EuroANSI, m.tcEuropean)
  • m.lcResult = Chrtran(m.tcEuropean, m.European, m.EuroANSI)
ENDIF RETURN m.lcResult
  • -----------------------------------------------------------------
PROCEDURE cEuroANSI_Test ? Sys(16) RELEASE European, EuroANSI ? cEuroANSI (.T.) = space(0) ? cEuroANSI (space(0)) = space(0) ? cEuroANSI (null) = space(0) ? cEuroANSI ('hébété') = 'hebete' ? cEuroANSI ('àäâéèêëioòùû') = 'aaaeeeeioouu' ? cEuroANSI ('ÀÄÂÉÈÊËIOÒÙÛ') = 'AAAEEEEIOOUU'

Conclusion :


Crée 2 variables publiques European et EuroANSI

A voir également

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.