[VB6] Dimensioni array

[lbottoni]

ciao,
vorrei capire bene come VB6 gestisce le matrici. Ad esempio, devo inserire il contenuto di un file in una matrice, ma non so quante righe conrìtiene il file..come faccio a dimensionare l'array?

[ans]

se ogni riga del file è separata da un delimitatore, esempio un carriage return, basta che leggi il file salvandolo in una stringa, e poi usi la split per l'array in questo modo (supponendo il separatore di riga sia il CR):

Dim arrFile() As String
arrFile() = Split(stringaFile, vbCr)

[lbottoni]

purtroppo il file risulta troppo grosso(sono mail in realtà),ma apparte questo, mi interessava sapere se posso dichiarare una matrice senza dover dichiarare la sua dimensione con VB6

[ans]

mi interessava sapere se posso dichiarare una matrice senza dover dichiarare la sua dimensione con VB6

se guardi il mio esempio l'ho fatto:
Dim arrFile() As String

poi che vuol dire è grosso il file ? Non credo sia questo che ti impedisce una lettura completa ed assegnazione del contenuto ad una stringa.

[ladyBlu]

Originariamente inviato da lbottoni
purtroppo il file risulta troppo grosso(sono mail in realtà),ma apparte questo, mi interessava sapere se posso dichiarare una matrice senza dover dichiarare la sua dimensione con VB6

certo, puoi farlo.
Ti scrivo le istruzioni che si utilizzano per questo scopo (presumiamo che il nostro array debba essere di tipo String):

Dim myArray() As String 'dichiaro l'array con indice non specificato


Redim myArray(3) 'l'array può contenere un indice max = 2

'Se però voglio che il mio array abbia un indice max più grande
' e non voglio perdere il contenuto già memorizzato:

Redim Preserve myArray(10) 'l'array avrà un indice max = 9

spero di essere stata chiara.
ciao

[lbottoni]

domanda, se ridimensiono l'array in un ciclo while, le precedenti istruzioni sono perse?

es:

a=0
dim b() as string
do while eof(1)
  redim b (0 to a+1)
  input #1, c
  b(a)=c
  a=a+1
loop

[lbottoni]

ok..non chiedevo di meglio..grazie a tutti e due

[lbottoni]

scusate..la domanda precedente mi è partita prima che finissi di leggere correttamente i messaggi.

[ladyBlu]

Originariamente inviato da lbottoni
domanda, se ridimensiono l'array in un ciclo while, le precedenti istruzioni sono perse?

es:

a=0
dim b() as string
do while eof(1)
  redim b (0 to a+1)
  input #1, c
  b(a)=c
  a=a+1
loop

ti ho risposto prima a questo quesito, postandoti le istruzioni che ti servono per gestire l'array.
In questo caso ti basta modificare il codice aggiungendo il Preserve:

a=0
dim b() as string
do while eof(1)
  redim Preserve b (0 to a+1)
  input #1, c
  b(a)=c
  a=a+1
loop

[ans]

per me la soluzione migliore, se applicabile al suo caso, resta prima leggere il file e poi fare una Split. Anche come velocità.