acces a un fichier sequentiel

Ma question est simple.

J'ai un fichier texte qui comprend des coordonnées

EX: 250 50
150 30
30 60

Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.

Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).

merci oli

Bonjour

Qui a créé le fichier texte ? Toi ? Il est tout fait ?



-------------------------------
Réponse au message :
-------------------------------

> Ma question est simple.
>
> J'ai un fichier texte qui comprend des coordonnées
>
> EX: 250 50
> 150 30
> 30 60
>
> Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.
>
> Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).
>
> merci oli

Open "nom_de_fichier" For Input As 1 'ouverture du fichier
i=0
Do While Not EOF(1) ' Vérifie si la fin du fichier est atteinte.
Line Input #1, a,b ' Lit les lignes de données.
tab(i,1)=a
tab(1,2)=b
i=i+1
Loop
close #1

Normalement, ça marche
Jerome




-------------------------------
Réponse au message :
-------------------------------

> Ma question est simple.
>
> J'ai un fichier texte qui comprend des coordonnées
>
> EX: 250 50
> 150 30
> 30 60
>
> Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.
>
> Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).
>
> merci oli

je pense pas que ce soit le plus efficace, mais ça peut aider...
le tableau s'appelle T, le fichier est c:\données.txt
(j'ai vb5 mais je pense que ça marche avec les autres)


Dim tmp As String, i As Integer, nombre As String
Dim x As Integer, y As Integer
x = 1
y = 1
Open "c:\données.txt" For Input As #1
Do
Input #1, tmp
i = 1
Do
If Mid(tmp, i, 1) = " " Then
t(x, y) = CInt(nombre)
x = x + 1
nombre = ""
Else
nombre = nombre & Mid(tmp, i, 1)
End If
i = i + 1
Loop While i <= Len(tmp)
t(x, y) = CInt(nombre)
nombre = ""
x = 1
y = y + 1
Loop Until EOF(1)
Close #1

l'idée c'est de prendre chaque ligne, et de copier les carractères tant qu'on a pas un espace, si on en a un, on met dans le tableau, puis on passe à l'élément suivant du tableau, ...

voilà, j'espère que ça t'aide....
(je l'ai essayé, ça fonctionne :-))


-------------------------------
Réponse au message :
-------------------------------

> Ma question est simple.
>
> J'ai un fichier texte qui comprend des coordonnées
>
> EX: 250 50
> 150 30
> 30 60
>
> Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.
>
> Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).
>
> merci oli

Line Input lit une ligne : a ou b mais pas a, b



-------------------------------
Réponse au message :
-------------------------------

>
> Open "nom_de_fichier" For Input As 1 'ouverture du fichier
> i=0
> Do While Not EOF(1) ' Vérifie si la fin du fichier est atteinte.
> Line Input #1, a,b ' Lit les lignes de données.
> tab(i,1)=a
> tab(1,2)=b
> i=i+1
> Loop
> close #1
>
> Normalement, ça marche
> Jerome
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Ma question est simple.
> >
> > J'ai un fichier texte qui comprend des coordonnées
> >
> > EX: 250 50
> > 150 30
> > 30 60
> >
> > Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.
> >
> > Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).
> >
> > merci oli
>

Bonsoir

Si tu es sûr que chaque ligne du fichier contient 2 nombres séparés par un(des) espace(s) ou une(des) tabulation(s) ou une virgule :

Dim Tableau() As Integer 'si ce sont des entiers
Dim i As Integer 'compteur
Open "C:\fichier.txt" For Input As #1
Do While Not EOF(1)
Input #1, a, b
i = i + 1
ReDim Preserve Tableau(1 To 2, 1 To i)
Tableau(1, i) = a: Tableau(2, i) = b
Loop
Close 1

Le premier indice (1 To 2) est le numéro de colonne (car on ne peut pas le redimensionner) ; le second indice est le numéro de ligne

-------------------------------
Réponse au message :
-------------------------------

> Ma question est simple.
>
> J'ai un fichier texte qui comprend des coordonnées
>
> EX: 250 50
> 150 30
> 30 60
>
> Une fois le fichier ouvert je veux pouvoir lire les données ligne par ligne et je veux stocker ces coordonnées dans un tableau dynamique a deux dimensions.
>
> Je ne sais pas comment faire pour placer le premier nombre d'une ligne dans le tableau (ex: T(1, 1) = 250 et ensuite lire le deuxieme nombre de la ligne et le stocker ailleurs dans le tableau (ex : T(1, 2) = 50).
>
> merci oli