Split string into array

[guitardave78]

I need to split a string (split(arr)) and have it be a long type

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[VBakias]

String ==> Long ?

 

[AndyLee100]

can you maybe declare as a variant array?

 

[gmmastros]

The split function will return an array of strings. This little code snippet will convert the array of strings to an array of longs. If the array is relatively small, execution time should be acceptable.

    Dim sTest As String
    Dim arLongs() As Long
    Dim arStrings() As String
    Dim i As Long
    
    sTest = "1,2,3,4,5,6"
    arStrings = Split(sTest, ",")
    
    ReDim arLongs(UBound(arStrings))
    
    For i = LBound(arStrings) To UBound(arStrings)
        arLongs(i) = CLng(arStrings(i))
    Next

Of course, there is no error handling here (making sure the elements of the original string can, in fact, be converted to a long.

Hope this helps.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[guitardave78]

array is 50,000 long

}...the bane of my life!

http://www.fuzzyd.co.uk

 

[gmmastros]

I consider 50,000 elements to be relatively small. In fact, on my computer, it took less than 0.25 seconds to split the original string and iterate through it to convert it to a long.

I'm sure someone like strongm or hypetia will come along and present a better, faster way. Until then, give my method a try so that you can determine whether the perfomance will be fast enough for you.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[gmmastros]

    Dim i As Long
    Dim arTemp(50000) As String
    Dim sTest As String
    Dim arLongs() As Long
    Dim arStrings() As String
    Dim iTimer As Single
    
    For i = LBound(arTemp) To UBound(arTemp)
        arTemp(i) = Str(i)
    Next
    
    sTest = Join(arTemp, ",")
    Erase arTemp
    
    iTimer = Timer
    
    arStrings = Split(sTest, ",")
    
    ReDim arLongs(UBound(arStrings))
    
    For i = LBound(arStrings) To UBound(arStrings)
        arLongs(i) = CLng(arStrings(i))
    Next
    
    Erase arStrings
    Erase arLongs
    
    Call MsgBox("Time:  " & Round(Timer - iTimer, 4))

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom