Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 513
Nombre de snippets : 1595
Connexion

Modifie les caractères spéciaux

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 17/05/2006 10:24:01 et initié par danielamaury [Liste]
Date de mise à jour : 27/08/2007 12:35:47
Vue : 15113
Catégorie(s) : Chaîne de caractères, WinForm, WebForm
Langages dispo pour ce code :
- ASP.NET 2.x, VB 2005
- VB6
- VB6, VBA
- ASP.NET 1.x, ASP.NET 2.x, C# 1.x, C# 2.x
- Delphi 5
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6
Date ajout : 01/06/2006
Posté par PCPT [Liste]

Private Function ModifCaracters(ByVal UnMot As String) As String 
    ModifCaracters = UnMot 
    Dim i As Integer 
    For i = 1 To Len(UnMot) 
        Select Case Asc(Mid$(UnMot, i, 1)) 
                Case 138:                           Mid$(ModifCaracters, i, 1) = "S" 
                Case 142, 221:                      Mid$(ModifCaracters, i, 1) = "Z" 
                Case 158:                           Mid$(ModifCaracters, i, 1) = "z" 
                Case 159:                           Mid$(ModifCaracters, i, 1) = "Y" 
                Case 192, 193, 194, 195, 196, 197:  Mid$(ModifCaracters, i, 1) = "A" 
                Case 200, 201, 202, 203:            Mid$(ModifCaracters, i, 1) = "E" 
                Case 204, 205, 206, 207:            Mid$(ModifCaracters, i, 1) = "I" 
                Case 208:                           Mid$(ModifCaracters, i, 1) = "D" 
                Case 209:                           Mid$(ModifCaracters, i, 1) = "N" 
                Case 210, 211, 212, 213, 214:       Mid$(ModifCaracters, i, 1) = "O" 
                Case 217, 218, 219, 220:            Mid$(ModifCaracters, i, 1) = "U" 
                Case 224, 225, 226, 227, 228, 229:  Mid$(ModifCaracters, i, 1) = "a" 
                Case 231:                           Mid$(ModifCaracters, i, 1) = "c" 
                Case 232, 233, 234, 235:            Mid$(ModifCaracters, i, 1) = "e" 
                Case 236, 237, 238, 239:            Mid$(ModifCaracters, i, 1) = "i" 
                Case 241:                           Mid$(ModifCaracters, i, 1) = "n" 
                Case 242, 243, 244, 245, 246:       Mid$(ModifCaracters, i, 1) = "o" 
                Case 249, 250, 251, 252:            Mid$(ModifCaracters, i, 1) = "u" 
                Case 253, 255:                      Mid$(ModifCaracters, i, 1) = "y" 
        End Select 
    Next i 
End Function

Snippets en rapport avec : Caractères, Spéciaux

03/01/2008 - Convertit les caractères spéciaux en entités HTML (HtmlEncore / HtmlSpecialChars)

09/09/2007 - Remplacer des caractères d'une chaine

02/09/2007 - Split selon le nombre max de caractères voulu, en tenant compte des retours chariot et des chaînes non-sécables

15/04/2007 - Supprimer du texte en début ou en fin d'un fichier texte [avec option Par Lignes ou non]

06/02/2007 - Replace de masse, remplacer des chaînes par d'autres en une seule opération

01/06/2006 - Effacer des caractères à partir de la fin



Codes sources en rapport avec : Caractères, Spéciaux

{Javascript / DHTML} CONVERSION TEXTE ACCENTUÉ -> CODE HTML
Etant donné que je n'ai pas trouvé de code qui permettait de me générer un code HTML à partir d'un t...

{Delphi} CONVERTIR LES CODE HTML EN CARACTÈRES SPÉCIAUX
Voici le complément à la source poster par Japee : http://www.delphifr.com/codes/CONVERTIR-CARACTE...

{PHP} CONVERSION DES CARACTÈRES SPÉCIAUX DANS UNE BASE DE DONNÉES MYSQL
Ce script convertit les caractères spéciaux tel que les simple quote ou les accents ... dans tous le...

{Delphi} CONVERTIR LES CARACTÈRES SPÉCIAUX EN CODE HTML [TEXT TO HTML]
Conversion des caractères spéciaux vers leur équivalent en code html. Ce code (simplifié) est ext...

{PHP} GÉNÉRER UNE CHAÎNE ALÉATOIRE SANS BOUCLE NI CRYPTAGE (MD5 OU AUTRE)
Jusqu'à présent tous les générateurs de clé que j'ai trouvé utilisait une boucle ou les fonction sha...

{Delphi} VFONTS : OUTIL DE VISUALISATION DES POLICES CARACTÈRES INSTALLÉES - RECHERCHES, CRÉATION DE SÉLECTION MÉMORISÉES, AIDE COMPLÈTE EN FRANÇAIS.
Ce petit logiciel, sous licence GPL, est destiné à vous aider à choisir certaines polices de caractè...

{C / C++ / C++.NET} [C/WIN32] GÉNÉRATEUR DE CODE POUR UNE INITIALISATION SPÉCIALE DE CHAINE DE CARACTÈRES.
Yop, Voici BNMgenerator, à comprendre BruNews Method Generator. J'espère qu'il me pardonnera ce n...

{PHP} FORMATAGE AUTOMATIQUE D'UN TEXT EN FONCTION DE MOTS CLÉES
Je cherchais depuis quelque temps un script me permettant de souligner, ou mettre en gras certain mo...

{Visual Basic, VB6, VB.NET, VB 2005} LIMITER LA FRAPPE DANS DES ZONES COMBO OU TEXT À DES CHIFFRES
Il s'agit d'une petite mise à jour pour VB.NET des astuces déjà existantes pour VB5 et VB6 qui avaie...

{Visual Basic, VB6, VB.NET, VB 2005} RECHERCHE DE CHAINE DE CARACTÉRES SUR DES FICHIERS .TXT AVEC SÉPARATEURS ENTRE LES CHAMPS, ET AFFICHAGE AVEC ALIGNEMENT DES ZONES.
Ce programme sert à 'RAPIDEMENT' chercher et afficher des lignes d'enregistrements d'un fichier de t...