Ordernar array

[golbranco 0]

como faço para ordernar os valores em um array()exemploSQArray = array("a","d","z","h","y")eu queria mostrar na tela em order cresecente ou descrecente.... os valores do arraylembrando que os valores são dinamicos..tem como fazer isso???

[gastao 0]

pede pro kiko q ele tem .. o deleete tambem...

[Daniel Oliveira 0]

Tem sim, eu desenvolvi uma função que faz isso, porém sua array não pode conter valores vazios, ou seja "".

 

Faça o seguinte:

 

Dim arrayOrdenada()

 

nrDePosicoes=0

For each posicao in suaArray

---nrDePosicoes=nrDePosicoes+1

Next

 

Redim arrayOrdenada(nrDePosicoes)

 

For each posicao in suaArray

---atual = asc(posicao)

 

---For i = 0 to nrDePosicoes

------If arrayOrdenada(i)=Empty then

---------primeiroVazio = i

---------Exit for

------End if

---Next

 

---For i = 0 to primeiroVazio

------If arrayOrdenada(i) = Empty then

---------arrayOrdenada(i) = atual

---------exit for

------Elseif atual < arrayOrdenada(i) then

---------For x = primeiroVazio to i Step -1

------------If x>0 then

---------------arrayOrdenada(x) = arrayOrdenada(x-1)

------------End if

---------Next

---------arrayOrdenada(i) = atual

---------exit for

------End if

---Next

Next

 

For each elemento in arrayOrdenada

---Response.Write elemento&"<BR>"

Next

 

 

No lugar da variável suaArray você coloca a sua array, no caso seria SQArray.

 

Estou retornando a array ordenada como arrayOrdenada.

 

Tire os --- da frente do código. Eu só coloquei para organizar melhor.

 

Espero ter ajudado.

 

Até mais!!!