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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (AbaqueInside)