[vb6] problemi array

[rinosan_76]

Ciao a tutti... ho dei problemi con VB6 (che tralaltro poco digerisco)
Ho il seguente codice che non funzia:

 Dim codice, descr, um, qta, note As Variant
 Dim tmp2, tmp1 As Variant
 tmp1 = Split(dati, "§")

 For i = LBound(tmp1) To UBound(tmp1) - 1
  tmp2 = Split(tmp1(i), "¤")
  codice(i) = tmp2(0)
  descr(i) = tmp2(1)
  um(i) = tmp2(2)
  qta(i) = tmp2(3)
  note(i) = tmp2(4)
 Next

dove la stringa dati è una successione di caratteri divisi da "¤" e da "§" in questa forma:

a¤a¤a¤a¤a§b¤b¤b¤b¤b§c¤c¤c¤c¤c

Sicuramente sto facendo un errore di grammatica (io il VB lo conosco poco!)
Ciao
Rino

[alka]

Originariamente inviato da rinosan_76
Ho il seguente codice che non funzia [...]

Cosa vuol dire "non funzia"? Ottieni un risultato diverso da quello sperato? Ottieni un errore?

Dovresti cercare di essere più preciso nella formulazione della tua domanda scrivendo più informazioni possibili.

Ciao!

[rinosan_76]

mi da errore sulla riga codice(i)=tmp2(0)
Sicuramente non sono in grado di dimensionare un Array nel modo corretto... ma i manuali che ho letto mi fanno tutti lo stesso esempio (semplice), ma che con il mio problema non va!

[Jupy64]

Ciao, l'errore lo da in quanto non hai indicato che la variabile codice (e le altre) è un vettore.
anche se non è il massimo dell'ottimizzazione, modifica in questa maniera:

 Dim idxMax as long
 Dim codice() as string
 Dim descr() as string
 Dim um() as string
 Dim qta() as string
 Dim note() As string

 Dim tmp2, tmp1 As Variant
 tmp1 = Split(dati, "§")
 
 idxMax=UBound(tmp1)
 Redim codice(idxMax)
 Redim descr(idxMax)
 Redim um(idxMax)
 Redim qta(idxMax)
 Redim note(idxMax)
 
For i = LBound(tmp1) To UBound(tmp1) - 1
  tmp2 = Split(tmp1(i), "¤")
  codice(i) = tmp2(0)
  descr(i) = tmp2(1)
  um(i) = tmp2(2)
  qta(i) = tmp2(3)
  note(i) = tmp2(4)
Next

[rinosan_76]

Grazie... prima avevo anche provato a dimensionare l'array, ma non riuscivo a far funzionare il redim!

[yyzyyz]

Originariamente inviato da Jupy64
Ciao, l'errore lo da in quanto non hai indicato che la variabile codice (e le altre) è un vettore.
anche se non è il massimo dell'ottimizzazione, modifica in questa maniera:

 Dim idxMax as long
 Dim codice() as string
 Dim descr() as string
 Dim um() as string
 Dim qta() as string
 Dim note() As string

 Dim tmp2, tmp1 As Variant
 tmp1 = Split(dati, "§")
 
 idxMax=UBound(tmp1)
 Redim codice(idxMax)
 Redim descr(idxMax)
 Redim um(idxMax)
 Redim qta(idxMax)
 Redim note(idxMax)
 
For i = LBound(tmp1) To UBound(tmp1) - 1
  tmp2 = Split(tmp1(i), "¤")
  codice(i) = tmp2(0)
  descr(i) = tmp2(1)
  um(i) = tmp2(2)
  qta(i) = tmp2(3)
  note(i) = tmp2(4)
Next

con la stringa "a¤a¤a¤a¤a§b¤b¤b¤b¤b§c¤c¤c¤c¤c" xchè la "c" nn viene messa nell'array ? è normale ?

[Jupy64]

eh si, è normale che rimane fuori, in quanto il ciclo for non è corretto (avendolo ripreso direttamente da quello che aveva postato rinosan)
sbagliato

For i = LBound(tmp1) To UBound(tmp1) - 1

corretto

For i = LBound(tmp1) To UBound(tmp1)