Discussion :

[narutobaka]

Bonjour,

Je recherche une méthode en vb.net met permettant de savoir si une chaine de caractère est composé de caractère [a-z] [A-Z] et du caractère souligné.

en Delphi j'ai cette expression :

Code :

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

1
2
3
 
If not (Chr[i] in ['A'..'Z','a'..'z','_'] ) then
Message Erreur

J'ai essayé avec cette regex :

Code :

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

1
2
3
 
 
if (Regex.IsMatch(Machaine,"[A-Za-z]")) then

Mais il ne semble pas correctement filtrer et je ne vois pas comment rajouter la verification du caractère underscore.

Si qqn a une idée je suis preneur

Je continue a chercher

++

[tomlev]

Code :

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

1
2
3
 
 
if (Regex.IsMatch(Machaine,"[A-Za-z]")) then

Mais il ne semble pas correctement filtrer et je ne vois pas comment rajouter la verification du caractère underscore.

Comme ça, tout simplement...

Code :

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

if (Regex.IsMatch(Machaine,"[A-Za-z_]")) then

[chrismonoye]

Bonsoir,
à tester :

Code :

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

"^[\w-[0-9]]+$"

Il faut aussi tester l'expression du début (^) jusqu'à la fin ($), au moins un (+) caractère alphanumérique français, donc y compris les accents (\w) en excluant les nombres (-[0-9]).

[MABROUKI]

bonjour narutobaka
Aurais tu oublie le bon operateur Like?
Un peu comme l'operateur 'in" de pascal.Tres puissant.
voici le code dans le cas souleve.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
'Symboles reserves de like et significations
'? Tout caractère unique
'* Zéro ou plusieurs caractères
'# Tout chiffre (0-9)
'[ charlist ]  Tout caractère présent dans charlist
'[! charlist ] Tout caractère absent(caractere à exclure) 
'Si un des symboles reserves ci-dessus  figure 
'dans le Modele de chaine  à tester le mettre entre crochet
Option Strict On
Option Compare Text
Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Test 1
        'Affiche dans TextBox1 les caracteres correspondants
        'Affiche dans TextBox2 les caracteres non-correspondants 
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Dim testCheck As Boolean = False
        'Modele Alphanumetique
        Dim strPattern As String = "[a-zA-Z0-9]"
        Dim narutoStr As String = "NaRUtoBAKA_45"
 
        For Each ch As Char In narutoStr
            testCheck = ch Like strPattern
            If testCheck Then
                Me.TextBox1.Text = Me.TextBox1.Text & ch
            Else
                Me.TextBox2.Text = Me.TextBox2.Text & ch
            End If
        Next
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Test 2 
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Dim testCheck As Boolean = False
        'Modele Alphanumetique +  caracteres soulignes
        Dim strPattern As String = "[a-zA-Z_]"
        Dim narutoStr As String = "AkABot_URaN_9"
 
        For Each ch As Char In narutoStr
            testCheck = ch Like strPattern
            If testCheck Then
                Me.TextBox1.Text = Me.TextBox1.Text & ch
            Else
                Me.TextBox2.Text = Me.TextBox2.Text & ch
            End If
        Next
    End Sub
 
 End Class

BON CODE....

[narutobaka]

bonjour,

@mabrouki, oulah tu as etais cherché ca où? y a nettement plus simple avec la methode ismatch.

@tomlev Merci pour ta réponse, j'ai utilisé cette regex.

Mon soucis venais surtout du fait que je voulais qu'il affiche un message d'erreur quand la chaine de caractère ne correspondait pas à l'expression régulière, j'avais ce qui donne :

Code :

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

1
2
3
4
5
Dim ExpressionReg as System.Text.RegularExpressions.regex = _
New System.Text.RegularExpressions.regex("[A-Za-z_]{8}")
 
If Not ExpressionReg.IsMatch(Mon_Texte) then
Mon_Message_Erreur

Encore merci pour votre aide

Je met le post en résolu

++

[narutobaka]

bonjour,

J'ai un ptit soucis avec ma regex. Apperemment {8} verifie que l'on est au moins 8 caractères.

Je cherche l'expression indiquant strictement 8 caractères.

Si quelqu'un à une idée.

Je vais continuer mes recherches

++