[risolto]Leggere matrice da file di testo

[ealmuno]

Risolto: ecco il codice:

Codice: [Seleziona]

PUBLIC SUB carica_Click()
DIM hFile AS File
DIM a1 AS Integer
DIM b1 AS Integer
DIM sOneLine AS String

  hFile = OPEN User.home &/ "testo.txt" FOR INPUT
a1 = 1
b1 = 1
WHILE NOT Eof(hFile)
   LINE INPUT #hFile, sOneLine
   matr[a1, b1] = sOneLine
   a1 = a1 + 1
   IF a1 = 9 THEN 
   a1 = 1
   b1 = b1 + 1
   ENDIF 
     IF b1 = 9 THEN 
     b1 = 1
   ENDIF 
WEND

  CLOSE #hfile
END

N.B. la matrice parte da 1 e finisce a 8, in pratica ho letto linea per linea