Discussion :

[oami89]

Bonjour,
Je suis blocké depuis 2 jours dans la vérification du format d'un textbox avant de l'envoyer à la base de données.
Le textbox à verfier est un lien vers site web,exemple "www.developpez.net"
Merci de m'aider

[meziantou]

Je vois 2 solutions:
- Utiliser une Regex
- Utiliser la classe URI et sa méthode TryCreate

[oami89]

Je vois 2 solutions:
- Utiliser une Regex
- Utiliser la classe URI et sa méthode TryCreate

Merci pour les solutions,j'ai utilisé les Regex mais j'ai pas trouvé la chaîne exacte. ,j'ai utilisé cette chaîne ci dessous pour la verification du mail,c'est bien fonctionné.Mais pour l'URL j'ai pas trouvé

Code :

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

Dim format As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"

[Rainui]

Bonsoir,

Vous pouvez utiliser l'objet WebRequest. Un exemple est donné sur MSDN.
Bon dev.

[Juaaah]

Ou alors :

Code :

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

1
2
3
4
5
6
7
8
If TextBox1.Text.Contains("www.") And
            TextBox1.Text.Contains(".com") Or
            TextBox1.Text.Contains(".fr") Or
            TextBox1.Text.Contains(".net") Or
            TextBox1.Text.Contains(".org") Then
 
            'Action à effectuer
        End If

[oami89]

Ou alors :

Code :

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

1
2
3
4
5
6
7
8
If TextBox1.Text.Contains("www.") And
            TextBox1.Text.Contains(".com") Or
            TextBox1.Text.Contains(".fr") Or
            TextBox1.Text.Contains(".net") Or
            TextBox1.Text.Contains(".org") Then
 
            'Action à effectuer
        End If

Merci,solution simple et fonctionnel à 100%