Discussion :

[narutobaka]

Bonjour,

N'étant pas très doué avec l'outil puissant que sont les expressions régulière, je viens vous demander de l'aide :

J'aimerai vérifier dans une chaine de caractère composé uniquement de caractère [A-Z], qu'il n'y ais pas 2 fois le même caractère dans la chaine. La taille de la chaine peut etre variable :

AA => incorrect
ABCDFG => correct
ABBDFG=> incorrect

Est-ce possible avec les expressions régulières?

merci d'avance pour votre aide

[tomlev]

Je ne pense pas qu'on puisse faire ça avec les regex... mais tu peux le faire avec Linq, en exploitant le fait que String implémente IEnumerable(Of Char) :

Code :

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

1
2
3
4
5
6
Dim s As String = ...
If s.Where(AddressOf Char.IsLetter).Distinct().Count() = s.Length Then
    ' correct
Else
    ' incorrect
End if

[matll]

Je ne pense pas qu'on puisse faire ça avec les regex... mais tu peux le faire avec Linq, en exploitant le fait que String implémente IEnumerable(Of Char) :

Code :

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

1
2
3
4
5
6
Dim s As String = ...
If s.Where(AddressOf Char.IsLetter).Distinct().Count() = s.Length Then
    ' correct
Else
    ' incorrect
End if

Très jolie méthode.

Je ne pense pas non plus que ce soit possible avec les regex, les regex peuvent être utilisées pour représenter des Automates d'Etats Finis or ce que tu souhaites ici relève plus de l'Automate à Pile (selon moi).

[narutobaka]

Bonjour,

et merci pour vos réponse.

Cependant je ne sais pas comment utiliser link.

Et il couine sur le where.

Que faut-il pour utiliser link?

les regex peuvent être utilisées pour représenter des Automates d'Etats Finis or ce que tu souhaites ici relève plus de l'Automate à Pile (selon moi).

J'ai lu cette article ou il parle des automate à pile. Et il présente des regex sur ces derniers. Même si j'ai pas tout compris, il semble possible de pouvoir faire des regex sur des automate à pile? ou alors j'ai rien compris???

merci pour votre aide.

[tomlev]

Cependant je ne sais pas comment utiliser link.

Et il couine sur le where.

Que faut-il pour utiliser link?

Ajoute une référence à System.Core.dll (si elle n'est pas déjà là)
Et ajoute un Imports au début du fichier :

Code :

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

Imports System.Linq

[Sehnsucht]

Bonjour,

Alors, juste pour le fun j'ai cherché à résoudre ça en regex et je suis parvenu je me suis grandement inspiré (euphémisme ) de ceci, ce qui donne lieu à deux solutions.
Enfin j'ai pas trop poussé les tests donc je garantis pas l'efficacité sur tous les cas et de toute façon :

• c'est dur à déchiffrer (enfin encore plus qu'une regex "classique" )
• question perf c'est (en moyenne) pas trop ça

mais bon je les mets quand même

Code :

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

1
2
"^(?:([A-Z])(?=(?:(?!\1)[A-Z])*$)[A-Z]*?){#}"
"^(?>([A-Z])(?:(?<=\1[A-Z]+))|(?<distinct>[A-Z]))+$(?<-distinct>){#}"

Note: dans les deux cas # est à remplacer par la longueur de la chaîne à tester.

Après la version Linq est quand même plus concise, lisible et efficace, même si j'aurais eu instinctivement tendance à l'écrire comme ceci :

Code :

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

s.All(AddressOf Char.IsLetter) AndAlso s.Distinct.Count = s.Length

Afin de pouvoir court-circuiter le test au premier caractère non valide (mais je chipote là )

Cordialement !

[chrismonoye]

Bonjour,

autrement une solution basique qui donne un message d'erreur si la chaine est incorrecte.

1) contrôle si la chaine n'est composée que de lettres majuscules.
2) Compte le nombre d'occurences qui ne doit pas dépasser 1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim s As String = tbxEntree.Text
        If Regex.IsMatch(s, "^[A-Z]+$") Then
            For Each chr As Char In s
                If Regex.Matches(s, chr).Count > 1 Then
                    MessageBox.Show("La chaine comprend déjà au moins deux " & chr & " , donc incorrecte.")
                    Exit For
                End If
            Next
        Else
            MessageBox.Show("La chaine n'est pas composée que de MAJUSCULES, donc incorrecte.")
        End If

Enfin pour Linq (plus esthétique) et les majuscules :

Code :

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

Char.IsUpper

[MABROUKI]

bonjour narutobaka
Si c'est des lettres recurrentes "contigues" Regex permet en utilisant un nom de groupe pour l'expression (il faut nommer l'expression pattern regex) de compter les "recurrences de lettres" alphabetiques avec ce que MSDN DOC appelle les backrefrences
La contiguite des caracteres recurrents est indispensable,autrement ils ne sont pas "vus".
code exemple:

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
 
Imports System
Imports System.Text.RegularExpressions
Public Class frmRegexCompteCars
 
    Private Sub btnOccurencesCars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOccurencesCars.Click
        'Define a regular expression for repeated chars.
        'groupe d'expression : [a-zA-Z]  caractere alphabetique 
        'syntaxe du nom groupe d'expression : ?'groupeNom'
        'suivie de: \k'groupeNom'
        Dim rx As New Regex("(?'groupeNom'[a-zA-Z])\'groupeNom'", _
                 RegexOptions.Compiled Or RegexOptions.IgnoreCase)
        ' Define a test string.
        Dim monText As String = "ABbCDEFFGhH"
        ' Find matches.
        Dim matches As MatchCollection = rx.Matches(monText)
 
        ' Report the number of matches found.
        Me.TextBox1.Text = Me.TextBox1.Text & "matches found in:" & matches.Count & vbCrLf
        Me.TextBox1.Text = Me.TextBox1.Text & monText & vbCrLf
        ' Report on each match.
        For Each match As Match In matches
            Dim groups As GroupCollection = match.Groups
            Me.TextBox1.Text = Me.TextBox1.Text & groups.Item("groupeNom").Value & _
            " repete en position : " & groups.Item(0).Index.ToString & vbCrLf
        Next
    End Sub
End Class

bon code......