split counting

[ksilenio]

Hi to everyone . I have a string like "String=Stri1-Stri2-Stri3" . I use the split (String,"-") and i have 3 strings, now, is there any method to get the number (for the example the number is 3) of the substrings from the split command?
Regards Kostas

[Paul_Hossler]

Option Explicit


Sub test()
    Dim s As String
    Dim v As Variant
    
    s = "Stri1-Stri2-Stri3"
    v = Split(s, "-")
    
    'sometimes people have Option Base 1 set, so this is safest way
    MsgBox UBound(v) - LBound(v) + 1
    


End Sub

[snb]

Sub M_snb()
   msgbox ubound(split("String=Stri1-Stri2-Stri3","-"))+1
End Sub

[ksilenio]

Thank you very much for your answers

[jolivanes]

What doe you expect the answer to be if you have a string like "Stri7-Stri8-Stri9"? 3 or 9?
I understand it different.

Dim str As String
str = "Stri1-Stri2-Stri3"
MsgBox (Mid(Split(str, "-")(2), 5))