转自ExcelHome 具体哪个链接找不到了...VBA程序_取汉字/数字/大小写英文/...

最新推荐文章于 2024-05-31 07:30:00 发布

STR_Liang

最新推荐文章于 2024-05-31 07:30:00 发布

阅读量152

点赞数

分类专栏： VBA

原文链接：http://club.excelhome.net/

版权

VBA 专栏收录该内容

62 篇文章 26 订阅

订阅专栏

Function 取汉字(txt, Optional L = 1)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取汉字 = .Replace(txt, "")
    End With
End Function
Function 取英字(txt, Optional L = 2)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取英字 = .Replace(txt, "")
    End With
End Function
Function 取数字(txt, Optional L = 3)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取数字 = .Replace(txt, "")
    End With
End Function
Function 取小写英字(txt, Optional L = 4)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取小写英字 = .Replace(txt, "")
    End With
End Function
Function 取大写英字(txt, Optional L = 5)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取大写英字 = .Replace(txt, "")
    End With
End Function
Function 取英数字(txt, Optional L = 6)
    Set reg = CreateObject("VBScript.RegExp")
    pt = Choose(L, "\w", "[^a-zA-Z]", "\D", "[^a-z]", "[^A-Z]", "\W")
    With reg
        .Global = True
        .Pattern = pt
        取英数字 = .Replace(txt, "")
    End With
End Function