Accueil > > > CEUROANSI() CHAINE DE CARACTÈRES DÉSACCENTUÉE
 CEUROANSI() CHAINE DE CARACTÈRES DÉSACCENTUÉE
 Information sur la source
 Description
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
- * -------------------------------------------------------------
- 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'
 Conclusion
Crée 2 variables publiques European et EuroANSI
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Supprimer alias [ par ducker88 ]
Bonjour, J'aimerai savoir comment supprimer un alias dans une fonction.J'ai une fonction qui a chaque fois qu'elle est appel
Supprimer definitvement ligne marqué a la suppression [ par ducker88 ]
Bonjour à tous,Est t'il possible de supprimer definitivement des lignes marqué a la suppression, sans ouvrir la table concerné en exclusif ?Actuellem
Probleme avec DELETE FILE [ par ducker88 ]
Bonjour a tous,Voici mon probleme, j'ai besoin de supprimer des fichier temporaire dans un repertoire specifique pour cela je souhaite executer la com
supprimer [ par slimvir ]
bonjour,j'utilise ce code pour supprimer une ligne d'une Grid mais ca fonctionne pasSELECT table2DELETEThisform.grid1.Refresh() merci de m'aider
Supprimer un répertoire Via foxpro [ par amhidi ]
La commande RMDIR ne fonctionne que si un répertoire est vide Or j'ai fait un prg qui vide les répertoire à l'aide de delete file *.* ou erase *.* apr
|
Derniers Blogs
 TFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICESTFS INTEGRATION TOOLS - SUIVI DES SYNCHRONISATIONS AVEC REPORTING SERVICES par vfabing
Afin de s'assurer du bon fonctionnement des différentes synchronisations effectuées par les TFS Integration Tools, 2 rapports sont présents dès l'installation. Il suffit alors d'effectuer les manipulations suivantes pour pouvoir les visualiser : Loca...
Cliquez pour lire la suite de l'article par vfabing CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|