匹配字符串中的第二个日期

Question

您能否提供有关用于匹配电子邮件中以下日期格式的 VBA 脚本的建议。

开始：23.06.2017 00:00:00（CEST）22.06.2017 22:00（格林威治标准时间）

注意：还有另一个日期。我只需匹配粗体即可将其导出到 Excel。

Set SD = CreateObject("vbscript.regexp")

With SD.Pattern = "((Start:*\s*\s*[\d-\.]*\s*\s*\s*[\d-\.]*))"
    .Global = False
    .IgnoreCase = False
End With

If SD.test(sText) Then
    Set D1 = SD.Execute(sText)
    For Each D In D1
        vText1 = Trim(D.SubMatches(1))
    Next
End If
xlSheet.Range("C" & rCount) = vText1

Answer 1

使用这个正则表达式：[0-9]{2}\.[0-9]{2}\.[0-9]{4}\s[0-9]{2}\:[0-9]{2}(?=\s\(GMT\))

这是一个工作示例。 RegexStorm.net

第一部分是数字的集合，最后一部分说后面必须跟一个空格和（GMT）。

这是一个指向 VB.Net 示例的链接，用于获取日期/时间字符串。您需要将其转换为 VBA。

.Net Fiddle