- * -------------------------------------------------------------
- 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'
* -------------------------------------------------------------
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'