Array senza definizione...

[Rubberick]

Posso creare in vbscript un array senza definirne necessariamente il numero di elementi iniziali come faccio con php???

io in php faccio cosi'

$arr[0] ="a";
$arr[1] ="b";
$arr[2] ="c";
$arr[3] ="d";

e posso continuare quanto voglio senza dover stare li a dire all'inizio se sono 30 o 1000 elementi ;P in vb non si puo' fare cosi'?

[optime]

in vbs devi dimensionare l'array. pero' puoi anche ridimensionarlo, con ReDim (ReDim Preserve se vuoi mantenerne il contenuto)

[deleted_c]

arr = array(1,2,3,"pippo",12.5,......)

[Rubberick]

purtroppo lo devo scrivere a + righe pensavo ad una cosa del genere...

dim RStrObj(1000)
o = 0

RStrObj(o) = "a" : o = o + 1
RStrObj(o) = "b" : o = o + 1
RStrObj(o) = "c" : o = o + 1
RStrObj(o) = "d" : o = o + 1
RStrObj(o) = "e" : o = o + 1
RStrObj(o) = "f" : o = o + 1
RStrObj(o) = "g" : o = o + 1

ReDim Preserve RStrObj(o)

solo che non va... mi da quest'errore....
This array is fixed or temporarily locked.

vorrei anche usare il metodo che ha consigliato cicciopie xo' io devo scrivere a + righe per mantenere un ordine nel codice e il vbscript nn e' come il php che lo suppora se scrivo

arr = array(
"item1",
"item2",
"item3"
)

mi manda a quello paese ;P

[kluster]

cosi funge
temp = Array( 1, _
2, _
3, _
"4" _
)

il fatto è che non puoi aggiugere un commento dopo _

[Rubberick]

ho fatto cosi' senza rimettermi a scrivere moltissime cose...

dim RStrObj(1000)
o = 0

RStrObj(o) = "a" : o = o + 1
RStrObj(o) = "b" : o = o + 1
RStrObj(o) = "c" : o = o + 1
RStrObj(o) = "d" : o = o + 1
RStrObj(o) = "e" : o = o + 1
RStrObj(o) = "f" : o = o + 1
RStrObj(o) = "g" : o = o + 1

dim StrObj(o) ' <-- Riga incriminata
For k=0 to o
StrObj(k) = RStrObj(k)
Next


Si ma mi dice... Errore e che devo specificare per il dim un valore numerico intero o_O quello gesu e' intero :P

la mia o nella fattispecie nel codice originale vale 45 ho provato a printarla..


hem expected integer constant o_O ma deve essere costante per forza il valore???

[optime]

il fatto e' che in vbs tutte le variabili sono variant. quindi dovresti riuscire a risolvere la cosa scrivendo

Dim StrObj(CInt(o))