División de cadenas en VBA usando RegEx

excel string-split

Question

Soy nuevo en VBA y me gustaría buscar ayuda con respecto al uso de RegEx y espero que de alguna manera pueda aclararme sobre lo que estoy haciendo mal. Actualmente estoy tratando de dividir una fecha en su fecha individual, mes y año, y los posibles delimitadores incluyen ",", "-" y "/".

Function formattedDate(inputDate As String) As String

    Dim dateString As String
    Dim dateStringArray() As String
    Dim day As Integer
    Dim month As String
    Dim year As Integer
    Dim assembledDate As String
    Dim monthNum As Integer
    Dim tempArray() As String
    Dim pattern As String()
    Dim RegEx As Object

    dateString = inputDate
    Set RegEx = CreateObject("VBScript.RegExp")

    pattern = "(/)|(,)|(-)"
    dateStringArray() = RegEx.Split(dateString, pattern)

    '' .... code continues

Esto es lo que estoy haciendo actualmente. Sin embargo, parece haber algo mal durante la función RegEx.Split, ya que parece hacer que mis códigos se bloqueen y no se procesen más.

Para confirmar, hice algo simple:

MsgBox("Hi")
pattern = "(/)|(,)|(-)"
dateStringArray() = RegEx.Split(dateString, pattern)
MsgBox("Bye")

El msgbox "Hola" aparece, pero el msgbox "Bye" nunca sale, y los códigos más abajo no parecen ser eliminados en absoluto, lo que llevó a sospechar que RegEx.Split está causando que se atasque.

¿Puedo verificar si realmente estoy usando RegEx.Split de la manera correcta? Según MSDN here , Split (String, String) también devuelve una matriz de cadenas.

¡Gracias!

Editar : Estoy tratando de no explorar la función CDate () ya que estoy tratando de no depender de la configuración regional de la computadora del usuario.

Answer 1

Citando un ejemplo de la documentación de VbScript Regexp: https://msdn.microsoft.com/en-us/library/y27d2s18%28v=vs.84%29.aspx

Function SubMatchTest(inpStr)
    Dim retStr
    Dim oRe, oMatch, oMatches
    Set oRe = New RegExp
    '' Look for an e-mail address (not a perfect RegExp)
    oRe.Pattern = "(/w+)@(/w+)/.(/w+)"
    '' Get the Matches collection
    Set oMatches = oRe.Execute(inpStr)
    '' Get the first item in the Matches collection
    Set oMatch = oMatches(0)
    '' Create the results string.
    '' The Match object is the entire match - [email protected]
    retStr = "Email address is: " & oMatch & vbNewLine
    '' Get the sub-matched parts of the address.
    retStr = retStr & "Email alias is: " & oMatch.SubMatches(0)  '' dragon
    retStr = retStr & vbNewLine
    retStr = retStr & "Organization is: " & oMatch.SubMatches(1)    '' xyzzy
    SubMatchTest = retStr
End Function

Para probar, llame al:

MsgBox(SubMatchTest("Please send mail to [email protected]. Thanks!"))

En resumen, necesita que su Patrón coincida con las diversas partes que desea extraer, con los separadores intermedios, tal vez algo como:

"(/d+)[/-,](/d+)[/-,](/d+)"

Todo estará en oMatch, mientras que los números (/ d) terminarán en oMatch.SubMatches (0) a oMatch.SubMatches (2).

Answer 2

Para dividir una cadena con una expresión regular en VBA:

Public Function SplitRe(Text As String, Pattern As String, Optional IgnoreCase As Boolean) As String()
    Static re As Object

    If re Is Nothing Then
        Set re = CreateObject("VBScript.RegExp")
        re.Global = True
        re.MultiLine = True
    End If

    re.IgnoreCase = IgnoreCase
    re.Pattern = Pattern
    SplitRe = Strings.Split(re.Replace(text, ChrW(-1)), ChrW(-1))
End Function

Ejemplo de uso:

Dim v
v = SplitRe("a,b/c;d", "[,;/]")