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)
  Else
    x(0) = strFN
    x(1) = strFN
  End If
   
    RegexpSplit = x() ''return value
   
  Set RegEx = Nothing
 
End Function

Comments

Popular posts from this blog

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

Organization and management of data in Revit across omniclass, Masterformat, Uniclass, and Uniformat