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: VB6
Expertise: Intermediate
Sep 1, 2001

SplitMultiSeparators - Split variation that works with multiple separators

' a variation of the Split function that works with more than one separators
' note that separators can consists of 2 or more chars

' Example:
'   Dim res() As String
'   res() = SplitMultiSeparators("one,two(three four)five", " ", ",", "(", ")")

Function SplitMultiSeparators(ByVal source As String, _
    ParamArray seps() As Variant) As String()
    Dim i As Integer
    Dim sep As String
    
    ' this is the "main" separator
    sep = seps(0)
    ' replace all other separators in string with the main separator
    For i = 1 To UBound(seps)
        source = Replace(source, seps(i), sep)
    Next
    ' now we can apply the standard Split function
    SplitMultiSeparators = Split(source, sep)
End Function
Francesco Balena
 
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