[VB6] Array e stringhe

[Elena85]

Ciao a tutti!

Volevo sapere se è possibile creare dinamicamente delle variabili stringa e se è possibile assegnare ad ogni variabile un valore contenuto in un array...

Mi spiego meglio: è possibile fare una cosa del genere?

For i = 1 to 3
   ...vorrei creare tre variabili stringa di nome Stringa1, Stringa2, Stringa3...
   ...cioè devono avere nel nome della variabile il valore di "i"...
Next

Una volta create le tre stringhe, se ad ognuna di esse volessi assegnare i valori contenuti in un array, come devo fare?
Tipo una cosa del genere...

For i = 0 to 3
   Stringa"i+1" = nomeArray(i)
Next

A Stringa1 vorrei assegnare il primo elemento dell'array, a Stringa2 il secondo elemento, e così via...

Grazie!

[oregon]

No ... ma perché non utilizzi un altro array di stringhe al posto delle 3 stringhe?

[Elena85]

Ti spiego: devo leggere i record di una tabella.
Se i record sono 8, devo creare 8 stringhe (Stringa1, Stringa2, Stringa3, ...) che contengano ognuna un record della tabella...

Non so quanti possano essere i record....quindi non posso sapere quante variabili stringhe devo dichiarare...

Avevo pensato di usare gli array, ma magari c'è una soluzione migliore...

In ogni caso, questo codice sarebbe corretto?

Dim arrayStr() as String
arrayStr(0) = Stringa1
arrayStr(1) = Stringa2
arrayStr(2) = Stringa3


Dim arrayStrBis() as String
For n = 0 To numRecord      'numRecord in questo caso è 3...
                    arrayStrBis(n) = rs("LOTTO") & ", " & rs("ARTICOLO") & ", " & rs("PESO") & "kg" & "; "
                    rs.MoveNext
Next


'Facendo così, assegno il contenuto dei record a Stringa1, Stringa2, Stringa3?
arrayStr(0) = arrayStrBis(0)
arrayStr(1) = arrayStrBis(1)
arrayStr(2) = arrayStrBis(2)

Grazie!

[oregon]

No ... stai scrivendo cose che hanno poco senso.

Non ha senso (e non si può) usare variabili singole.

Devi usare degli array con la ReDim

ReDim arrayStr(0 To numRecord - 1) As String

...

For n=0 To numRecord-1
   arrayStr(n) = ...

[Elena85]

Ok! Grazie mille ancora!

[renygade]

Io, se avessi dovuto affrontare questo scenario avrei creato una nuova classe, che al suo interno contiene una specie di id, cioè un nome univoco tipo "stringa1", "stringa2", ecc e il valore da memorizzare.. Gli oggetti vengono instanziati in un ciclo for e aggiunti a una list di oggetti o un'altra collection qualsiasi. Anzi, forse più semplice ancora sarebbe stato usare i dictionary.. Ma vb6 non offre oggetti simili, suppongo..
Ciao!

[oregon]

Mi sembra che il problema si risolva molto semplicemente con un array allocato dinamicamente (con la ReDim). Sinceramente non vedo perché utilizzare chissà quale marchingegno ...

P.S. Se aggiungi un riferimento alla libreria 'Microsoft Scripting Runtime' puoi utilizzare l'oggetto Dictionary dichiarando ad esempio

Dim d As Dictionary

[Elena85]

Grazie a tutti!
Alla fine ho risolto usando un array allocato dinamicamente, usando la ReDim.