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

目前还存在一个小问题，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 Thenrst = 1
Elserst = min(0)
End If
trans = rst
End FunctionSub test()
Call trans("2分43秒")
Call trans("43秒")
End Sub

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

Python爬虫实战 | (1) 爬取猫眼电影官网的TOP100电影榜单
在本篇博客中,我们将使用requests+正则表达式来爬取猫眼电影官网的TOP100电影榜单,获取每部电影的片名,主演,上映日期,评分和封面等内容. 打开猫眼Top100,分析URL的变化:发现Top ...
EXCEL VBA 使用正则表达式清洗替换数据
在EXCEL表内遇到有规律性的数据需要提取或者替换时,比如在数据中提取时间,身份证号码等,EXCEL内自带的查找替换就难以实现,我们可以利用VBA适用正则表达式去对数据进行匹配. 什么是正则表达式? ...
OpenLayers 官网例子的中文详解
当你希望实现某种功能的时候,即使你对 openlayers 几乎一窍不通,照着官网的例子做,也可以很快的实现想要的效果. 问题在于,官网的例子都是英文啊,不能很快定位到想要的效果是在哪个例子里面!!( ...
layer添加元素 openlayer_OpenLayers 官网例子的中文详解
当你希望实现某种功能的时候,即使你对 openlayers 几乎一窍不通,照着官网的例子做,也可以很快的实现想要的效果. 问题在于,官网的例子都是英文啊,不能很快定位到想要的效果是在哪个例子里面!!( ...
Excel·VBA自定义正则表达式函数、使用
目录正则表达式替换函数应用1,提取1个字母+10个数字应用2,中英文分割应用3,提取11位手机号应用4,指定文字替换应用5,提取最后一个括号的内容应用6,提取所有括号的内容应用7,提取 ...
小米官网搜索框部分详解
<!DOCTYPE html> <html> <head> <meta charset="utf-8" /> ...
python remi库官网_python库介绍-PySimpleGUI-简单的GUI开发工具
创建图形用户界面(GUI graphical user interface) 可能很困难.有许多不同的Python GUI工具包可供选择. 比如Tkinter,wxPython和PyQt(或PySid ...
联通132通话详单查询 js滚动表头原理分析
今天查了下我132手机的通话话费记录, 方法:初始你联通手机的密码,发送短信y977480x000000 到1063381234 来初始化查询的密码 977480换为你手机的后六位,000000换为你 ...
获取同花顺数据接口_简单介绍同花顺_数据获取方式（Excel VBA）
简单介绍同花顺_数据获取方式(Excel VBA) 2018-09-12 简单介绍数据获取方式(Excel VBA) 数据是量化的根本和原材料,数据的准确性非常重要.获得数据的方式各种各样,最小的单位 ...

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

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

最新文章

热门文章