Biblioteca de Clases,Funciones y Sub-rutinas.

[Adler]

Ordenar elementos de una cadena
En un campo de texto se introduce la cadena: vaca león águila y queremos mostrarla ordenada alfabéticamente

Código asp:

Sub Ordenar_Array(arr)
 
Dim hilera, i, pos, p_valor, n_valor, arrDivision
For hilera = 0 To UBound(arr) - 1
p_valor = arr(hilera)
n_valor = arr(hilera)
pos = hilera
            
For i = hilera + 1 to UBound(arr)
If arr(i) < n_valor Then
pos = i
n_valor = arr(i)
End If
Next
        
If pos <> hilera Then
arr(pos) = p_valor
arr(hilera) = n_valor
End If    
Next
 
End Sub
 

Uso

Código asp:

arrDivision = split(Request.Form("elementos"), " ")
Response.Write "Desordenado -- " & join(arrDivision, ", ") & "<br />"
Call Ordenar_Array(arrDivision)
Response.Write "Ordenado -- " & join(arrDivision, ", ")