Mentre cerco la soluzione...

[lotto_tom75]

If FileEsistente(matricenumericacreata) Then
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(matricenumericacreata,aRighe)
 
End If
    
Call Scrivi ("arighe: " & StringaNumeri(aRighe))

Questo mi legge correttamente tutto il file txt formato da N righe dinamiche di N classe dinamica ma mi legge tutti i dati uno accanto all'altro separati dal carattere separatore deciso (es "."). Io dovrei leggerli in base alla classe di ciascuna riga es. 9ine, 10ine ecc... e metterli ognuno in un rispettivo vettore dinamico...

Es.

matricedinamicacreata.txt contiene

1.2.3.4.5.6.7.8.9.10
11.12.13.14.15.16.17.18
19.20.21.22.23.24.25.26.27

...

io dovrei poterlo leggere
e creare nel contempo i relativi tre vettori dinamici

raccoltanumeri(1) = array(0,1,2,3,4,5,6,7,8,9,10)
raccoltanumeri(2) = array(0,11,12,13,14,15,16,17,18)
raccoltanumeri(3) = array(0,19,20,21,22,23,24,25,26,27)

....

 

[lotto_tom75]

If FileEsistente(matricenumericacreata) Then
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(matricenumericacreata,aRighe)

End If
   
Call Scrivi ("arighe: " & StringaNumeri(aRighe))

Questo mi legge correttamente tutto il file txt formato da N righe dinamiche di N classe dinamica ma mi legge tutti i dati uno accanto all'altro separati dal carattere separatore deciso (es "."). Io dovrei leggerli in base alla classe di ciascuna riga es. 9ine, 10ine ecc... e metterli ognuno in un rispettivo vettore dinamico...

Es.

matricedinamicacreata.txt contiene

1.2.3.4.5.6.7.8.9.10
11.12.13.14.15.16.17.18
19.20.21.22.23.24.25.26.27

...

io dovrei poterlo leggere
e creare nel contempo i relativi tre vettori dinamici

raccoltanumeri(1) = array(0,1,2,3,4,5,6,7,8,9,10)
raccoltanumeri(2) = array(0,11,12,13,14,15,16,17,18)
raccoltanumeri(3) = array(0,19,20,21,22,23,24,25,26,27)

....

Forse la soluzione is:

For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)
Next

In quanto la funzione leggirighefileditesto legge appunto già ogni singola riga presente in un txt separata da carattere a capo...

Adesso non mi resta che splittare ogni riga in vettori dinamici relativi...

 

[lotto_tom75]

Forse la soluzione is:

For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)
Next

In quanto la funzione leggirighefileditesto legge appunto già ogni singola riga presente in un txt separata da carattere a capo...

Adesso non mi resta che splittare ogni riga in vettori dinamici relativi...

Così

ReDim raccoltanumeri(UBound(aRighe))

For w = 0 To UBound(aRighe)
Scrivi "r:" & aRighe(w)

Call SplitByChar(aRighe(w),".",raccoltanumeri(w))

Next

Done!