• Home
 · 
• String Manipulation
 · 
• Implementing Split() function available in VB6 into VB5 applications.

Implementing Split() function available in VB6 into VB5 applications.

Implementing Split() function available in VB6 into VB5 applications.

Rate Implementing Split() function available in VB6 into VB5 applications.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Web-site: http://www.prashantsharma/com
'eMail: [email protected]

'Copy and paste this function in a module
Public Function Split(Expression As String, Optional Delimiter, Optional Limit As Long = -1, Optional Compare As VbCompareMethod = vbBinaryCompare) As Variant
    Dim i As Long, j As Long, Ret() As String, s As String, idx As Long, dl As Integer
    If IsMissing(Delimiter) Then Delimiter = " "
    dl = Len(Delimiter)
    i = 1
    j = InStr(i, Expression, Delimiter, Compare)
    'Loop only if needed
    Do While j > 0
        ReDim Preserve Ret(idx)
        Ret(idx) = Mid$(Expression, i, (j - i))
        If idx = Limit Then Exit Do
        idx = idx + 1
        i = j + dl
        j = InStr(i, Expression, Delimiter, Compare)
    Loop
    If idx <> Limit Then
        ReDim Preserve Ret(idx)
        Ret(idx) = Mid$(Expression, i)
    End If
    Split = Ret
End Function


'The sample usage is given here, copy and paste it in a form...
Private Sub Form_Load()
    Dim a As Variant, b As String, i As Integer
    b = "This is a sample code"
    a = Split(b)
    For i = 0 To UBound(a)
        Debug.Print a(i)
    Next i
End Sub