Split (for VB before 6)

Since the Split function was added in VB6, whoever has a previous version of VB can use this :)

VB Code:

Private Function Split2(ByVal sString As String, ByVal sSeparator As String) As Variant
    Dim sParts() As String
    Dim lParts As Long
    Dim lPos As Long
        lPos = InStr(sString, sSeparator)
    While lPos
        ReDim Preserve sParts(lParts)
        sParts(lParts) = Left(sString, lPos - 1)
        sString = Mid(sString, lPos + Len(sSeparator))
        lPos = InStr(sString, sSeparator)
        lParts = lParts + 1
    Wend
    If Len(sString) Then
        ReDim Preserve sParts(lParts)
        sParts(lParts) = sString
        lParts = lParts + 1
    End If
    Split2 = IIf(lParts, sParts, Array())
End Function

Great nice code.

Very useful for compatability too, I tried writing something like this for LB once and I failed dismally I may add :)

Cheers,

RyaNj

Thanks, but I can't take credit for it... I had found it somewhere else on the forum and I dug it up now :)

Quote:

---

Originally Posted by manavo11

Thanks, but I can't take credit for it... I had found it somewhere else on the forum and I dug it up now :)

---

Still not the point, I'm going to see if that is compatible with LB and then there would finally be a split function that works :)

Cheers,

RyaNJ