RegEX VBA Split Method

Hi all,


Using Excel 2013.

Does VBA RegEx Engine have a split method?
I have not been able to find any documentation on it.

What would the pattern(s) be to split string like:
adsf@#$23.45
ghjkGHJ%&*45.8

So I end up with
adsf@#$ | 23.45
ghjkGHJ%&* | 45.8

Or will I need to pass the string to the RegEx function twice with 2 different patterns?

thx
w

I'm not aware of any native VBA regexing, but maybe they added it in 2013, I don't know of a split method of the vbscript regex either. You could do something like the below:

Function RegSplit(myString As String) As Variant

Static regex As Object
Dim g, l
If regex Is Nothing Then Set regex = CreateObject("vbscript.regexp")

Set regex = CreateObject("vbscript.regexp")
With regex
    .Pattern = "[0-9\.]*$"
  Set l = .Execute(myString)
End With

g = Split(myString, l(0))
g(1) = l(0)

RegSplit = g

End Function

Try this:

Function SplitLastNums(MyText As String) As String
Dim iPos As Integer
Dim arrRegEx

Dim regex As Object
Set regex = CreateObject("vbscript.regexp")

With regex
    .Pattern = "\d"
    Set arrRegEx = .Execute(MyText)

    If arrRegEx.Count > 0 Then
        iPos = arrRegEx(0).firstindex + 1
        SplitLastNums = Left(MyText, iPos - 1) & " | " & Right(MyText, Len(MyText) - iPos + 1)
    Else
        SplitLastNums = MyText
    End If
End With
End Function

Is that something you can work with?

function M_regexless(c00)
   M_regexless=split(replace(replace(c00,"$","|"),"*","|"),"|")

'   M_regexless=split(replace(replace(c00,"$","|"),"*","|"),"|")(0)
'   M_regexless=split(replace(replace(c00,"$","|"),"*","|"),"|")(1)
end function

Thanks all.

Thanks Ron,

The function woks great!

Thx
w