日期编码文档的VBA正则表达式模式

Question

我已经开始从事一项新工作，事实证明，在一堆目录中，有一大堆完全无序，非标准化的文件名（手动完成的工作太多）。 最初，我的计划是使用一个简单的VBA脚本对前13个字符进行字符串比较，然后如果它们不匹配，则在前面放置一个具有理想日期格式（使用文档创建的日期）的字符串，但是然后我注意到已经存在几种模式，通过执行我的原始计划，将来我会在创建另一个问题（通过在理想字符串后面添加错误的日期代码）。 因此，经过研究，我意识到正则表达式模式应该是正确的方法。

我理想的起始格式是：“ yyyy.mm.dd-”（即“ 2014.11.20-”我试图创建第一个表达式来与此匹配，但到目前为止还算运气不好：

^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+

有人可以告诉我我要去哪里了吗？ 通过在线教程进行的搜索使我比起初时更加困惑。

从那里开始的计划是匹配目录中其他常见的日期格式（如下），并将其替换为“ ideal”，对能识别它们的正则表达式模式的任何帮助将不胜感激。

“” yymmdd“” yyyy mm dd-“” yyyymmdd“” yyyymmdd-“

我的计划是使用一个简单的IF vba函数，查找与该名称匹配的函数，并进行必要的VBA字符串操作以创建正确的标准格式。

例如，如果文件的当前名称是“ 141003 xxxxxx”，则将其替换为“ 2014.10.03-xxxxx”，依此类推。

非常感谢您的提前帮助。

Answer 1

在表达式中，您放置了由三个点分隔的四个数字组。 显然，日期只有带有两个点的三个数字组。 因此，第一个日期模式的正则表达式为：

^[0-9]{4}\.[0-9]{2}\.[0-9]{2}

演示： https : //regex101.com/r/vUigcj/1

请注意{4}和{2}量词分别需要精确地四位和两位数，而+量词提供的宽松的“一位或多位”条件则相反。

涵盖您列出的所有模式的更通用的正则表达式是

^(?:[0-9]{2})?[0-9]{2}[ .]?[0-9]{2}[ .]?[0-9]{2} (?:- )?

演示： https : //regex101.com/r/vUigcj/2

说明：

• ^ -字符串锚点的开始
• (?: -非捕获组开始
  • [0-9]{2} -年份的前两位数字
• ) -非捕获组的结尾
• ? -将此组设为可选（允许省略世纪数字）
• [0-9]{2} -一年的最后两位数字
• [ .] -空格或点日期分隔符
• ? -将此分隔符设为可选
• [0-9]{2} -月份的两位数
• [ .]? -另一个可选的日期分隔符
• [0-9]{2} -两位数字
• -空间（字面上）
• (?:- )? -可选地后跟破折号和空格

Answer 2

yyyy.mm.dd的格式，例如2014.11.20是：

(^[0-9]{4})(.)([0-9]{2})(.)([0-9]{2})

注意 ：进行RegEx培训和测试的好网站： RegEx101

Answer 3

这是一个示例VBA函数，可以满足您的所有需求：

Dim regEx As New RegExp

Function ReplaceDates(text As String, pattern As String, Optional centuryPrefix As String)
    Dim replacement As String
    Dim fullMatch As String

    With regEx
        .Global = False
        .MultiLine = True
        .IgnoreCase = False
        .pattern = pattern
    End With

    If regEx.test(text) Then
        Set matches = regEx.Execute(text)
        fullMatch = matches(0).Value
        replacement = Replace(text, fullMatch, centuryPrefix & matches(0).SubMatches(0) & "." & matches(0).SubMatches(1) & "." & matches(0).SubMatches(2) & " - ")
        ReplaceDates = replacement
    End If
End Function

Sub test()
    Dim pattern1 As String
    Dim pattern2 As String
    Dim pattern3 As String

    ' will match "140324 xxx"
    pattern1 = "^(\d{2})(\d{2})(\d{2})\s"
    ' will match "2014 03 24 - xxx"
    pattern2 = "^(\d{4})\s(\d{2})\s(\d{2})\s-\s"
    ' will match "20140324 xxx"
    pattern3 = "^(\d{4})(\d{2})(\d{2})\s"

    Debug.Print ReplaceDates("141024 xxxxxx ", pattern1, "20")
    Debug.Print ReplaceDates("2014 03 24 - xxxxxx ", pattern2)
    Debug.Print ReplaceDates("20140324 xxxxxx ", pattern3)
End Sub