asp正则表达式使用详解

<br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Pattern = "ab+c" '定义正则表达式文字，你可以在这里替换正则表达式 <br>Dim myString <br>myString = "abcefg" '定义要匹配的字符串，可以进行替换 <br>Response.write(re.Execute(myString)(0)) '进行匹配测试，并写出结果 <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Pattern = "\w+" '定义正则表达式文字 <br>Dim myString <br>myString = "VBScript version 5.6 provides many new features." <br>'进行匹配测试，并写出是否匹配成功 <br>If re.Test(myString) Then <br>Response.write("匹配成功！") <br>Else <br>Response.write("匹配不成功！") <br>End If <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Pattern = "\s" '定义正则表达式文字，这里是匹配空白 <br>Dim myString <br>myString = "VBScript version 5.6 provides many new features." <br>myString = re.replace(myString, "-") '用-替换空白，返回替换后的字符串 <br>'写出结果 <br>Response.write(myString) <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Global = True <br>re.Pattern = "\s" '定义正则表达式文字，这里是匹配空白 <br>Dim myString <br>myString = "VBScript version 5.6 provides many new features." <br>myString = re.replace(myString, "-") '用-替换空白，返回替换后的字符串 <br>'写出结果 <br>Response.write(myString) <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Global = True <br>re.Pattern = "(\w+)-(\w+)" '定义正则表达式模式文字 <br>Dim myString <br>myString = "flip-flop" <br>myString = re.replace(myString, "$1-$2") <br>'$1表示第一个\w+，$2表示第二个\w+，第一个\w+匹配flip，第二个\w+匹配flop， <br>'所以$1-$2相当于flip-flop <br>'写出结果 <br>Response.write(myString) <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Global = True <br>re.Pattern = "(\S+)(\s+)(\S+)" '定义正则表达式模式文字 <br>Dim myString <br>myString = "flip flop" <br>myString = re.replace(myString, "$3$2$1") <br>'$1表示第一个\S+，$3表示第二个\S+，$2表示\s+， <br>'所以$3$2$1相当于flop flip <br>'写出结果 <br>Response.write(myString) <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>re.Global = True <br>re.Pattern = "\w+" '定义正则表达式模式文字 <br>Dim myString <br>myString = "VBScript version 5.6 provides many new features." <br>Set Matches = re.Execute(myString) '执行搜索，该集合用来保存匹配的结果 <br>'进行匹配测试，并写出结果 <br>'迭代Matches集合 <br>For Each Match in Matches <br>'写出结果 <br>Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />") <br>Next <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><% <br>Dim re <br>Set re = new RegExp '创建RegExp实例 <br>'re.Global = True 注释掉这一行 <br>re.Pattern = "\w+" '定义正则表达式模式文字 <br>Dim myString <br>myString = "VBScript version 5.6 provides many new features." <br>Set Matches = re.Execute(myString) '执行搜索，该集合用来保存匹配的结果 <br>'进行匹配测试，并写出结果 <br>'迭代Matches集合 <br>For Each Match in Matches <br>'写出结果 <br>Response.write(Match.FirstIndex & "-" & (Match.FirstIndex + Match.Length) & " " & Match.Value & "<br />") <br>Next <br>%> <br> <br><span><u></u></span> 代码如下:<pre class="brush:php;toolbar:false layui-box layui-code-view layui-code-notepad"><ol class="layui-code-ol"><li><br><%@language="vbscript" codepage="65001"%> <br><% <br>'创建一个连接，并且创建一个ADODB.Command用于操作 <br>Dim oCmd,oConn <br>Set oConn = Server.CreateObject("ADODB.Connection") <br>Set oCmd = Server.CreateObject("ADODB.Command") <br>oConn.ConnectionString = "Provider=SQLOLEDB;server = myhost;Initial Catalog = myDatabase;UID=sa;PWD=verysecret;" <br>oConn.Open <br>'这里创建一个SQL CREATE TABLE语句 <br>Set oCmd.ActiveConnection = oConn <br>oCmd.CommandText = "CREATE TABLE NewEmployees(firstName nvarchar (50),lastName nvarchar (50),EmpType nvarchar (50))" <br>'执行创建数据表操作 <br>oCmd.Execute <br>Response.Write("操作成功！") <br>%> <br><% <br>'显式的关闭连接 <br>oConn.Close <br>Set oConn = Nothing <br>%> <br></li><li>            </li><li>                                </li></ol></pre></li></ol></pre></li></ol></pre></li></ol></pre></li></ol></pre></li></ol></pre></li></ol></pre></li></ol></pre>