Início / coding / Perguntas / 79568352
Accepted
hope
Asked: 2025-04-11 16:17:24 +0800 CST

Função Regex para corresponder a variantes irregulares de strings contendo um ou mais separadores entre cada caractere

  • 772

Estou procurando uma função regex que corresponda exatamente a essas variantes de "SA..." (SAC, SAD, SAE, SAP, SAW, SAAC, SAAN, SAAS, SABE, SABW ), mas sem diferenciar maiúsculas de minúsculas.
O problema é que pode haver um ou mais separadores (espaço, barra invertida /, ponto, hífen -) entre cada caractere de cada palavra, por exemplo, "S /AC", "SA.P", "S / AB W".
Acabei com o padrão abaixo; sim, funciona, mas é feio e muito longo!
Existe um melhor e mais compacto?

Option Explicit
Option Compare Text

Function MatchSAWord(ByVal inputText As String) As Boolean
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
   
    Dim sep As String, pat As String
   
    sep = "[ .\/-]*"
       
    pat = "\b(" & _
        "S" & sep & "A" & sep & "C" & "|" & _
        "S" & sep & "A" & sep & "D" & "|" & _
        "S" & sep & "A" & sep & "E" & "|" & _
        "S" & sep & "A" & sep & "P" & "|" & _
        "S" & sep & "A" & sep & "W" & "|" & _
        "S" & sep & "A" & sep & "A" & sep & "C" & "|" & _
        "S" & sep & "A" & sep & "A" & sep & "N" & "|" & _
        "S" & sep & "A" & sep & "A" & sep & "S" & "|" & _
        "S" & sep & "A" & sep & "B" & sep & "E" & "|" & _
        "S" & sep & "A" & sep & "B" & sep & "W" & _
        ")\b"
       
    With regex
        .Global = False
        .IgnoreCase = True
        .pattern = pat
    End With
    MatchSAWord = regex.Test(inputText)
End Function
regex

1 respostas

  1. Best Answer

    Você precisa fatorar seu padrão regex:

     pat = "\bS" & sep & "A" & sep & "(?:A" & sep & "[CNS]|B" & sep & "[EW]|[C-EPW])\b"

    Veja a demonstração do regex onde você pode testá-lo em suas strings de amostra.

    Basicamente, todas as alternativas são "mescladas" em uma regex TRIE aqui: começamos com o prefixo comum e então usamos ramificações para corresponder a todas as variações de sufixo esperadas.

    O padrão base aparece como \bSA(?:A[CNS]|B[EW]|[C-EPW])\b, que corresponde a um limite de palavra, o prefixo comum SA, Aseguido por C, Nou S, ou Bseguido por Eou W, ou C, D, E, Pou W, e então um limite de palavra.

    Para permitir um separador entre cada letra, basta inseri-lo e o padrão ficará como \bS[ ./-]*A[ ./-]*(?:A[ ./-]*[CNS]|B[ ./-]*[EW]|[C-EPW])\b.

    • 1

relate perguntas