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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
