Hola a todo el mundo tengo un array del siguiente tipo:


Type datos
ip&nbs p; As String * 20 'MBT:192.30.53.14 'Dirección IP
palabra As String * 10 '!%MW109&nbs p; 'Palabra del autómata
bits_palabra As String * 4 ':B12& nbsp; 'Nº bits que tiene la palabra
alarma As String * 20 'Alarma100&n bsp; '
descripcion As String * 80 ':Climatización Noblejas 'Descripción
milisegundos As String * 7 ':MS500&nbsp ; 'Cada cuantos milisegundos hay que chequear
valor As String * 1 'Valor que toma el bit 0 ó 1
End Type



Así que mi array:


Global Array_Datos as datos



tiene una serie de datos lo que pasa que cuando cargo desde una hoja excel nuevos
datos ya no lo tengo ordenado y claro me gustaría saber si alguien tiene por ahí algún método optimo para hacer la ordenación, mi intención es ordenar por dirección ip,
palabra y bits_palabra. Me bastaría con implementar el método de la burbuja por ejemplo.


Alguna rutina de ordenación por ahí ?????
Saludos y gracias por leer este mensaje.

Te paso un ejemplo de cómo ordenar un array

Código:

Private Sub OrdenarArray()
 Dim s As Integer, i As Integer
 Dim Tmp As Variant
 
 s = 1
 While s = 1
 s = 0
 For i = 1 To UBound(Array_Datos)
   If Array_Datos(i - 1).ip > Array_Datos(i).ip Then
   Tmp = Array_Datos(i - 1).ip
   Array_Datos(i - 1).ip = Array_Datos(i).ip
   Array_Datos(i).ip = Tmp
   s = 1
   End If
 Next i
 Wend
End Sub

Hace un orden lógico, primero las mayúsculas y a continuación las minúsculas (p.e. a minúscula la ordenaría detrás de la Z mayúscula)


Si quieres evitar esto, tendrías que convertir los valores del array a UCase o LCase.


Saludos

Anibal no hace falta el uso de de Lcase o Ucase, se puede establecer que el mismo¡isimo Vb, no distinga entre Mayusculas y minusculas mediante :

Código:

Option Compare Text

Esto en la parte de declaraciones.