如何使用 RegEx 确定变量是否包含指定的字符串

Question

我如何编写一个条件，将 Recipient.AdressEntry 例如与使用 RegEx 的以下字符串“I351”进行比较？

这是我的 If 条件，它有效，但被硬编码到每个已知的电子邮件地址。

For Each recip In recips
    If recip.AddressEntry = "Dov John, I351" Then
        objMsg.To = "example@mail.domain"
        objMsg.CC = recip.Address
        objMsg.Subject = Msg.Subject
        objMsg.Body = Msg.Body
        objMsg.Send
    End If
Next

我需要此条件的原因是电子邮件可能包含我团队的几位同事之一和另一个团队的一位或多位同事。我同事的 AdressEntry 以 I351 结尾，所以我会检查这封电子邮件是否包含我的一位队友。

For Each recip In recips
    If (recip.AddressEntry = "Dov John, I351" _
          Or recip.AddressEntry = "Vod Nohj, I351") Then
        objMsg.To = "example@mail.domain"
        objMsg.CC = recip.Address
        objMsg.Subject = Msg.Subject
        objMsg.Body = Msg.Body
        objMsg.Send
    End If
Next

Answer 1

您仍然没有准确地说明您要用于匹配的条件是什么，所以我会尽力而为：

• 如果您只是想检查字符串是否以“I351”结尾，则不需要正则表达式，您可以使用如下内容：

  If recip.AddressEntry Like "*I351" Then
      ' ...
  End If
  

• 如果您想检查字符串是否遵循这种格式"LastName FirstName, I351"，您可以使用正则表达式来实现，方法如下：

  Dim regEx As New RegExp
  regEx.Pattern = "^\w+\s\w+,\sI351$"
  If regEx.Test(recip.AddressEntry) Then
      ' ...
  End If
  

  正则表达式模式的解释：

  ' ^      Asserts position at the start of the string.
  ' \w     Matches any word character.
  ' +      Matches between one and unlimited times.
  ' \s     Matches a whitespace character.
  ' \w+    Same as above.
  ' ,      Matches the character `,` literally.
  ' \s     Matches a whitespace character.
  ' I351   Matches the string `I351` literally.
  ' $      Asserts position at the end of the string.
  

  Try it online.

希望对您有所帮助。