recuper des données dans un fichierRésolu

Question

salut a tous jai besoin pour r&#233;cupere des donn&#233;e numerique dans un fichier sequentiel



j'explique



le contenue  du fichier est comme ceci



15

20

30

par ex je voudrais r&#233;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

florantanplan · Accepted Answer

Bon alors, d'apr&#232;s ce que j'ai compris tu devrais plutot faire un truc comme &#231;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, &#224; chaque boucle, tu sais &#224; quelle ligne tu est rendu.

 loop

Je pense que ce sera plus clair pour toi et pour ton futur correcteur...

florantanplan · Answer

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

florantanplan · Answer

&#231;a te vas?
En cherchant un peu, tu aurais certainement trouv&#233; &#231;a d&#233;j&#224; fait sur le forum...

florantanplan · Answer

par contre g d&#233;clar&#233; un intval qui sert &#224; rien...

boss2000 · Answer

aujoud'hui jai vraiment du mal 
le code est bien
je recuper comment le 20 pour le mettre dans le textbox

boss2000 · Answer

voici mon et jai mis ton code avant

Dim Chaine As String

'Ouverture

Open "c:\stage est.txt" For Input As #1

'Boucle de parcours séquentiel

Zone.Text = "" 'Vide la zone de texte

Do While Not EOF(1) 'Tant que la fin de fichier n'est pas atteinte

Input #1, Chaine

Zone.Text = Zone.Text & vbCrLf & Chaine

Loop

'Fermeture

Close #1

florantanplan · Answer

Dans ta boucle:

do while not eof(intNumFile)
   Line Input #intNumFile, strUneLigne
   'Cette boucle remonte les lignes du fichier une par une dans strUneLigne.
   '&#231;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

boss2000 · Answer

stp de me faire un exemple

florantanplan · Answer

Tu veux remonter forc&#233;ment la deuxi&#232;me ligne, c'est &#231;a?

boss2000 · Answer

oui  et non en faite chaque nombre correspond  des donn&#233;e bien pr&#233;cis qui doivent etre dans un textbox chaqu'une 
juste un exemple avec le 20 qui se trouve dans le fichier

florantanplan · Answer

Oui, mais qu'est ce qui d&#233;termine que ce soit CETTE ligne qu'il faut copier dans la testBox plutot qu'une autre?

boss2000 · Answer

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)

florantanplan · Answer

d&#233;sol&#233;, mais c'est une impression ou il manque des lignes dans ton dernier message, je comprend^pas bien ce que tu veux dire...

boss2000 · Answer

c'est moi qui va d&#233;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

Gobillot · Answer

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 "c:\stage est.txt" For Random As #1 Len = 4 Get#1,num, Str Zone.Text = Str Close #1 Daniel

boss2000 · Answer

ok surper je te remerci

beaucoup

boss2000 · Answer

ok merci a tous

Recuper des données dans un fichier

17 réponses

Discussions similaires