Discussion :

[shayw]

Bonjour

J'essaie sans success de coder un regex pour verifier si un string contient toutes les voyelles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim pattern As String = "AEIOUY"
    Dim regex = New Regex(pattern)
     For Each match As Match In regex.Matches(mystring)
          str = match.Value
     Next

cela fonctionne seulement si mystring contient AEIOUY mais pas dans un autre ordre

[wallace1]

Bonsoir shayw,

Et si tu utilises ce pattern :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim pattern As String = "A|E|I|O|U|Y"

Il faudra certainement comparer le résultat avec le pattern sans les caractères d'isolement.


A+

[DonQuiche]

Bonsoir. Si le problème est exactement "vérifier qu'une chaîne contient toutes les voyelles" alors une regex n'est clairement pas l'outil le plus adapté. Il faudrait soit une expression par voyelle, soit une seule expression très lourdingue (testant toutes les permutations possibles). Dans tous les cas String.Contains est une bien meilleure alternative.

[shayw]

peut etre ainsi un peu bricolage

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
 Dim flags(5) As Boolean
        Dim pattern As String = "A|E|I|O|U|Y"
        Dim regex = New Regex(pattern)
        For Each item In flags
                item = False
            Next
        vowelscount = regex.Matches(mystring).Count
        If vowelscount >= 6 Then
                    For Each match As Match In regex.Matches(mystring)
                        Select Case match.Value
                            Case "A" : flags(0) = True
                            Case "E" : flags(1) = True
                            Case "I" : flags(2) = True
                            Case "O" : flags(3) = True
                            Case "U" : flags(4) = True
                            Case "Y" : flags(5) = True
                        End Select
                    Next
                   if flags(0) and flags(1)and  flags(2) and flags(3) and flags(4 ) and flags(5) then 
 
                End If
          end if

[rv26t]

Bonjour,

Et en suivant le conseil de DonQuiche.
c étant la chaine de caractère, tester directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If c.Contains("A") And c.Contains("E") And c.Contains("I") And c.Contains("O") And c.Contains("U") And c.Contains("Y") Then MessageBox.Show("ok")

[shayw]

Bonjour

Oui suivre le conseil de DonQuiche la solution la plus simple sans que je me casse la tete avec le regex