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
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
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.