Hola a todos.
Alguien podria decirme como ordenar una coleccion simple, donde el indice es un texto y el valor también.
Dejo un ejemplo con una coleccion similar, donde el indice es un año, y está ordenado de menor a mayor, luego el texto, que es lo que deseo ordenar de menor a mayor es un texto alfanumérico cualquiera.
Primer planteo de solucion
Pero la salida no contempla los caracteres diacríticos
...
1879: Uso de tarjetas perforadas para el senso
1938: Z1 - Computadora electromecánica
1941: Z3 - Primera máquina programable y completamente automática
1617: Ábaco neperiano
1854: Álgebra boleana
Alguien podria decirme como ordenar una coleccion simple, donde el indice es un texto y el valor también.
Dejo un ejemplo con una coleccion similar, donde el indice es un año, y está ordenado de menor a mayor, luego el texto, que es lo que deseo ordenar de menor a mayor es un texto alfanumérico cualquiera.
Primer planteo de solucion
Código:
Public Function CSort(c As Collection) As Collection
Dim aTmp As New String[]
Dim cTemp As New Collection
Dim sText As String
For Each sText In c
aTmp.Add(sText & "\t" & c.Key)
Next
aTmp.Sort(gb.Ascent)
For Each sText In aTmp
cTemp[Split(sText, "\t")[1]] = Split(sText, "\t")[0]
Next
Return cTemp
EndPero la salida no contempla los caracteres diacríticos
...
1879: Uso de tarjetas perforadas para el senso
1938: Z1 - Computadora electromecánica
1941: Z3 - Primera máquina programable y completamente automática
1617: Ábaco neperiano
1854: Álgebra boleana
Archivos adjuntos
Última modificación: 02-09-2022, 13:28 por tincho.
1 Saludo.