Orderar Matriz utilizando CopyMemory en un solo bucle?

Iniciado por LeandroA, 15 Noviembre 2008, 17:54 PM

0 Miembros y 1 Visitante están viendo este tema.

LeandroA

Buenas intento ordenar una matriz alfabeticamente a medida se se van agregando datos a esta, pero no me esta resultando, la idea seria....
(por ejemplo) si el dato ingresado es menor al tercer elemento
copie desde el tercer al final en la posicion 4 de la matriz y en la posicion numero 3 ponga los nuevos datos. pero sin tener que recorrer un bucle, sino mas bien utilzando CopyMemory para hacelerar la funcion.

se que podria poner dos bucles y ordenarlo de la forma tradicional pero esto se haria muy lento si ablamos de 10000 elementos

pongo un ejemplo de lo que intento hacer, pero bien no estoy haciendo buen uso de CopyMemory


Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)

Private Type Datos
    Nombre As String
    Apellido As String
End Type

Dim dPersona() As Datos
Dim lCount As Long

Private Sub Command1_Click()
    AddList "bbb", "bbb"
    ImprimirListado
End Sub

Private Sub Form_Load()
    Me.Show
    ReDim dPersona(0)
   
    AddList "aaa", "aaa"
    AddList "bbb", "bbb"
    AddList "ccc", "ccc"
    AddList "ddd", "ddd"
    AddList "fff", "fff"
   
    ImprimirListado
End Sub

Private Sub ImprimirListado()
    Dim i As Long
    Cls
    For i = 0 To lCount
        Print dPersona(i).Nombre, dPersona(i).Apellido
    Next
End Sub

Private Sub AddList(Nombre As String, Apellido As String)
Dim i As Integer
Dim Ubicado As Boolean

lCount = UBound(dPersona)

If lCount = 0 Then
    dPersona(lCount).Nombre = Nombre
    dPersona(lCount).Apellido = Apellido
Else
    For i = 0 To lCount
        If Nombre < dPersona(i).Nombre Then
            'deberia copiar toda la matriz desde dPersona(i) a al siguiente dPersona(i + 1) todo el resto
            'de la extructura, pero no funciona :(
            CopyMemory ByVal dPersona(i + 1), ByVal dPersona(i), 8 * (lCount - i)
            'luego depositaria los nuevos datos en dPersona(i)
            dPersona(i).Nombre = Nombre
            dPersona(i).Apellido = Apellido
           
            Ubicado = True
            Exit For
        End If
    Next
   
    If Ubicado = False Then
        dPersona(lCount).Nombre = Nombre
        dPersona(lCount).Apellido = Apellido
    End If
End If

ReDim Preserve dPersona(lCount + 1)
End Sub



si alguien sabe como solucionar esto o conoce alguna otra forma se los agradezco
Saludos

~~

Citarcopie desde el tercer al final en la posicion 4 de la matriz y en la posicion numero 3 ponga los nuevos datos. pero sin tener que recorrer un bucle, sino mas bien utilzando CopyMemory para acelerar la funcion.

Una cosa, estás seguro de que internamente CopyMemory no es más que un bucle que va copiando bytes desde una posición hasta otra?? por que yo apostaría por que si, a lo mejor es más rápido que hacerlo en VB por la calidad del código pero vamos...

El algoritmo para ordenar datos más rápido que yo conozco es quicksort:
http://es.wikipedia.org/wiki/Quicksort

Prueba con él a ver si te da buenos resultados
Salu2

LeandroA

Hola con lo de forma tradional me referia  a Quicksort, pero me es muy lento a lo que pienso, porque si yo ingreso 10000 itens y cada ves que ingreso uno tengo que ordenarlo y despues imprimiro esto es una operacion tremenda ya que en el utlimo items estaria haciendo un bucle de 10000 * 10000 (creo)

a lo que yo apunto que no estoy seguro si es posible de esta forma, es mover todo el bloque entero de un saque, y no desplazando items por items.

Saludos

‭‭‭‭jackl007

que yo sepa el que dice leandro es el burbuja (Segun lo que posteaste)...
el Quicksort, es uno de los mas veloces (simples)

cobein

El problema del copymemory lo podes solucionar utilizando una coleccion en paralelo al array y guardando el indice del valor. De esa manera la que queda ordenada es la coleccion y esta apunta al indice en el array.
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.