1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    septembre 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : septembre 2014
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Expression régulière en VBScript

    Bonjour,

    mon expression régulière est comme suit: nom[0-9]* =>le nom par exemple sarra suivi/ou non d'un chiffre entre 0 et 9.

    je veux chercher dans une chaine s'il existe cette expression.

    Nb: nom est passé en parametre dans une fonction: Function getX(nom)

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    3 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 911
    Points : 7 455
    Points
    7 455

    Par défaut

    Salut

    Un petit outils pour faire des essais: Manipulation de l'objet RegExp un code HTML/VBScript.
    Tu pourras adapter pour ton propre code.

  3. #3
    Membre éprouvé
    Homme Profil pro
    Responsable déploiement
    Inscrit en
    juillet 2014
    Messages
    689
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement

    Informations forums :
    Inscription : juillet 2014
    Messages : 689
    Points : 1 169
    Points
    1 169

  4. #4
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    avril 2013
    Messages
    7 931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 7 931
    Points : 15 619
    Points
    15 619

    Par défaut


    Bonjour,

    possible aussi de s'entraîner via Notepad++ …

    ___________________________________________________________________________________________________________
    Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
    . . . . . Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !

  5. #5
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 307
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 307
    Points : 7 994
    Points
    7 994

    Par défaut


    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
    27
    28
    29
    30
    31
    32
    Option Explicit
    Dim strng1,strng2,strng3,Nom
    strng1 = "sara Test 10023"
    strng2 = "sarra12054"
    strng3 = "SARRA25826mll"
    Nom = "sarra"
    MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng1) & vbCrlF &_
     RegExpTest(Nom,strng1))
     MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng2) & vbCrlF &_
     RegExpTest(Nom,strng2))
      MsgBox("Recheche de la chaîne "& DblQuote(Nom) &" dans "& DblQuote(strng3) & vbCrlF &_
     RegExpTest(Nom,strng3))
    '*********************************************************************
    Function RegExpTest(Nom,strng)
      Dim regEx, retVal
      ' Créer une expression régulière.
      Set regEx = New RegExp
      regEx.Pattern = Nom &"[0-9]*"
      regEx.IgnoreCase = True
      'Effectuer le test de recherche
      retVal = regEx.Test(strng)
      If retVal Then
        RegExpTest = "Une ou plusieurs correspondances ont été trouvées."
      Else
        RegExpTest = "Aucune correspondance n'a été trouvée."
      End If
    End Function
    '*********************************************************************
    Function DblQuote(Str)
        DblQuote = Chr(34) & Str & Chr(34)
    End Function
    '*********************************************************************

Discussions similaires

  1. Réponses: 4
    Dernier message: 09/11/2012, 14h15
  2. Expression réguliére
    Par Mad_Max dans le forum Langages de programmation
    Réponses: 2
    Dernier message: 16/09/2003, 18h17
  3. [expression régulière] mon cerveau fait des noeuds..
    Par nawac dans le forum Général Algorithmique
    Réponses: 7
    Dernier message: 27/05/2003, 10h06
  4. Expressions réguliéres
    Par Tooms dans le forum Langage
    Réponses: 4
    Dernier message: 06/12/2002, 18h42
  5. Réponses: 5
    Dernier message: 11/06/2002, 15h21

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