主页 / user-22984309

hope's questions

Martin Hope
hope
Asked: 2025-04-11 16:17:24 +0800 CST
  • 5

我试图用正则表达式精确匹配“SA..”的这些变体（SAC、SAD、SAE、SAP、SAW、SAAC、SAAN、SAAS、SABE、SABW），但不区分大小写。
问题是每个单词的每个字符之间可能存在一个或多个分隔符（空格、反斜杠 /、点 . 、连字符 -），例如“ S /AC”、“SA.P”、“S / AB W”。
我最终得到了下面的模式，是的，它有效，但它很丑而且很长！：
有没有更好更紧凑的模式？

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
Martin Hope
hope
Asked: 2023-11-27 15:08:29 +0800 CST
  • 6

注意：在我发布问题之前，
我收到一个建议，该链接可以回答我的问题，我已经检查过它，但它没有。

因为我们的数据库系统上有多个用户输入值（稍后导出到 Excel 电子表格中）。
因此，用户每次手动输入的乘法模式都会不同。
示例 1： “3 x2”
示例 2： “4x 8”
示例 3： “6 x 10”
您会注意到，“X”字符和每次不同位置的数字之间可能有一个空格。
因为我对正则表达式的专业知识还处于初级阶段，所以
我创建了三个函数来处理上面的每个示例，并且它们分别正常工作。
但是，我寻求将这些功能合并为一个功能（如果可能的话）以便于使用。
预先，非常感谢您的帮助。

当前值 预期结果
最后进行 3 x2 注射 最后 3x2 注射
最后 4x 8 注射 最后 4x8 注射
最后 6 x 10 次注射 最后 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