网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,067贴子：66,771
  • 2回复贴，共1页

求助Vba 正则

请教 老师如何通过正则把3.7 转换为3月7日 3.7字符串在前10个字符里边，前10个字符无其他数字。但3.7不能确定在所说的前10个字符的首位。多谢了。


Sub TestReplace()
Dim ss, re, rv
ss = "前面无数3.17后面也不少"
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "(\d{1,2})\.(\d{1,2})"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss, "$1月$2日")
MsgBox rv
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: