正则表达式

bifengxia

正则表达式作为验证数字串匹配的强大武器,越来越受到程序员的青睐.

几乎现在的所有高级语言或脚本程序都支持正则表达式的应用.

但VBA方面,涉及此问题资料好像相对较少,笔锋侠通过一些搜索,现整理出一点简单的应用.

供各位参考.

w6T8gYyp.rar (10.03 KB, 下载次数: 129)

2008-8-29 15:46 上传

点击文件名下载附件
正则表达式

 

 

 

' *******************************************************************************************
' EXCEL VBA 中正则表达式的应用
' 准备工作(引用Microsoft VBScript Regular Expressions 5.5):
' 在VBE窗口中,工具->引用->找到"Microsoft VBScript Regular Expressions 5.5"打勾->确定
'
' 下面是一段测试代码,主要目的是为了说明如何在VBA中使用正则表达式.
'要了解更多关于正则表达式的应用,请查阅相关文档.以下网页供参考:
' http://soulogic.com/doc/RegularExpressions/
' http://www.boyd.cn/info_Show.asp?ArticleID=1381&ArticlePage=1
' http://www.x-force.cn/study/article.asp?id=19
'
' 笔锋侠
' 2008-08-19
' *******************************************************************************************

Sub 正则应用范例()
Dim strOld As String, strNew As String
Dim strSearch1 As String, strSearch2 As String
Dim reg As New VBScript_RegExp_55.RegExp

strOld = "This is a test."
strNew = ""
strSearch1 = "t"
strSearch2 = "[ste]"

'一.简单应用
reg.Pattern = strSearch1
reg.IgnoreCase = True '不区分大小写
' 1. 查找
If reg.test(strOld) Then
MsgBox "1.原字符串:" & strOld & "中,包含字符串:" & strSearch1
End If

' 2. 替换
strNew = reg.Replace(strOld, "")
MsgBox "2.被替换后的字符串为:" & strNew


'二.更为复杂的的应用
reg.Pattern = strSearch2

' 3. 查找
If reg.test(strOld) Then
MsgBox "3.原字符串:" & strOld & "中,包含字符串:" & strSearch2 & "中的任何一个字符"
End If

' 4. 替换
strNew = reg.Replace(strOld, "$1")
MsgBox "4.被替换后的字符串为:" & strNew

' 5. 匹配格式(只允许大小写英文字母)
reg.Pattern = "^[a-zA-Z]*$"
If reg.test("accDDggh7") Then
MsgBox "5. 数据合法!"
Else
MsgBox "5. 数据非法(只允许大小写英文字母及逗号)!"
End If


' 6. 匹配格式(只允许大小写英文字母,阿拉伯数字及逗号)
reg.Pattern = "^[a-zA-Z0-9,]*$"
If reg.test("a,bc77,d,ef,") Then
MsgBox "6. 数据合法!"
Else
MsgBox "6. 数据非法(只允许大小写英文字母,阿拉伯数字及逗号)!"
End If
End Sub

' 提取字符串
Sub test()
Dim strOld As String, strNew As String
Dim myRegExp As RegExp
Set myRegExp = New RegExp

myRegExp.Global = True
strOld = "<div class=""dashed"">编辑推荐</div>"
myRegExp.Pattern = "(?:<div class=""dashed"">)(.+)(??:</div>))"
strNew = myRegExp.Replace(strOld, "$1")
MsgBox strNew
End Sub

 

 

yvhanym

看看

不看不看

下来看看[em01]

雪舞霓裳

谢谢BB！

chunfengyidu

谢谢楼主

faithg

实在是太感谢了！！！最近一直在找这方面的资料

netreg

谢谢楼主

gazkc

实在是太感谢了！！！最近一直在收集找这方面的资料。学习ing