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
    4 169
    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 : 4 169
    Points : 8 461
    Points
    8 461

    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.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre chevronné

    Homme Profil pro
    Responsable déploiement (SCCM, AirWatch, AMP)
    Inscrit en
    juillet 2014
    Messages
    1 121
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, AirWatch, AMP)
    Secteur : Transports

    Informations forums :
    Inscription : juillet 2014
    Messages : 1 121
    Points : 2 080
    Points
    2 080

  4. #4
    Expert éminent sénior
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    avril 2013
    Messages
    8 734
    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 : 8 734
    Points : 17 371
    Points
    17 371

    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 391
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 391
    Points : 8 187
    Points
    8 187

    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, 15h15
  2. Expression réguliére
    Par Mad_Max dans le forum Langages de programmation
    Réponses: 2
    Dernier message: 16/09/2003, 19h17
  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, 11h06
  4. Expressions réguliéres
    Par Tooms dans le forum Langage
    Réponses: 4
    Dernier message: 06/12/2002, 19h42
  5. Réponses: 5
    Dernier message: 11/06/2002, 16h21

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