Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
10 mars 2010 3 10 /03 /mars /2010 09:26

Il est parfois nécessaire d’empêcher la saisie d’une adresse e-mail ou d’un site internet dans un texte pour des raisons de sécurité, ou tout simplement pour que l’utilisateur ne saisissent ses informations qu’aux endroits prévus à cet effet.

 

Voici 2 fonctions qui permettent de savoir si une adresse email ou un site internet a été saisie dans un texte :

 

Code :

Private Function IsWebSiteInText(ByVal txt As String) As Boolean
        Dim regx As New Regex("http(s)?://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?", RegexOptions.IgnoreCase)

        Dim mactches As MatchCollection = regx.Matches(txt)

        If mactches.Count > 0 Then
            Return True
        End If

        Return False

End Function

 

Private Function IsEmailInText(ByVal txt As String) As Boolean

        Dim regx As New Regex("\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*",RegexOptions.IgnoreCase)

        Dim mactches As MatchCollection = regx.Matches(txt)

        If mactches.Count > 0 Then
            Return True
        End If

        Return False
End Function

Dans le cas d’un formulaire ASP.NET vous pouvez utiliser un CustomValidator pour vérifier le texte.

Partager cet article

Repost 0
Published by Cyril - dans ASP.NET
commenter cet article

commentaires