return any variable type as array

as the computer i am using does not have VB and only has office 97 i decided i would like to write a replacement for the split function as it is not supported in vba5, however i am having a problem returning an array, i did a search here and the posts indicate this should work

VB Code:

Function split(str As String, c As String) as Variant ()

but it does not like it at all, i get expected end of statement error after variant, also i would like to be able to process any data type, how to be able to do that?

pete

Try removing the parentisis (after Variant)

This seemed to work (I renamed the deliniator):

VB Code:

Private Sub Form_Load()
Dim strArrBuff() As String
 
    strArrBuff = split("a,b,c", ",")
    
    MsgBox strArrBuff(0)
End Sub
 
Private Function split(str As String, strDeliniator As String) As Variant
    'Do Split Stuff (strArr was my internal test Array)
 
    split = strArr
 
End Function

Also (found here): http://www.vbforums.com/showthread.p...ight=vb5+split

VB Code:

'VB5 Split Function
'split function for VB5 and under vb6 has the function
'posted originally by Aaron Young
 
Public 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
    End If
 
    Split2 = IIf(lParts, sParts, Array())
 
End Function
 
'Example:
 
Private Sub Form_Load()
Dim vLines As Variant
Dim lLine As Long
 
    vLines = Split2("Line1,Line2,Line3", ",")
 
    For lLine = 0 To UBound(vLines)
        List1.AddItem vLines(lLine)
    Next
 
End Sub

There are many fast Splits here: http://www.xbeat.net/vbspeed/

thnx bruce
that will work,

how about being able to split any data type?

thnx all, i will follow up the other links

i guess really only strings need to be split anyway, this is the code i used

VB Code:

Function split(str As String, c As String) As Variant
Dim spl()
Dim n As Integer, pos As Integer
ReDim spl(10)
    spl(n) = Mid(str, 1, InStr(1, str, c) - 1)
    n = n + 1
 Do
    pos = InStr(pos + 1, str, c)
    If Not pos = 0 And Not pos = Len(str) Then
        spl(n) = Mid(str, pos + 1, InStr(pos + 1, str, c) - 1 - pos)
        n = n + 1
        If n = UBound(spl) Then ReDim Preserve spl(n + 10)
        Else: Exit Do
    End If
Loop
n = n - 1
ReDim Preserve spl(n)
split = spl
End Function

pete

westconn1,

I am using vb5 as well and have been trying to get Split to work for hours breaking up a textbox full of commas.
Could you just run through this code for me so that I can understand how it works with respect to the size of the array and number of textboxes it uses. I am a little lost,

Cheers,
Snookered

this seems like a long time ago, you can redim preserve the array in the loop by 1 more, each time (as in post #4), but it is more efficient to redim the array less often, you could just start with 100 or any other number (i started with 10), the most efficient is the number closest to the expected size of the array + a few, but as you don't know the final size you have to just take a stab at it based on instinct, the loop uses instr to find each delimiter and takes the string between each pair of delimiters and puts into the array,
it does not use any textboxes, just pass your textbox.text and the delimiter to the function

you should also make it so that if the delimiter is not found then the result is a 1 element array, i did not do that at that time

I finally posted a separate CodeBank thread for the QuickSplit I've made. The code is uncommented, but it is very fast in what it does. With a change in one line you also can make it VB5 compatible. The line is at the very end of the code.

I have this working fine. Thanks all for your help.
Snookered.