用于搜索文件扩展名数组的正则表达式

Question

我正在使用此语法搜索一个文件扩展名，如何将其更改为搜索 2 个文件扩展名？

Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.pattern = ".mdb"
objRegExp.IgnoreCase = True

Answer 1

您可以使用竖线字符 | 来拆分两个可能的匹配值。例如，如果您想匹配 Access 数据库和 Excel 电子表格，您可以使用：

Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.pattern = "\.mdb$|\.xls$"
objRegExp.IgnoreCase = True

$ 表示必须在被检查的字符串末尾找到模式。 . 也将被视为特殊字符，因此您需要使用 \ 反斜杠对其进行转义。