Как я могу извлечь текст, который не находится между двойными кавычками ("")? в превосходстве

Question

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

1. RM125 | RM250 | RMX250 | "RM 125" | "RM 250" |"RMX 250"

2. DR250 | DR350 | "DR 250" | "DR 350" | DR250S | DR250SE | DR350S | "DR250 S" | "DR250 SE" | "DR350 S"

3. RMZ250 | "RMZ 250" | "RM-Z 250" | "RMZ-250"

теперь я хочу извлечь только текст, который не находится в двойных кавычках ("")

например:

1. RM125 | RM250 | RMX250
2. DR250 | DR350 | DR250S | DR250SE | DR350S

Answer 1

РЕДАКТИРОВАТЬ Спасибо @PEH за указание на то, что мое регулярное выражение не исключало бы подстроки в кавычках, если бы они находились в первом месте (и поэтому им не предшествовал |).Мы должны сделать специальный случай для начальной подстроки в кавычках, изменив:

.Pattern = "^""[^""]+""\s*\||\|\s*""[^""]+""\s*"

, и я сделал это в приведенном ниже коде.

Вы можете использовать регулярные выражения, реализованные в VBA:

Function delQuotedStrings(S As String) As String
    With CreateObject("vbscript.regexp")
        .Pattern = "^""[^""]+""\s*\||\|\s*""[^""]+""\s*" ' changed from "\|\s*""[^""]+""\s*"
        .Global = True
        delQuotedStrings = .Replace(S, "")
    End With
End Function

напр.Данные в A1:

B1: =delQuotedStrings(A1)

ИЛИ можно использовать решение не-Regex:

Option Explicit
Function delQuotedStrings(S As String) As String
    Dim v, w, col As Collection, i As Long
Set col = New Collection
For Each v In Split(S, "|")
    If Not Left(Trim(v), 1) = """" Then _
        col.Add v
Next v

ReDim w(1 To col.Count)
For i = 1 To col.Count
    w(i) = col(i)
Next i

delQuotedStrings = Join(w, "|")

End Function

Объяснение регулярного выражения:

удалить цитируемые подстроки

\|\s*"[^"]+"\s*

• Совпадение символа «|» буквально \|
• Соответствует одному символу, который является «пробелом» (пробел ASCII, табуляция, перевод строки, возврат каретки, вертикальная табуляция, подача формы) \s*
  • Между нулямии неограниченное количество раз, столько раз, сколько возможно, отдача по мере необходимости (жадный) *
• Соответствует символу "" "буквально "
• Соответствует любому символу, который НЕ является "" " [^"]+
  • От одного до неограниченного количества раз, сколько возможно, возвращая какнеобходимо (жадный) +
• Совпадение букв "" "буквально "
• Соответствие одиночномусимвол, который является «пробел символter ”(пробел ASCII, табуляция, перевод строки, возврат каретки, вертикальная табуляция, подача формы) \s*
  • От нуля до неограниченного количества раз, сколько возможно, возвращая кактребуется (жадный) *

Создано с помощью RegexBuddy