[VB6] array con indice non contatore

[mich19]

Ciao, ragazzi

Vi faccio vedere quello che facevo in php, che ora devo fare su una macro di Excel

$dati['nomeutente']['nome'] = "michele";
$dati['nomeutente']['pass'] = "pluto";
$dati['nomeutente']['soprannome'] = "mich";
$dati['nomeutente']['compleanno'] = "190586";

// il tutto all'interno di un ciclo che prende i dati non da "" ma da un file excel attraverso excelreader...

//poi all'occorrenza io facevo

echo $dati['mich19']['nome']; // compare michele 

in visual basic è possibile? sono 2 gg che ci sbatto la testa con le collections.. ma nn riesco..

Grazie a tutti..mich..

[oregon]

VB6 ... o VB.NET ?

[optime]

devi *leggere* un file excel? usa ADO

[mich19]

Sto usando VB6 cliccando ? mi dice 6.3 ...

per leggere posso usare anche ado..

però nei calcoli successivi devo fare più operazioni sui dati nell'array prima di poter dare output.. e il massimo sarebbe modificarli pian piano all'interno dell'array..
grazie ancora

[optime]

6.3? VB arriva a 6.0 SP5 (o SP6, io ad un certo punto mi sono fermato)

non è che stai usando VBA all'interno di un altro prodotto Microsoft?

[oregon]

SP6 ...

Comunque, forse usa VBA per Excel ...

[MItaly]

Originariamente inviato da mich19
che ora devo fare su una macro di Excel

Quindi è VBA.
Comunque io dichiarerei un Type che contenga i vari campi di ogni utente e poi lo memorizzerei in una collection.
Per dichiarare un Type si fa così:

Type
    Nome As String
    Pass As String
    Soprannome As String
    Compleanno As Date
End Type

.

[mich19]

Scusami ci continuo a sbattere la testa ma non riesco..
una volta fatto il Type, come faccio a inserire? additem?
e x leggere un singolo valore?
grazie

[MItaly]

'Crea la struttura
Type Utente
    Nome As String
    Pass As String
    Soprannome As String
    Compleanno As Date
End Type

'...

'Dichiara la collection
Dim c As New Collection
'Crea una variabile temporanea per i dati del nuovo utente
Dim u As Utente
'Imposta i vari campi
u.Nome="Gino"
u.Pass="password"
'eccetera
'Aggiunge i dati dell'utente "nomeutente" alla collezione
c.Add u, "nomeutente"

'...

'Recupera i dati dell'utente "nomeutente"
u = c.Item("nomeutente")

[mich19]

Scusatemi ancora un attimo...

dove lo dichiaro il type e come?
nella routine da errore.. dice che non posso
in cima non va, (con il private..)
grazie