Parcourir un fichier *.txt
Résolu
jfulon
Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
6 décembre 2007
-
26 mai 2005 à 09:39
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 26 mai 2005 à 10:28
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 26 mai 2005 à 10:28
2 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
26 mai 2005 à 10:28
26 mai 2005 à 10:28
En plus simple :
' Ecriture
Open "C:\toto.txt" For Output As #1
Print #1,"une première ligne de texte"
Print #1,"une deuxième ligne de texte"
Close #1
' Lecture
Open "C:\toto.txt" For Input As #1
While Not EOF(1) ' tant qu'on n'est pas à la fin du fichier ...
Line Input #1,sTemp ' charge la donnée
MsgBox sTemp ' affiche la donnée
Wend
Close #1
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
' Ecriture
Open "C:\toto.txt" For Output As #1
Print #1,"une première ligne de texte"
Print #1,"une deuxième ligne de texte"
Close #1
' Lecture
Open "C:\toto.txt" For Input As #1
While Not EOF(1) ' tant qu'on n'est pas à la fin du fichier ...
Line Input #1,sTemp ' charge la donnée
MsgBox sTemp ' affiche la donnée
Wend
Close #1
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cs_tibo830
Messages postés
22
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
26 mai 2005
26 mai 2005 à 10:10
26 mai 2005 à 10:10
Je te donne ici deux exemple tirés de mes programmes. L'un montre l'écriture et l'autre montre la lecture!
'ecriture
a = cmb_modif_nom.Text
b = txt_modif.Text
j = 1
Open "C:\fichier_fournitures" For Random Access Read Write As #1
Do While Not EOF(1)
Get #1, j, b_action
If b_action.nomprod a And Option1.Value True Then
b_action.ref_nomenc = b
End If
If b_action.nomprod a And Option2.Value True Then
b_action.ref_gibus = b
End If
Put #1, j, b_action
j = j + 1
Loop
Close #1
' lecture
Open "C:\fichier_fournitures" For Random Access Read As #1
j = 1
Do While Not EOF(1)
Get #1, j, b_action
If nomproduit = b_action.nomprod Then
lbl_refnom.Caption = b_action.ref_nomenc
Label3.Caption = b_action.ref_gibus
lbl_article.Caption = nomproduit
lbl_article.Visible = True
Label14.Caption = b_action.compte
Label14.Visible = True
End If
j = j + 1
Loop
Close #1
'ecriture
a = cmb_modif_nom.Text
b = txt_modif.Text
j = 1
Open "C:\fichier_fournitures" For Random Access Read Write As #1
Do While Not EOF(1)
Get #1, j, b_action
If b_action.nomprod a And Option1.Value True Then
b_action.ref_nomenc = b
End If
If b_action.nomprod a And Option2.Value True Then
b_action.ref_gibus = b
End If
Put #1, j, b_action
j = j + 1
Loop
Close #1
' lecture
Open "C:\fichier_fournitures" For Random Access Read As #1
j = 1
Do While Not EOF(1)
Get #1, j, b_action
If nomproduit = b_action.nomprod Then
lbl_refnom.Caption = b_action.ref_nomenc
Label3.Caption = b_action.ref_gibus
lbl_article.Caption = nomproduit
lbl_article.Visible = True
Label14.Caption = b_action.compte
Label14.Visible = True
End If
j = j + 1
Loop
Close #1