Recuper des données dans un fichier [Résolu]

Signaler
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006
-
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006
-
salut a tous jai besoin pour récupere des donnée numerique dans un fichier sequentiel



j'explique



le contenue du fichier est comme ceci



15

20

30

par ex je voudrais récuperer la valeur 20 qui se trouve dans le fichier
et la mettre dans un textbox comment faire merci d'avance

avec un code avec des explication c'est ma prog pour le sujet de bts informatique de gestion



merci beaucoup

17 réponses

Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

Bon alors, d'après ce que j'ai compris tu devrais plutot faire un truc comme ça:

i=1
do while not eof(intNumFile)

Line Input #intNumFile, strUneLigne

select case i
case 1 ' Ligne 1
txtboxX.text = strUneLigne
case 2 'Ligne 2
txtBoxY.text = strUneligne
case 3 'Ligne 3
txtBoxZ.text = strUneLigne
end select

i=i+1 'Ainsi, à chaque boucle, tu sais à quelle ligne tu est rendu.

loop

Je pense que ce sera plus clair pour toi et pour ton futur correcteur...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
apparemment c'est tous des numéros à 2 chiffres.

donc enregistrement de longueur fixe: 2 + Vbcrlf = 4 caractères.

si c'est le cas on a accès direct à l'enregistrement





Dim num As integer

Dim Str As  String * 4

num = 2 

Open
<var>"c:\stage\test.txt"</var>
For
Random
 As #1 Len = 4


Get#1,num, Str

Zone.Text = Str

Close
#1


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

exemple de code:

dim intNumFile as integer
dim intVal as integer
dim strUneLigne as string

intnumfile = freefile
'freefile revoie un identifiant de fichier ouvert libre

open "<Chemin fichier>" for intput as #intnumfile
'Ouverture du fichier en mode lecture

do while not eof(intNumFile)
Line Input #intNumFile, strUneLigne
'Cette boucle remonte les lignes du fichier une par une dans strUneLigne


loop

Close #intNumFile 'Fermeture du fichier
azertyytreza
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

ça te vas?
En cherchant un peu, tu aurais certainement trouvé ça déjà fait sur le forum...
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

par contre g déclaré un intval qui sert à rien...
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

aujoud'hui jai vraiment du mal
le code est bien
je recuper comment le 20 pour le mettre dans le textbox
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

voici mon et jai mis ton code avant

<LI>
</LI>

<LI>
Dim
Chaine As
String
</LI>
<LI></LI>
<LI><SAMP>'Ouverture</SAMP></LI>
<LI></LI>
<LI>
Open
<VAR>"c:\stage\test.txt"</VAR>
For
Input
As #1</LI>
<LI></LI>
<LI><SAMP>'Boucle de parcours séquentiel</SAMP></LI>
<LI></LI>
<LI>Zone.Text = <VAR>""</VAR> <SAMP>'Vide la zone de texte</SAMP></LI>
<LI></LI>
<LI>
Do
While
Not
EOF
(1) <SAMP>'Tant que la fin de fichier n'est pas atteinte</SAMP></LI>
<LI></LI>
<LI>
Input
#1, Chaine</LI>
<LI></LI>
<LI>Zone.Text = Zone.Text & vbCrLf & Chaine</LI>
<LI></LI>
<LI>Loop</LI>
<LI></LI>
<LI><SAMP>'Fermeture</SAMP></LI>
<LI></LI>
<LI>
Close
#1</LI>
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

Dans ta boucle:

do while not eof(intNumFile)
Line Input #intNumFile, strUneLigne
'Cette boucle remonte les lignes du fichier une par une dans strUneLigne.
'ça va boucler ici une fois par ligne de ton fichier. Dans ton
'exemple tu auras donc successivement dans strUneLigne
'15 puis 20, puis 30. A toi d'en faire ce que tu veux...

loop
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

stp de me faire un exemple
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

Tu veux remonter forcément la deuxième ligne, c'est ça?
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

oui et non en faite chaque nombre correspond des donnée bien précis qui doivent etre dans un textbox chaqu'une
juste un exemple avec le 20 qui se trouve dans le fichier
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

Oui, mais qu'est ce qui détermine que ce soit CETTE ligne qu'il faut copier dans la testBox plutot qu'une autre?
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

c'est moi qui va le ternimer grace une appel d'une fonction

par exemple le 3 textbox 4

alors
call nomfonction(numero de ligne,nom textbox)
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006

désolé, mais c'est une impression ou il manque des lignes dans ton dernier message, je comprend^pas bien ce que tu veux dire...
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

c'est moi qui va déternimer grace une appel d'une fonction

par exemple la ligne 3 du fichier qui contient 40 qui est destiner au textbox 4

donc moi par la suite je ferai une fonction

call nomfonction(numero de ligne,nom textbox)

qui va introduire le numero de ligne que je veux dans le fichier et le textbox qui lui appartient

c'est mieu merci
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

ok surper je te remerci

beaucoup
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

ok merci a tous