This function takes a string of items sSource separated by sItem string. It returns the number of i

by Tom Tajic (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 28^th March 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

This function takes a string of items sSource separated by sItem string. It returns the number of items in list.

Rate This function takes a string of items sSource separated by sItem string. It returns the number of i



Dim temp As String
On Error GoTo NumberOfTextItems_error

    temp = Replace(sSource, sItem, "")
    NumberOfTextItems = (Len(sSource) - Len(temp)) / Len(sItem)

Exit Function
NumberOfTextItems_error:
NumberOfTextItems = 0
Exit Function
End Function

Download this snippet Add to My Saved Code

This function takes a string of items sSource separated by sItem string. It returns the number of i Comments

No comments have been posted about This function takes a string of items sSource separated by sItem string. It returns the number of i. Why not be the first to post a comment about This function takes a string of items sSource separated by sItem string. It returns the number of i.

This function takes a string of items sSource separated by sItem string. It returns the number of i

This function takes a string of items sSource separated by sItem string. It returns the number of i Comments

Post your comment

Difficulty