Function IsValidEmail(strIn As String) As Boolean
' Return true if strIn is in valid e-mail format.
Return Regex.IsMatch(strIn, ("^([w-.]+)@(([[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.)|
1.
2.
3.
4.
5.
(([w-]+.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(]?)$")
End Function
1.
2.
3.
C#代码示例
bool IsValidEmail(string strIn)
{
// Return true if strIn is in valid e-mail format.
return Regex.IsMatch(strIn, @"^([w-.]+)@(([[0-9]{1,3}.[0-9]
{1,3}.[0-9]{1,3}.)|(([w-]+.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(]?)$");
}
Function CleanInput(strIn As String) As String
' Replace invalid characters with empty strings.
Return Regex.Replace(strIn, "[^w.@-]", "")
End Function
Function MDYToDMY(input As String) As String
Return Regex.Replace(input, _
"b(?d{1,2})/(?d{1,2})/(?d{2,4})b", _
"${day}-${month}-${year}")
End Function
Function Extension(url As String) As String
Dim r As New Regex("^(?w+)://[^/]+?(?:d+)?/", _
RegexOptions.Compiled)
Return r.Match(url).Result("${proto}${port}")
End Function
1.
2.
3.
4.
5.
6.
7.
8.
9.
C#代码示例
String Extension(String url)
{
Regex r = new Regex(@"^(?w+)://[^/]+?(?:d+)?/",
RegexOptions.Compiled);
return r.Match(url).Result("${proto}${port}");
}