Expressions régulières Le sujet est résolu

PHP, JavaScript, Python, C#, VB.NET, C++, etc, y compris d'autres types de langages (HTML, CSS, SQL)
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 2'164
Appréciations reçues : 360
Inscrit le : 4 décembre 2004
Version d'Excel : 2016 FR
Version de Sheets : FR
Contact :
Téléchargements : Mes applications

Message par Sébastien » 11 mai 2020, 14:23

Une autre piste :
([^\[(]*)([\[(])?(\d{4})([\])])?$
Sébastien
Avatar du membre
Jean-Paul
Membre habitué
Membre habitué
Messages : 123
Appréciations reçues : 34
Inscrit le : 17 mai 2018
Version d'Excel : Office 365 FR

Message par Jean-Paul » 11 mai 2020, 15:43

Sébastien a écrit :
11 mai 2020, 14:23
Une autre piste :
([^\[(]*)([\[(])?(\d{4})([\])])?$
Salut Sébastien,
Je suis au boulot , je teste ce soir mais à mon avis cela ne va pas me renvoyer le début de chaine avec ([^\[(]*) mais vu mon ignorance sur le sujet je vais tester, merci quand même de te pencher dessus.
Moi j'ai tester (.*[^\[(])....... mais ça ne fonctionne pas
Le savoir n'a de valeur que s'il est partagé.

:btres:
Avatar du membre
Jean-Paul
Membre habitué
Membre habitué
Messages : 123
Appréciations reçues : 34
Inscrit le : 17 mai 2018
Version d'Excel : Office 365 FR

Message par Jean-Paul » 11 mai 2020, 19:20

Salut le fil
Bon voilà je suis arrivé à ce résultat c'est pas du 100% donc je vais voir pour affiner.
'————————   GENERALITES   ———————————————————————————————————————————————
    '   Pour éviter un appel récursif à la fonction GetParam du fait que je traite tous les titres d'un répertoire, pCleanFlag est chargé au changement de page d'un ControlTab il contient les options de Formats
    '   pCleanflag est chargé dans la Sub LoadFlagValue
    '   pCleanFlag est déclarer en enumération «vaOptions»
  
  With reg  'Dim reg As New VBScript_RegExp_55.RegExp
  	.Global = True
        .IgnoreCase = True
        
   'On formate la date de sortie si elle existe et selon le choix de format
        'Seules les dates en fin de titre sont prises en compte
        .Pattern = "([\[\(])?( ?)(\d{4})( ?)([\]\)])?$"
        If pCleanFlag And SansDate Then
            If .test(strFileName) = True Then
                strTemp = .Replace(strFileName, "")
                If strTemp <> vbNullString Then strFileName = strTemp 'Si le titre ne contient que la date ex: 2012
            End If

        ElseIf pCleanFlag And AvecParenteses Then
            If .test(strFileName) = True Then
                strTemp = .Replace(strFileName, "($3)")
                strFileName = strTemp
            End If

        ElseIf pCleanFlag And SansParentheses Then
            If .test(strFileName) = True Then
                strTemp = .Replace(strFileName, "$3")
                strFileName = strTemp
            End If
        End If

    End With 
    
Pas mieux pour l'instant, il me reste à gérer les espaces devant la date.... :roll:
Le savoir n'a de valeur que s'il est partagé.

:btres:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message