border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack Herramientas
  #1 (permalink)  
Antiguo 27-10-2004, 21:52:51
Nuevo Amigo
 
Registrado: oct 2004
Ubicación: america
Posts: 23
Créditos: 967
alxis Valoración +2
Predeterminado Ordenamiento de vectores (URGENTEEEEEEEEEEEE)

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
__________________
Hola quiero volverme experto en visual basic
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 27-10-2004, 22:23:13
Avatar de J_M_Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 9.413
Créditos: 78.481
J_M_Movilla ha deshabilitado la reputación
Predeterminado

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
__________________
José María Movilla Cuadrado
______________________
Normas del foro
www.foro.vb-mundo.com
www.vb-mundo.com
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 28-10-2004, 08:29:29
Avatar de acalanto
Administrador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 6.252
Créditos: 54.344
acalanto ha deshabilitado la reputación
Predeterminado

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.
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Leer detalladamente las normas del foro es una buena forma de comenzar a participar en él. Te llevará unos pocos minutos y el colectivo de usuarios te lo agradecerá. <si no las has leído sigue este enlace>
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Ordenar Vectores cologti JAVA 0 16-10-2007 23:24:05
ORDENAMIENTO ALEATOREO EN SQL pitufo_maligno Lenguaje SQL 2 04-12-2006 22:48:27
Vectores springles Visual Basic 6.00 5 17-09-2004 00:00:00
comparar dos vectores guidormar VBA (Excel, Word, Outlook, Access) 2 17-09-2004 00:00:00


La franja horaria es GMT. Ahora son las 09:32:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design