IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

REPLACE RegEx - Remplacer des caractères différents par un même caractère en un seul appel [AC-2010]


Sujet :

Contribuez

  1. #1
    Membre éclairé

    Profil pro
    Inscrit en
    janvier 2010
    Messages
    939
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 939
    Points : 899
    Points
    899
    Billets dans le blog
    33
    Par défaut REPLACE RegEx - Remplacer des caractères différents par un même caractère en un seul appel
    Bonjour à tous,

    En vba, il existe une fonction native REPLACE(expression, find, replace, [ start, [ count, [ compare ]]]) Voir ici pour plus d'information

    Toutefois, cette fonction ne peut remplacer qu'un seul caractère à la fois. donc dans l'éventualité d'un remplacement de différents caractères par un même caractère, rien de mieux que l'utilisation du RegEx. Le code suivant permet cette action!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Public Function fRegExReplace(psValue As String, psPattern As String, psBy as string) As String
     
        Dim oRegExp As New regexp
        Dim sPattern As String,sValueCleaned As String
     
        If Nz(psValue) = "" Then GoTo Exit_
     
        'Set oRegExp = CreateObject("vbscript.regexp")
     
        With oRegExp
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = psPattern
     
            sValueCleaned = .Replace(Nz(psValue), psBy)
     
        End With
     
        fRegExReplace = sValueCleaned
     
    Exit_:
     
        Set oRegExp = Nothing
     
    End Function
    Exemple de remplacement en une seule passe des caractères
    • ESPACES
    • [
    • ]

    par VIDE

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sTextCleaned = fRegExReplace(sFieldName, "\s|\[|\]","")
    Mal nommer un objet, c'est ajouter au malheur de ce monde, car le mensonge est justement la grande misère humaine, c'est pourquoi la grande tâche humaine correspondante sera de ne pas servir le mensonge
    Poésie 44, n° 17 - Albert Camus

    Mes réponses vous ont aidés, un clic sur leur pouce vert
    Bonjour chez vous

  2. #2
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 709
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 709
    Points : 18 022
    Points
    18 022
    Billets dans le blog
    31
    Par défaut
    Bonsoir,

    Ton idée est intéressante, cependant j'aurais une question :

    Le fait d'instancier l'objet regexp dans la fonction cela ne risque-t-il pas de ralentir le code par rapport à une fonction utilisant Replace dans une boucle ?

    Cdlt,
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  3. #3
    Membre éclairé

    Profil pro
    Inscrit en
    janvier 2010
    Messages
    939
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 939
    Points : 899
    Points
    899
    Billets dans le blog
    33
    Par défaut
    Salut User
    Je n'en ai hélas aucune idée.
    Je partage juste une expérience.
    Et j'ai toujours une préférence pour un code allégé et donc plus lisible.
    Mal nommer un objet, c'est ajouter au malheur de ce monde, car le mensonge est justement la grande misère humaine, c'est pourquoi la grande tâche humaine correspondante sera de ne pas servir le mensonge
    Poésie 44, n° 17 - Albert Camus

    Mes réponses vous ont aidés, un clic sur leur pouce vert
    Bonjour chez vous

  4. #4
    Rédacteur/Modérateur

    Avatar de User
    Homme Profil pro
    Développeur informatique
    Inscrit en
    août 2004
    Messages
    7 709
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : août 2004
    Messages : 7 709
    Points : 18 022
    Points
    18 022
    Billets dans le blog
    31
    Par défaut
    Resalut,

    Oui,je comprends bien.

    Donc dans ce cadre la je trouve ton idée sympa

    Cdlt,
    Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération

    Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
    Gestion sur un planning des présences et des absences des employés
    Gestion des rendez-vous sur un calendrier mensuel


    Importer un fichier JSON dans une base de données Access :
    Import Fichier JSON

  5. #5
    Membre éclairé

    Profil pro
    Inscrit en
    janvier 2010
    Messages
    939
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : janvier 2010
    Messages : 939
    Points : 899
    Points
    899
    Billets dans le blog
    33
    Par défaut
    A très bientôt User
    Mal nommer un objet, c'est ajouter au malheur de ce monde, car le mensonge est justement la grande misère humaine, c'est pourquoi la grande tâche humaine correspondante sera de ne pas servir le mensonge
    Poésie 44, n° 17 - Albert Camus

    Mes réponses vous ont aidés, un clic sur leur pouce vert
    Bonjour chez vous

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Python 2.X] [regex] remplacer des caractères dans une chaine
    Par DonKnacki dans le forum Général Python
    Réponses: 2
    Dernier message: 13/10/2015, 10h13
  2. [RegEx] Remplacer des caractères par des images
    Par moudhakir dans le forum Langage
    Réponses: 2
    Dernier message: 21/06/2009, 14h06
  3. script pour remplacer des caractères par des blancs
    Par floctc dans le forum Langage
    Réponses: 5
    Dernier message: 03/06/2009, 16h44
  4. Remplacer des caractères avec la fonction string.replace
    Par chtom dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 17/12/2008, 16h43
  5. [Notepad++] utiliser regex pour remplacer des caractères
    Par ilood dans le forum Autres Logiciels
    Réponses: 2
    Dernier message: 04/02/2007, 04h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo