Ordenamiento de vectores (URGENTEEEEEEEEEEEE) - VB-MUNDO

alxis · #1 (**permalink**) 27-10-2004, 21:52:51

Hola a todos.. gracias por sus oportunas respuestas me han servido de mucho..

tengo dos dudas:

1. Tengo un vector de cadena de caracteres, es decir un vector almacenando nombres de personas... como diablos hago para ordenarlo en forma descendente si no es un vector numerico ????

2. Si quiero comparar un elemento del vector mas o menos asi...:
SI LO QUE TIENE EL VECTOR(1)="ALEXIS"....esta comparacion no funciona, como es la comparacion correcta cuando se tranbaja con caracteres ???

muchas gracias a todos
alexis gallego

J.M.Movilla · #2 (**permalink**) 27-10-2004, 22:23:13

Monta un ListBox en el formulario, al que definirás la propiedad Sorted a True.

En el Form_Load pones

Dim N As Integer
For N = 0 To Len(Vector) - 1
List1.AddItem Vector(N)
Next

Ahora verás que puedes tratar los elementos (List1.List) en perfecto orden. Si no te interesa ver el ListBox, puedes ponerle List1.Visible = False.

Y respecto a la comparación, es perfecta la fórmula de

For N = 0 To Len(Vector) - 1
If UCase(Vector(N)) = "ALEXIS" Then Exit For
Next

acalanto · #3 (**permalink**) 28-10-2004, 08:29:29

Las cadenas se comparan de la misma forma que cualquier otro tipo de datos básico, la única diferencia la podrás encontrar en que no es lo mismo "Alexis" que "ALEXIS", tal y como te apunta J.M.Movilla.

Para ordenarlo descendentemente

Código:

dim i as integer, j as integer
dim swap as string
for i = 1 to ubound(vector)-1
    for j = i+1 to ubound(vector)
        if UCASE(vector(i)) > UCASE(vector(j)) then 
            swap = vector(i)
            vector(i)=vector(j)
            vector(j) = swap
       end if 
    next j
next i

Este es el algorítmo más elemental de ordenación de un conjunto de elementos y fíjate bien que, en la comparación, se utiliza el conversor de mayúsculas UCASE. De esta forma garantizas un orden correcto, independientemente de que sean mayúsculas, minúsculas o cualquier otra combinación.