cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
17 août 2007 à 15:48
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
17 août 2007 à 17:42
Salut....
J'arrive à mon deuxième prob (pour tout le monde ici à part moi, c'est pas un problème)... 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 = Hauteur
50 = PCode
Dim
sr1
As StreamReader =
New StreamReader(AppPath &
"\Coord.txt")
Dim i
As
Integer, j
As
Integer, LineCount
As
Integer
Dim SplitLine()
As
String
Dim intCompteur
As
Integer
LineCount = 0
For i = 0
To UBound(sr1)
If LineCount = 0
Then
ReDim Tableau(4, LineCount)
Else
ReDim
Preserve Tableau(4, LineCount)
End
If
For j = 0
To UBound(sr1)
If Trim(sr1(j)) <>
""
Then
Tableau(j, LineCount) = Trim(sr1(j))