VBA-正则表达式

最新推荐文章于 2025-02-07 08:53:35 发布

FCRED

最新推荐文章于 2025-02-07 08:53:35 发布

阅读量487

点赞数

本文链接：https://blog.csdn.net/FCRED/article/details/112260861

版权

Function extract_chinese(i As String) As String
'保留中文
Dim a As Object
Set a = CreateObject("VBscript.REGEXP")
a.Pattern = "[^\u4e00-\u9fa5]"
a.IgnoreCase = True
a.Global = True
extract_chinese = a.Replace(i, "")
Set a = Nothing
End Function
Function extract_number(i As String) As String
'保留数字
Dim a As Object
Set a = CreateObject("VBscript.REGEXP")
a.Pattern = "[^0-9]"
a.IgnoreCase = True
a.Global = True
extract_number = a.Replace(i, "")
Set a = Nothing
End Function
Function extract_letter(i As String) As String
'保留字母
Dim a As Object
Set a = CreateObject("VBscript.REGEXP")
a.Pattern = "[^A-Z^a-z]"
a.IgnoreCase = True
a.Global = True
extract_letter = a.Replace(i, "")
Set a = Nothing
End Function
Function extract_number_letter(i As String) As String
'只保留数字和字母的代码如下
Dim a As Object
Set a = CreateObject("VBscript.REGEXP")
a.Pattern = "[^A-Z^a-z^0-9]"
a.IgnoreCase = True
a.Global = True
extract_number_letter = a.Replace(i, "")
Set a = Nothing
End Function