正则表达式

正则表达式用例：

 

^/S+[a-z A-Z]$ 不能为空 不能有空格 只能是英文字母

 

/S{6,} 不能为空 六位以上

 

^/d+$ 不能有空格 不能非数字

 

(.*)(/.jpg|/.bmp)$ 只能是jpg和bmp格式

 

^/d{4}/-/d{1,2}-/d{1,2}$ 只能是2004-10-22格式

 

^0$ 至少选一项

 

^0{2,}$ 至少选两项

 

^[/s|/S]{20,}$ 不能为空 二十字以上

 

^/+?[a-z0-9](([-+.]|[_]+)?[a-z0-9]+)*@([a-z0-9]+(/.|/-))+[a-z]{2,6}$ 邮件格式

 

/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*([,;]/s*/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*)*  输入多个地址用逗号或空格分隔邮件

 

 

以下内容来自MSDN博客

匹配中文字符的正则表达式： [/u4e00-/u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了

匹配双字节字符(包括汉字在内)：[^/x00-/xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

匹配空白行的正则表达式：/n/s*/r
评注：可以用来删除空白行

匹配HTML标记的正则表达式：<(/S*?)[^>]*>.*?|<.*? />
评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力

匹配首尾空白字符的正则表达式：^/s*|/s*$
评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式

匹配Email地址的正则表达式：/w+([-+.]/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*
评注：表单验证时很实用

匹配网址URL的正则表达式：[a-zA-z]+://[^/s]*
评注：网上流传的版本功能很有限，上面这个基本可以满足需求

匹配帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$
评注：表单验证时很实用

匹配国内电话号码：/d{3}-/d{8}|/d{4}-/d{7}
评注：匹配形式如 0511-4405222 或 021-87888822

匹配腾讯QQ号：[1-9][0-9]{4,}
评注：腾讯QQ号从10000开始

匹配中国邮政编码：[1-9]/d{5}(?!/d)
评注：中国邮政编码为6位数字

匹配身份证：/d{15}|/d{18}
评注：中国的身份证为15位或18位

匹配ip地址：/d+/./d+/./d+/./d+
评注：提取ip地址时有用

 

以下代码为：C#.NET中使用正则表达式 替换字符串

 

using System; using System.Text.RegularExpressions; public class Example { public static void Main() { string pattern = "(Mr//.? |Mrs//.? |Miss |Ms//.? )"; string[] names = { "Mr. Henry Hunt", "Ms. Sara Samuels", "Abraham Adams", "Ms. Nicole Norris" }; foreach (string name in names) Console.WriteLine(Regex.Replace(name, pattern, String.Empty)); } } 

以下自己做的简单使用，不过是用VB6.0,是用以前要添加 引用 Microsoft VBScript Regular Expression Expression 5.5

主要实现的是输入内容为全数字怎字体颜色为黑色，全英文字母则为蓝色，其他情况则字体颜色为红色

'在模块级别中使用，强制显式声明模块中的所有变量，可以避免键入以有变量时拼错。 Option Explicit Dim strMyTxt As String Dim strMyChar As String Dim strColor As String Dim iLength As Integer Dim I As Integer Dim strRuleNum As String Dim strRuleChar As String Public Sub strInputCheck1() strMyTxt = txtCheckInput.Text If IsNumeric(strMyTxt) Then ' 是纯字母返回黑色字体 txtCheckInput.ForeColor = vbBlack Else iLength = Len(strMyTxt) For I = 1 To iLength strMyChar = Mid(strMyTxt, I, 1) ' strMyChar = UCase(MyMsg) ' 不是纯字母返回红色字体 If Not ((strMyChar >= "A" And strMyChar <= "Z") Or (strMyChar >= "a" And strMyChar <= "z")) Then strColor = vbRed Exit For ' 是纯字母返回蓝色字体 Else: strColor = vbBlue End If Next I txtCheckInput.ForeColor = strColor End If End Sub Public Sub strInputCheck2() strMyTxt = txtCheckInput.Text ' 全部由数字组成的字符串 strRuleNum = "^/d+$" ' 由26个英文字母组成的字符串 strRuleChar = "^[A-Za-z]+$" Dim re As RegExp Set re = New RegExp re.IgnoreCase = False Dim flag As Boolean ' 验证是不是全为数字 If Not flag Then re.Pattern = strRuleNum flag = re.Test(strMyTxt) If flag Then txtCheckInput.ForeColor = vbBlack End If End If ' 验证是不是全为字母 If Not flag Then re.Pattern = strRuleChar flag = re.Test(strMyTxt) If flag Then txtCheckInput.ForeColor = vbBlue End If End If ' 其他类型 If Not flag Then txtCheckInput.ForeColor = vbRed End If End Sub Private Sub txtCheckInput_Change() ' 方法1： ' strInputCheck1 ' 使用正则表达式 strInputCheck2 End Sub 

 

以下更实际的基础：

 

[abc] a, b, or c (简单类)  
[^abc] 除了a、b或c之外的任意 字符（求反）  
[a-zA-Z] a到z或A到Z ，包含（范围)  
[a-z-[bc]] a到z，除了b和c ： [ad-z]（减去）  
[a-z-[m-p]] a到z，除了m到 p： [a-lq-z]  
[a-z-[^def]] d, e, 或 f view plaincopy to clipboardprint?
预定义的字符类   
. 任意字符（也许能与行终止符匹配，也许不能）   
/d 数字: [0-9]   
/D 非数字: [^0-9]   
/s 空格符: [ /t/n/x0B/f/r]   
/S 非空格符: [^/s]   
/w 单词字符: [a-zA-Z_0-9]   
/W 非单词字符: [^/w]