COUNT value in string var

[sal21]

i just have myvar="8-56-7-1254-88-6"

How to count value between "-"

In my case are 6

[ChrisGreaves]

How to count value between "-"

Count the number of "-", and then add 1 to that result.

(later) If you write this as a Function, include the delimiter (in this case the hyphen character) to make the function generally available for any delimited strings.

(later still) Your function could have a multi-character string as the delimiter parameter. This would let you distinguish between " - " and "-" as delimiters.

Cheers, Chris

[HansV]

Din conta As Long
conta = Len(myvar) - Len(Replace(myvar, "-", "")) + 1

[SpeakEasy]

I suspect sal21's answer will be along the lines of "I don't know how to do that", so here's one possible solution (that meets the requirements resulting from ChrisGreave's suggestions):

Code: Select all

Public Function counter(strSrc As String, strDelimiter As String) As Long
    counter = UBound(Split(strSrc, strDelimiter)) + 1
End Function

[ChrisGreaves]

... so here's one possible solution (that meets the requirements resulting from ChrisGreave's suggestions):

Well!
I shall not let that solution go unchallenged.

Here, IMNSHO, is a better solution than SpeakEasy's solution.

MY solution is self-testing

Code: Select all

Public Function counter(strSrc As String, strDelimiter As String) As Long
    counter = UBound(Split(strSrc, strDelimiter)) + 1
'Sub TESTcounter()
'    Debug.Assert 6 = counter("8-56-7-1254-88-6", "-")
'    Debug.Assert 1 = counter("8-56-7-1254-88-6", "+")
'    Debug.Assert 0 = counter("", "-")
'    Debug.Assert 7 = counter("8-56-7-1254--88-6", "-")
'End Sub
End Function

Cheers, Chris

[ChrisGreaves]

conta = Len(myvar) - Len(Replace(myvar, "-", "")) + 1

I like this; I was trying to remember how to do this in APL, but I didn't even get close to this.

Maybe it's time for me to hang up my keypunch machine.
Cheers, Chris

[HansV]

APL - it's more than 45 years since I last programmed in APL...

[ChrisGreaves]

APL - it's more than 45 years ago since I last programmed in APL...

Paradise!
I had to help code an interpreter that ran as a batch job on 80 column punched cards.
We had lovely operators such as %CEI, %FLO, %RHO etc. There usually wasn't much space left on a card once we got to %LAM and began a comment ...
Cheers, Chris