Fichier de données non lu

Question

Voici mon code:

Open "Data.txt" For Input As #1 

N = 1 

While Not EOF(1) 

    ReDim DataName(N) 
    ReDim Data(N, Max_Time_Point) 
    ReDim line(N) 

    Input #1, line(N) 
    DataName(N) = Split(line(N))(0) 
    For j = 1 To Max_Time_Point 
     Data(N, j) = Split(line(N))(j) 
     Debug.Print "data", N, j, Data(N, j) 
    Next j 
    N = N + 1 
Wend 

Et Data.txt ressemble à ceci

First 7 3 1 4 8 
Seconds 3 6 10 5 4 
... 

Mon problème est que les impressions de déclaration de débogage sur ce que je pense, que les données est rempli dans la matrice Data(). Mais quand je quitte la boucle, Data() a seulement sa dernière ligne remplie (La dernière ligne de données, qui pour Data.txt va juste à la ligne six). Que se passe-t-il?

EDIT: Je pense que je l'ai trouvé le problème - je pense qu'il est l'instruction ReDim remise à zéro toutes les valeurs à 0.

Answer 1

remplacer

ReDim Data(N) 

avec

ReDim Preserve Data(N)