Count Substrings

This little routine demonstrates how easily you can determine the number of substrings within a string, given any specified separator character(s). Pass the string to be parsed, and the separator, which might be multiple characters long, and DCount returns the number of substrings:

 Public Function DCount(ByVal vData As String, _	SP As String) As Integer	Dim x As Integer	Dim n As Integer	If vData = "" Or SP = "" Then Exit Function	vData = Trim(vData)	n = 1	DCount = 1	Do		x = InStr(n, vData, SP, vbTextCompare)		If x > 1 And x < (Len(vData) - Len(SP)) _			Then			DCount = DCount + 1		End If		n = x + Len(SP)	Loop Until x = 0End Functions = "GTL-00030/22*M121222*C001"cnt = DCount(s ,"*")	->	cnt=3cnt = DCount(s ,"/")	->	cnt=2cnt = DCount(s ,"0")	->	cnt=7
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: