Ordenar array no VB6

Question

Senhores

Boa Tarde

Desde de já peço minhas sinceras desculpas, pela pergunta abaixo?rs

Gostaria de uma orientação sobre como realizar o comando "sort" no vb6.

Att

Joel Vieira

Answer 1

Jovir,

Apesar de eu nunca ter trabalhado com Vb6 espero que estes links sejam uteis para você:

http://visualbasic.freetutes.com/learn-vb6/sorting-using-arrays.html

http://www.vbforums.com/showthread.php?473677-VB6-Sorting-algorithms-(sort-array-sorting-arrays)

---

Vitor Mendes | Seu feedback é muito importante para todos!
Visite o meu site: http://www.vitormendes.com.br/

Answer 2

Essa questao foi respondida aqui:

http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/735eaafa-cf51-4c3f-9986-aad05c7cfdbb/#b2a1f1ce-3819-4249-b54c-1efa3b617b51

Evite postar a mesma pergunta em dois foruns diferentes... isso nao vai acelerar o tempo de resposta.

Att

---

William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------

Sogi informatique ltée

Answer 3

Obrigado! Essa era a minha duvida, já havia encontrado algumas funções na internet referente ao comando, mas gostaria de saber se não existia uma função nativa. Caso sejá interessante segue abaixo uma soluçao para array bidimensional

Public Sub SortArray(ByRef DArray(), Element As Integer)
    Dim gap As Integer, doneflag As Integer, SwapArray()
    Dim Index As Integer
    ReDim SwapArray(2, UBound(DArray, 1), UBound(DArray, 2))
    'Gap is half the records
    gap = Int(UBound(DArray, 2) / 2)
    Do While gap >= 1
        Do
            doneflag = 1
            For Index = 0 To (UBound(DArray, 2) - (gap + 1))
                'Compare 1st 1/2 to 2nd 1/2
                If DArray(Element, Index) > DArray(Element, (Index + gap)) Then
                    For acol = 0 To (UBound(SwapArray, 2) - 1)
                        'Swap Values if 1st > 2nd
                        SwapArray(0, acol, Index) = DArray(acol, Index)
                        SwapArray(1, acol, Index) = DArray(acol, Index + gap)
                    Next
                    For acol = 0 To (UBound(SwapArray, 2) - 1)
                        'Swap Values if 1st > 2nd
                        DArray(acol, Index) = SwapArray(1, acol, Index)
                        DArray(acol, Index + gap) = SwapArray(0, acol, Index)
                    Next
                    CNT = CNT + 1
                    doneflag = 0
                End If
            Next
        Loop Until doneflag = 1
        gap = Int(gap / 2)
    Loop
End Sub