REGEXP for splitting filename lie "99.99.99-foo bar is good" to "99.99.99" and the rest of it... for hortening up filepaths in shortcuts

Sub testregexp()
Dim x
x = RegexpSplit("99.01.02-foo bar test")
    Debug.Print x(0)
End Sub
Function RegexpSplit(strFN As String) ''returns array of 2 items matching '###.###...' and the remainder

  Dim rgq As String
  rgq = "((?:\d+\.{0,1}){1,})(.*)"

  Dim RegEx As New RegExp
  Set RegEx = CreateObject("vbscript.regexp")
  RegEx.Pattern = rgq
  RegEx.IgnoreCase = True
  Dim m As MatchCollection
  Set m = RegEx.Execute(strFN)
  Dim x(1)
  If m.Item(0).SubMatches.count > 0 Then ''values weere found to match 2 subexpressions
    x(0) = m.Item(0).SubMatches.Item(0)
    x(1) = m.Item(0).SubMatches.Item(1)
    x(0) = strFN
    x(1) = strFN
  End If
    RegexpSplit = x() ''return value
  Set RegEx = Nothing
End Function


Popular posts from this blog

Revit area plans adding new types and references (Gross and rentable)

Revit Floor patterns and materials