Array in ordine alfabetico

[pegaso22]

Ciao a tutti,
come posso ordinare in ordine alfabetico i valori presenti in un array?
Ad esempio: array_a(ciao,albero,casa,sale,mare)
deve diventare: array_A(albero,casa,ciao,mare,sale)

Fatemi sapere.
Grazie mille.

[optime]

lo devi fare a mano. purtroppo non esiste alcuna istruzione specifica (troppa fatica per i cervelloni di M$...). prova a cercare "bubble sort", e' il metodo piu' semplice.

[arflop]

Ciao,

prova a dare uno sguardo a questo link

http://www.asptutorial.info/sscript/sortarray.asp

ciao

A.

[kluster]

(troppa fatica per i cervelloni di M$..., infatti copiano il javascript creando il jscript)

<script language="JScript" runat="server">
    function SortJs(myarr) 
    {
        return myarr.toArray().sort().join('\b');
    }
</script>

<%
Function Sort(myarr)
    Sort = Split(SortJs(myarr), Chr(8))
End Function
%>

[pegaso22]

Ho provato quest'utimo codice, dopo averne provati altri trovati qua e là... nessuno però funziona.
Quest'ultimo l'ho modificato così:

<script language="JScript" runat="server">
    function SortJs(arraymacro) 
    {
        return arraymacro.toArray().sort().join('\b');
    }
</script>

<%
Function Sort(arraymacro)
    Sort = Split(SortJs(arraymacro), Chr(8))
End Function

dove arraymacro è dichiarato così:

dim arraymacro(10)

array macro contiene i valori (a,c,e,f,d) che non si riordinano.

Come mai?

[pegaso22]

Il link indicato da arflop è perfetto però funziona solo quando dichiaro ( dim arraymacro(x)) dove x è il numero esatto di valori presenti nell'array.
Il problema è che non so a priori il numero di record quindi non riesco a capire.
Ho provato ad assegnargli al posto di x una variabile contenente il numero di valori esatto però non mi da errore che vi indico

Microsoft VBScript compilation error '800a0402' 

Expected integer constant 

/ricerca geografica macro.asp, line 288 

dim arraymacro(Cint(totrecpresenti))

cosa devo fare?

[kluster]

posso riconoscere che fare tutto in pure vbscript + essere stilisticamente + corretto ma funzionare funziona

<script language="JScript" runat="server">
    function SortJs(arraymacro) 
    {
        return arraymacro.toArray().sort().join('\b');
    }
</script>

<%
Function Sort(arraymacro)
    Sort = Split(SortJs(arraymacro), Chr(8))
End Function


<script language="JScript" runat="server">
    function SortJs(arraymacro) 
    {
        return arraymacro.toArray().sort().join('\b');
    }
</script>

<%
Function Sort(arraymacro)
    Sort = Split(SortJs(arraymacro), Chr(8))
End Function


Dim pippo
pippo= Array("a","c","d","b")
Response.Write(Join(pippo,","))
Response.Write("
" & Join(Sort(pippo),","))
Dim pippo2(10)
pippo2(0)="a":pippo2(1)="c":pippo2(2)="d":pippo2(3)="b"
Response.Write("<hr/>" & Join(pippo2,","))
Response.Write("
" & Join(Sort(pippo2),","))

%>

Output:
a,c,d,b
a,b,c,d
_______________________________
a,c,d,b,,,,,,,
a,b,c,d,,,,,,,

[pegaso22]

Ho il problema nel compilare l'array.
Praticamente viene caricato con una formula che pesca dal db determinati dati; per far ciò sto dichiarando l'array in testa lla pagina (dim arraymacro(6)) e facendo così se il numero di valori presenti nell'array in questo esempio 6 è diverso dal numero vero di campi, il riordino non funziona.
Non riesco a capire questo, come devo dichiararlo?
Sono bloccato e non riesco a capire.

Fatemi sapere.
Grazie mille.

[optime]

con ReDim puoi usare una variabile

es.

a=10
Dim xy(a) ' non si puote
ReDim xy(a) ' si puote

[pegaso22]

E potevi scriverlo prima :-)
Ci sono dietro un 4/5 ore per capire come assegnare il numero di campi dell'array con una variabile... sto c**o di Redim!
Comunque ora va benissimo, grazie mille.
Ti posso chiedere un altro piccolo favore?? SI!!
Come posso impostare una stringa forzatamente maiuscola?