利用正则表达式提取字符串里的汉字-叶海峰
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


利用正则表达式提取字符串里的汉字

发表时间:2013/4/19 9:30:36 评论(3) 浏览(22312)  评论 | 加入收藏 | 复制
   
摘 要:利用正则表达式提取字符串里的汉字
正 文:

Function RegExpStr(str As String, Optional strType As Byte = 1) As String
    Dim objRegExp As Object
    Set objRegExp = CreateObject("VBSCRIPT.REGEXP")
    With objRegExp
        .Global = True
        Select Case strType
        Case 1    '只返回汉字
            .Pattern = "[^\u4e00-\u9fa5]"
        Case 2    '返回除汉字外
            .Pattern = "[\u4e00-\u9fa5]"
        Case 3  '只返回英文字母,不分大小写
            .Pattern = "[^A-Za-z]"
        Case 4  '只返回大写英文字母
            .Pattern = "[^A-Z]"
        Case 5  '只返回小写英文字母
            .Pattern = "[^a-z]"
        Case 6    '返回指定的标点符号
            .Pattern = "[^-?{[|#$%@^&*()+-`%,./';:~!\\d+$]"
        Case 7
            .Pattern = "\d"    '返回除数字外文本
        Case 8
            .Pattern = "[^\d]"    '只返回数字
        Case 9   '数字并包含小数点
            .Pattern = "[^\d.]"
        End Select
        RegExpStr = .Replace(str, "")
    End With
End Function


Sub test()
MsgBox RegExpStr("我Wo你1235/?他;p-03{]*&\YT人r", 1)
End Sub


Access软件网交流QQ群(群号:198465573)
 
 相关文章
正则表达式学习笔记  【jimcloudy整理  2007/11/21】
17种正则表达式  【UMVSOFT整理  2008/3/27】
正则表达式教程(一):正则表达式简介  【friendship  2008/4/4】
在 Microsoft Office 中使用正则表达式  【fans  2008/7/22】
【PDF教程】正则表达式30分钟入门教程  【收藏整理  2011/10/25】
【Access小品】向朱亦文老师致敬--正则表达式解析字符串示例  【煮江品茶  2013/1/27】
【Access小品】继往开来--用正则表达式提取信息示例  【煮江品茶  2013/3/3】
【Access源码示例】Access正则采集网页数据  【漏蛧尐魚℡  2013/4/18】
常见问答
技术分类
相关资源
文章搜索
关于作者

叶海峰

文章分类

文章存档

友情链接