VB.Net by API/System.Text.RegularExpressions/Regex
Regex.IsMatch
<source lang="vbnet">
Imports System.Text.RegularExpressions Public Class Tester
Public Shared Sub Main Dim testString As String Dim emailPattern As String = _ "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@" & _ "([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$" testString = "a@nowhere.ru" Console.WriteLine(testString & Space(3) & _ Regex.IsMatch(testString, emailPattern)) testString = "a@doe@mybad.ru" Console.WriteLine(testString & Space(3) & _ Regex.IsMatch(testString, emailPattern)) End Sub
End Class
</source>
Regex.Matches
<source lang="vbnet">
Imports System.Text.RegularExpressions Public Class Tester
Public Shared Sub Main Dim source As String = "This 7. several 0.9 numbers" Dim parser As New Regex( _ "[-+]?([0-9]*\.)?[0-9]+([eE][-+]?[0-9]+)?") Dim sourceMatches As MatchCollection = parser.Matches(source) Dim result As Double = CDbl(sourceMatches(1).Value) Console.WriteLine(result.ToString()) End Sub
End Class
</source>