Excel vba使用正则表达式处理联通官网导出的通话详单

最新推荐文章于 2022-11-05 19:45:01 发布

莫谈国事

最新推荐文章于 2022-11-05 19:45:01 发布

阅读量794

点赞数

本文链接：https://blog.csdn.net/zheng7yan/article/details/51055866

版权

目前还存在一个小问题，re.Pattern = "([0-9]*)\u5206"中的括号不管用，执行Execute之后的字符串仍然包含“分”这个字符，也就是\u5206。

Function trans(ltime As String)
Dim re As Object
Dim min As Object
Set re = CreateObject("VBScript.RegExp")
re.Global = True
re.Pattern = "([0-9]*)\u5206"
Set min = re.Execute(ltime)
If min.Count = 0 Then
    rst = 1
Else
    rst = min(0)
End If
trans = rst
End Function

Sub test()
Call trans("2分43秒")
Call trans("43秒")
End Sub