Discuz教程网

1314学习网»站长论坛 › 站长交流区 › 技术杂谈 › asp正则表达式使用详解
返回列表 发新帖

asp正则表达式使用详解

[复制链接]
authicon dly 发表于 2011-9-8 20:20:54 | 显示全部楼层 |阅读模式

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




上一篇：用SQL批量插入数据的存储过程
下一篇：asp采集HTML内容常用代码,详讲正则采集
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 18:26

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表