Recuperare valore da array (e assegnarlo)

[DarioMarco]

Salve a tutti, ho questo array:

val(0) = "la disponibilità è di 5 giorni"
val(1) = "abbiamo disponibilità per 7 giorni"
val(2) = "disponibilità 10 gg"
val(3) = "dispo 2 gg"

dovrei recuperare il valore numerico dell'array, e riassegnarglielo, senza perdere la stringa, ma non so come fare (a meno che non abbia una lampada da sfregare ),
io avevo pensato a qualcosa del genere, ma non penso si possa fare:

val(0) = "la disponibilità è di 5 giorni",5
val(1) = "abbiamo disponibilità per 7 giorni",7
val(2) = "disponibilità 10 gg",10
val(3) = "dispo 2 gg",2

ciao.

[chipdb]

Dividi i 2 concetti e semplificati la vita. Crei una classe che contenga la stringa ed il valore e metti una funzione che ti ritorna la stringa con il numero incorporato, a questo punto metti le varie istanze della classe nell'array e quando hai bisogno di leggere la stringa chiami quella funzione, altrimenti semplicemente chiami l'oggetto in questione e gli cambi il valore numerico.

tipo:

class miaclasse
   dim miovalore
   dim miotesto

   sub setTesto(byval testo)
      miotesto = testo
   end sub

   sub setValore(byval valore)
      miovalore = valore
   end sub

   function getStringa()
      getStringa = replace(miotesto, "#", miovalore)
   end function
end class

facendo

set c = new miaclasse
c.setTesto("la disponibilità è di # giorni")
c.setValore(8)
response.write(c.getStringa())

ottieni "la disponibilità è di 8 giorni"



PS: non ho provato il codice, ma in linea di massima dovrebbe andare. in caso contrario, a disposizione (domani )

[DarioMarco]

Il problema è che poi alla fine dovrei ordinare questo array dalla disponibilità più imminente a quella meno prossima.
Potrei mettere la tua classe dentro l'array, ma poi come fare a recuperare il valore per riordinarla?

[chipdb]

beh, aggiungi una funzione alla classe che ritorna il suo valore interno

[DarioMarco]

mi potresti fare un piccolo esempio per piacere, soprattutto dove devo aggiungere questa funzione nello script che mi hai postato te in precedenza, non sono tanto bravo a programmare.
ti ringrazio.

[chipdb]

class miaclasse
   dim miovalore
   dim miotesto

   sub setTesto(byval testo)
      miotesto = testo
   end sub

   sub setValore(byval valore)
      miovalore = valore
   end sub

   function getValore()
      getValore = miovalore
   end function

   function getStringa()
      getStringa = replace(miotesto, "#", miovalore)
   end function
end class

così...