Tutorials Infos - Anleitungen - Hilfe - Dreamcodes
 

Ausdruck

Reguläre Ausdrücke:
Imports System.Text.RegularExpressions
Module Module6
Sub main(ByVal args() As String)
Dim inp As String
Dim rx As New Regex("[a-z]+@[a-z]+.(de|com)")
For Each inp In args
If (rx.IsMatch(inp)) Then
Console.Write("{0} ist ok", inp)
Else
Console.Write("{0} ist falsch", inp)
End If
Next
Console.ReadLine()
End Sub
End Module
'besser:
'"^[\w\.\-]+@([\w\-]+\.)*[\w\-]{2,63}\.[a-zA-Z]{2,4}$"

 
ID: 1925
eingestellt am: 25.01.2010
Autor: Keine Angabe
Status zum lesen: Gast
gelesen: 5488
Webseite: www.dreamcodes.com
[Drucken]