Ordenar Array

[André Gil 0]

Ae...Preciso ordenar um array em ordem alfabética e eliminar os valores iguais, como faço????Criei a array com split atras de uma string retirada de vários campos de uma tabela.Vlw...

[André Gil 0]

SQL2 = "SELECT * FROM Livros WHERE Compra = 1 ORDER BY Tema"Set RsLivro2 = Server.CreateObject("ADODB.RecordSet")RsLivro2.Open SQL2, Conexaowhile Not RsLivro2.EOFtemas1 = temas1&RsLivro2("Tema")&", "temas2 = temas2&RsLivro2("Tema2")&", "temas3 = temas3&RsLivro2("Tema3")&", "temas4 = temas4&RsLivro2("Tema4")&", "temas5 = temas5&RsLivro2("Tema5")&", "RsLivro2.MoveNextWendtemas = temas1&temas2&temas3&temas4&temas5temas = split(temas,", ")

[*Marcinha* 0]

dá um select distinct.

[André Gil 0]

Ainda não consegui ordenar. tem alguma função que ordene array??

[rOcKLoCo 0]

ASP [/tr][tr]<%

FUNCTION SortArray(varArray)

For i = UBound(varArray) - 1 To 1 Step - 1

MaxVal = varArray(i)

MaxIndex = i

 

For j = 0 To i

If varArray(j) > MaxVal Then

MaxVal = varArray(j)

MaxIndex = j

End If

Next

 

If MaxIndex < i Then

varArray(MaxIndex) = varArray(i)

varArray(i) = MaxVal

End If

Next

END FUNCTION

 

REDIM arrSORT(8)

 

arrSORT(0)="Elvis Presley"

arrSORT(1)="Helicopter Aéreo"

arrSORT(2)="Corn Olho"

arrSORT(3)="Apple Zinho"

arrSORT(4)="Drum Base"

arrSORT(5)="Green Day"

arrSORT(6)="Flowers Power"

arrSORT(7)="Big Brother"

 

Response.write "<TABLE BORDER=1 WIDTH=100% ><TR><TD><B>UNSORTED</B></TD><TD><B>SORTED</B></TD></TR>"

Response.write "<TR><TD>"

 

FOR i = 0 TO UBOUND(arrSORT) - 1

Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>"

NEXT

 

Response.write "</TD><TD>"

 

SortArray arrSORT

 

FOR i = 0 TO UBOUND(arrSORT) - 1

Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(i) & "<BR>"

NEXT

 

 

Response.write "</TD></TR></TABLE>"

%>

[/tr]

[André Gil 0]

Vlw todos que me ajudaram,

 

agora com essa função deu certo....mudando algumas coisas...

 

obrigado... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif