power array

Hi RyanBank,
----------

what do you need in vb array?

----------
bruintje

Hi bruintje,

How are you? To contain the data from the csv file.

CSV data contains:
1,6,11,16
2,7,12,17
3,8,13,18
4,9,14,19
5,10,15,20


output:
debug.print join(arr_req,",")

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20

Questions:

* Will the CSV file always contain 4 comma-delimited columns?
* Will the CSV file always contain 5 rows?

How about...

Option Explicit

Private arr_req() As String
   
Private Sub Command1_Click()
    Dim i As Integer
    Dim fileName As String
    Dim contents As String
    Dim arr_tmp() As Integer

    ' read in the whole file
    fileName = "c:\someFile.txt"
    i = FreeFile
    Open fileName For Input As #i
    contents = Input(LOF(i), #i)
    Close #i
   
    ' trim any trailing vbCrLfs
    While Right(contents, 2) = vbCrLf
        contents = Left(contents, Len(contents) - 2)
    Wend
   
    ' convert it to an array of STRING
    arr_req = Split(Join(Split(contents, vbCrLf), ","), ",")
   
    ' copy the STRING values to a temp INTEGER array
    ReDim arr_tmp(UBound(arr_req))
    For i = LBound(arr_tmp) To UBound(arr_tmp)
        arr_tmp(i) = CInt(arr_req(i))
    Next i
   
    ' sort the INTEGER array
    Quicksort arr_tmp, LBound(arr_tmp), UBound(arr_tmp)
   
    ' copy the SORTED INTEGERs back to the STRING array
    For i = LBound(arr_tmp) To UBound(arr_tmp)
        arr_req(i) = CStr(arr_tmp(i))
    Next i
   
    ' output the results
    Debug.Print Join(arr_req, ",")
End Sub

Private Sub Quicksort(ByRef list As Variant, ByVal min As Integer, ByVal max As Integer)
    Dim med_value As Variant
    Dim hi As Integer
    Dim lo As Integer
    Dim i As Integer

    ' If the list has no more than 1 element, it's sorted.
    If min >= max Then Exit Sub

    ' Pick a dividing item.
    i = Int((max - min + 1) * Rnd + min)
    med_value = list(i)

    ' Swap it to the front so we can find it easily.
    list(i) = list(min)

    ' Move the items smaller than this into the left
    ' half of the list. Move the others into the right.
    lo = min
    hi = max
    Do
        ' Look down from hi for a value < med_value.
        Do While list(hi) >= med_value
            hi = hi - 1
            If hi <= lo Then Exit Do
        Loop
        If hi <= lo Then
            list(lo) = med_value
            Exit Do
        End If

        ' Swap the lo and hi values.
        list(lo) = list(hi)
       
        ' Look up from lo for a value >= med_value.
        lo = lo + 1
        Do While list(lo) < med_value
            lo = lo + 1
            If lo >= hi Then Exit Do
        Loop
        If lo >= hi Then
            lo = hi
            list(hi) = med_value
            Exit Do
        End If

        ' Swap the lo and hi values.
        list(hi) = list(lo)
    Loop

    ' Sort the two sublists
    Quicksort list, min, lo - 1
    Quicksort list, lo + 1, max
End Sub

Another question:

* Is the point that you need the values to be sorted, regardless of their position in the text file, or do you need them to be added to the array in the order: 1st column top-to-bottom, 2nd column top-to-bottom, etc.?

If you just need the values sorted, then Idle_Mind's code looks good.  But what if the values in the CSV file were:

20,6,11,16
2,7,12,17
3,8,13,18
4,9,14,19
5,10,15,1

And you wanted the end array to be:
20,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,1

?

Good question jmundsack!   =)

Needs to follow the pattern. no sorting involved. basically going column by column

CSV data contains:
11,16,11,16
22,77,12,17
43,88,13,18
44,19,14,19
51,10,15,20

11,22,43,44,51,16,77,88,19,10,11,12,13,14,15,16,17,18,19,20

Yes this way,
>>need them to be added to the array in the order: 1st column top-to-bottom, 2nd column top-to-bottom, etc<<

sorry it was kinda hard to explain. my apology.

Is the number of columns constant at 4?

jmundsack

yes that is correct, it is constant at 4 columns and 5 rows.

jmundsack,

I think you got it the  other way around or I missed something, which array contains the values?

CSV data contains:
11,16,11,16
22,77,12,17
43,88,13,18
44,19,14,19
51,10,15,20

output values:  (inserted values in the array)
join(arr_req,",")
11,22,43,44,51,16,77,88,19,10,11,12,13,14,15,16,17,18,19,20

Idle_Mind,

one dimentional, i'm s  osrry if my info is not complete. please forgive me.

thanks.

Crud, I forgot his original spec called for a 1D array.  My bad.

My example is just all messed up.  I'm braindead today.  Forget everything I wrote.  How embarrassing!  :(

Don't feel bad jmundsack...it took me waaaaay too long to come up with my algorithm.

I think I'll go make some coffee now...      =)

works like a charm!!

Idle_Mind for president!