我正在使用Excel中的VBA正则表达式替换格式不正确的日期字符串(以及其他项目)。
我希望替换掉那些缺少破折号分隔符的正确格式为YYYY-MMM-DD的日期字符串,例如:
2014,APRIL,04 or
2014.Apr,04 or
2014/Apr-04
我希望它们的格式可以像这两种之一:
2014-Apr-04
2014-April-04
(即保留提供的年、月、日元素,但仅将分隔符替换为破折号,而不是逗号、句点或其他奇怪字符)
我目前拥有的代码是:
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
With RE
.Global = False ' Several occurrence to be found
.IgnoreCase = True
.Pattern = "(((19|20)[0-9]{2})[, /.]([a-zA-Z]+)[, /.](0[1-9]|[12][0-9]|3[01])[, /.])"
End With
Dim ReplacePattern As String
ReplacePattern = "$1-$2-$3"
Dim match As Boolean
match = RE.Test(LogEntryTxt)
LogEntryTxt = RE.Replace(LogEntryTxt, ReplacePattern)
但似乎替换并不正确。有人能帮忙吗?我尝试了研究命名组、编号组等,但是我尝试的都没有完成它。