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

原创于 2016-04-04 11:58:08 发布 · 873 阅读

CC 4.0 BY-SA版权

本文介绍如何使用VBScript中的正则表达式功能来移除字符串中的特定字符，例如“分”字。通过创建对象并设置正则表达式模式，实现对输入时间字符串的有效处理。

目前还存在一个小问题，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