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))