Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Oct 26, 1999

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 = 0
End Function

s = "GTL-00030/22*M121222*C001"
cnt = DCount(s ,"*")	->	cnt=3
cnt = DCount(s ,"/")	->	cnt=2
cnt = DCount(s ,"0")	->	cnt=7
Tan Shing
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date