Разработка регулярного выражения для извлечения артикулов товаров

[Meta2]

Всем доброго дня!

Прошу помощи в создании регулярного выражения для разбора массива строк с артикулами товаров, примерно такого вида:
A2J74ES#ACB
XT335EA-B21
QB056EA#ACB_

От регулярного выражения требуется:
1. Пропускать строки, похожие на указанные (см. выше)
2. В случае, если строка оканчивается на символы "_DEMO", "_NC1", "_NC2", выражение должно генерировать пустую строку.

A2J74ES#ACB -> A2J74ES#ACB
XT335EA-B21 -> XT335EA-B21
QB056EA#ACB_ -> QB056EA#ACB_
A2J74ES#ACB_DEMO -> ""
A2J74ES#ACB_NC1 -> ""

3. Если строка содержит символы "->", выражение также должно возвращать пустую строку.

[doober]

Вот моя любимая страница
Творите.

[Sasha_Smirnov]

Теперь, doober, и не только ваша.

В документе Word искомые строки пожирает мой

Sub Чистильщик()
Dim k, s
    Selection.HomeKey wdStory ' курсор - в начало док. Word
    'заменим сначала все разрывы строк на знак абзаца
    Selection.Find _
    .Execute "^l", replacewith:="^p", Replace:=wdReplaceAll
    
    With ActiveDocument.Paragraphs 'идём по строкам, они же абзацы
        For k = 1 To .Count
            With .Item(k).Range 'работаем с k-й строкой
    '        .Select 'это выделение абзаца k; для пошаговых испытаний
            s = .Text 'текст очередного абзаца
                
                If InStr(s, "_DEMO") Then .Text = Chr(13) 'делаем пустую строку* (абзац)
                If InStr(s, "_NC1") Then .Text = Chr(13)
                If InStr(s, "_NC2") Then .Text = Chr(13)
                If InStr(s, "->") Then .Text = Chr(13)
                If InStr(s, "- >") Then .Text = Chr(13) 'на случай лишнего пробела
            '*если вообще удалять строку (убирать абзац) - сложнее выход из цикла
            End With
        Next
    End With
End Sub

Я буквально за 40 минут набил и отладил, так что не высший класс ☺☻☺

[Meta2]

Сообщение от Sasha_Smirnov

[поскипано]
...Я буквально за 40 минут набил и отладил, так что не высший класс

Спасибо за помощь, но это, знаете ли, понятно... Пройтись по строкам, потом сравнить их с неким шаблоном, отбросить те, которые не нужны. Это очень просто и реализуется хоть на чём.

Ладно, буду ковырять регэксп...

[Sasha_Smirnov]

Ладно, вернусь с БАМа... тоже вас удивлю!

[Казанский]

От регулярного выражения требуется:
1. Пропускать строки, похожие на указанные (см. выше)
2. В случае, если строка оканчивается на символы "_DEMO", "_NC1", "_NC2", выражение должно генерировать пустую строку.

Спасибо за помощь, но это, знаете ли, понятно... Ладно, буду ковырять регэксп...

RegExp не может сам по себе "пропускать" и "генерировать". Он может:
- Находить вхождения по шаблону в тексте (метод Execute);
- Проверять текст на вхождение шаблона (метод Test);
- Заменять вхождения шаблона на заданную строку (метод Replace).

В данном случае, когда строки-критерии четко определены, применение RegExp не дает никаких преимуществ.