[VB2008 | Regex] Comment faire une regex sur une chaine verifiant l'unicité des caractères qui la composent

Version imprimable

12/07/2011, 14h32
narutobaka

[VB2008 | Regex] Comment faire une regex sur une chaine verifiant l'unicité des caractères qui la composent

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
12/07/2011, 15h37
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:

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
12/07/2011, 15h44
matll
Citation:
Envoyé par 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:

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).
13/07/2011, 12h02
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?

Citation:

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.
13/07/2011, 12h03
tomlev

Citation:

Envoyé par narutobaka

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:

Imports System.Linq
13/07/2011, 14h39
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 :oops:) 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 :aie: et de toute façon :
- c'est dur à déchiffrer (enfin encore plus qu'une regex "classique" :aie:)
- question perf c'est (en moyenne) pas trop ça
mais bon je les mets quand même :D
Code:

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.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à :D)

Cordialement !

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:

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:

Char.IsUpper

regex et lettres contigues recurrentes

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:

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......