Início / coding / Perguntas / 77555049
Accepted
hope
Asked: 2023-11-27 15:08:29 +0800 CST

Combine três funções em uma função para remover todos os espaços possíveis em torno de um caractere específico e de um(s) dígito(s)

  • 772

Obs: Antes de postar minha dúvida,
recebi uma sugestão de que este Link para responder minha dúvida, verifiquei e não funciona .

Porque há mais de um valor de entrada do usuário em nosso sistema de banco de dados (posteriormente exportado para uma planilha Excel).
Portanto, a entrada manual do padrão de multiplicação pelos usuários é diferente a cada vez.
exemplo 1: "3 x2"
exemplo 2: "4x 8"
exemplo 3: "6 x 10"
como você notará, pode haver um espaço entre o caractere "X" e os dígitos em uma posição diferente a cada vez.
Como minha experiência com expressões regulares está nos estágios iniciais,
criei três funções para lidar com cada exemplo acima e elas funcionam respectivamente corretamente como deveriam.
Porém, procuro combinar essas funções em uma função (se for possível) para facilitar o uso.
Desde já, muito obrigado pela sua ajuda.

Valores Atuais resultado esperado
Por último a injeção 3x2 Última injeção 3x2
Última injeção 4x8 Última injeção 4x8
Última injeção 6 x 10 Última injeção 6x10 
Function Remove_Space_between_Digit_X(ByVal str As String) As String
   Static reg As New RegExp
     reg.Global = True
      reg.IgnoreCase = True
      
       reg.Pattern = "(\s[0-9]+)(\s)(x)"
       
    Remove_Space_between_Digit_X = re.Replace(str, "$1$3")
End Function

Function Remove_Space_between_X_Digit(ByVal str As String) As String
   Static reg As New RegExp
     reg.Global = True
      reg.IgnoreCase = True
      
       reg.Pattern = "(x)(\s)([0-9]+)(\s)"
       
    Remove_Space_between_X_Digit = reg.Replace(str, "$1$3$4")
End Function

Function Remove_Space_around_X_Digit(ByVal str As String) As String
   Static reg As New RegExp
     reg.Global = True
      reg.IgnoreCase = True
      
       reg.Pattern = "([0-9])+(\s)(x)(\s)([0-9]+)(\s)"
       
    Remove_Space_around_X_Digit = reg.Replace(str, "$1$3$5$6")
End Function
regex

3 respostas

  1. Best Answer

    Você pode usar esta regex:

    (\d)\s*x\s*(\d)

    que irá corresponder:

    • (\d): um dígito (capturado no grupo 1)
    • \s*x\s*: um xcercado por um certo número de espaços
    • (\d): um dígito (capturado no grupo 2)

    e substitua-o por $1x$2para remover quaisquer espaços na string.

    Demonstração em regex101

    Em VBA:

    Function Remove_Space_around_X(ByVal str As String) As String
    Static reg As New RegExp
    reg.Global = True
    reg.IgnoreCase = True 
    reg.Pattern = "(\d)\s*x\s*(\d)"
       
    Remove_Space_around_X = reg.Replace(str, "$1x$2")
End Function

    Observação

    No interesse da simplicidade, o regex não é tão rigoroso quanto poderia ser; também corresponderá a algo como a4 x 3b. Se isso puder ser um problema, use:

    \b(\d+)\s*x\s*(\d+)\b

    que usa quebras de palavras e corresponde a vários dígitos para garantir que corresponda apenas a multiplicações de números.

    Demonstração Regex em regex101

    • 1
    • Com base nos seus dados de amostra, isso pode ser feito com uma UDF
    • Apoie outros operadores, por exemplo. 4 * 5ou 2 + 4. Na 2ª opção, você precisa modificar aKeyconforme necessário.
    Function Remove_Space(ByVal sStr As String) As String
    Static reg As New RegExp
    Dim objmatch As Object
    reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "\d+\D+\d+"
    Set objmatch = reg.Execute(sStr)
    If objmatch.Count > 0 Then
        sStr = Replace(sStr, objmatch(0), Replace(objmatch(0), " ", ""))
    End If
    Remove_Space = sStr
End Function
    • Se xfor o único operador entre dois números, você pode fazer isso sem RegExp.
    Function RemoveSpace(ByVal sTxt As String) As String
    Dim aKey, i As Long
    aKey = Array(" x ", " x", "x ")
    For i = 0 To UBound(aKey)
        sTxt = Replace(sTxt, aKey(i), "x", , , vbTextCompare)
    Next
    RemoveSpace = sTxt
End Function
    • 0

  3. Se bem entendi, você quer pegar:
    quaisquer dois números com apenas um único "x" e zero ou mais espaços ao redor do "x"

    ...e converta isso para:
    os dois números originais com um "x" explícito entre eles.

    Esta expressão regular corresponde a todos os casos que você forneceu, bem como a algo como "7x23" (sem espaços).

    ([0-9]+) *x *([0-9]+)

    Significado:

    • "([0-9]+)" é o primeiro número (uma sequência de numerais de 0 a 9)
    • "*" significa zero ou mais espaços literais
    • "x" significa um x literal
    • "*" significa zero ou mais espaços literais
    • "([0-9]+)" é o segundo número (uma sequência de numerais de 0 a 9)

    O padrão regex de substituição é simplesmente:

    \1 x \2

    Significado:

    • "\1" o primeiro agrupamento de regex (aa regex entre parênteses)
    • "x" um literal <ESPAÇO>-x-<ESPAÇO>
    • "\2" o segundo agrupamento de regex (um regex entre parênteses)

    Com base no seu código de exemplo, presumo que sua string de substituição seria:

    "$1 x $2"

    --klode

    • 0

relate perguntas