Исключить некоторые слова из регулярного выражения

Question

У меня есть функция, которая вставляет пробел после таких символов, как: / -

  Private Function formatColon(oldString As String) As String

  Dim reg As New RegExp: reg.Global = True: reg.Pattern = "(\D:|\D/|\D-)"
  Dim newString As String: newString = reg.Replace(oldString, "$1 ")
  formatColon = Replace(Replace(Replace(newString, ":  ", ": "), "/  ", "/ "), "-  ", "- ")

  End Function

Код легко исключает даты. Я хочу исключить некоторые специфические строки, такие как 'w / d'. Есть ли способ?

до abc/abc/15/06/2017 ref:123243-11 ref-111 w/d

после abc/ abc/ 15/06/2017 ref: 123243-11 ref- 111 w/ d

я хочу исключить последние w / d

Answer 1

Вы можете использовать (?!w/d) lookahead, чтобы избежать совпадения w/d с вашим шаблоном:

Dim oldString As String, newString As String
Dim reg As New RegExp
With reg
 .Global = True
 .Pattern = "(?!w/d)\D[:/-]"
End With
oldString = "abc/abc/15/06/2017 ref:123243-11 ref-111 w/d"
newString = reg.Replace(oldString, "$& ")
Debug.Print newString

См. Демонстрационную версию regex .

Детали шаблона

• (?!w/d) - местоположение, за которым не следует w/d
• \D - любой нецифровый символ
• [:/-] - :, / или - char.

Обратная ссылка $& относится ко всему совпадению из шаблона замены, нет необходимости заключать весь шаблон в круглые скобки.

Answer 2

Вот еще одно решение.

^/(?!ignoreme$)(?!ignoreme2$)[a-z0-9]+$