Salut.... Encore moi...
J'arrive à mon deuxième prob... et après ca devrait etre réglé....
Je suis capable de lire le fichier texte et maintenant je veux mettre ce fichier texte dans un tableau.
Problème, j'éprouve beaucoup de difficulté. avec les tableaux.
Je sais que le code qui suis n'Est pas bon mais pouvez-vous me donner un coup de main afin que mon fichier texte devienne en tableau de 5 colonne par un nombre X de ligne (Si mon fichier contient 10 lignes alors le tableau aura 10 lignes)
Merci d'avance
Mon fichier texte ressemble à ca, tout est séparé par des espaces
643 2969.7949 -1306.9490 0.0000 50 'Voir Exemple
665 2976.5231 -1312.9940 -0.0124 50
666 2966.4716 -1325.3946 -0.3610 50
1618 2915.9791 -1343.8044 -4.8486 59
643 = NoPoint
2969.7949 = Coord X
-1306.9490 = Coord Y
0.0000 = Hauteur50 = PCode
Dim
sr1 As StreamReader = New StreamReader(AppPath & "\Coord.txt")
Dim i AsInteger, j AsInteger, LineCount AsInteger
Dim SplitLine() AsString
Dim intCompteur AsInteger
LineCount = 0
For i = 0 To UBound(sr1)
If LineCount = 0 Then
ReDim Tableau(4, LineCount)
Else
ReDimPreserve Tableau(4, LineCount)
EndIf
For j = 0 To UBound(SplitLine)
If Trim(SplitLine(j)) <> ""Then
Tableau(j, LineCount) = Trim(SplitLine(j))
EndIf
Next
LineCount = LineCount + 1
Next i