LECTURE SÉQUENTIELLE D'UN FICHIER

Signaler
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
Messages postés
180
Date d'inscription
vendredi 4 juillet 2003
Statut
Membre
Dernière intervention
8 août 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20254-lecture-sequentielle-d-un-fichier

Messages postés
180
Date d'inscription
vendredi 4 juillet 2003
Statut
Membre
Dernière intervention
8 août 2011
1
j'ai fait ce code en 10 min, car un membres me l'a demandé et oui ont peut faire

un=deux

la modif que tu a fait, je viens de m'en rendre compte grace a toi, car on m'avait demandé jusqu'a 50, mais ce n'est pas un vrai, seulement une aide.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
Ah oui, au passage, si tu ne corriges pas ton code comme ceci, tu vas avoir un dépassement de fin de fichier si aucun nombre >50 n'est trouvé. :


Dim un, deux As Integer
Dim NomFichier As String
Private Sub CmdOk_Click()

NomFichier = "c:\toto.txt"

Open NomFichier For Input As #1

Input #1, un

While un < 50 And Not EOF(1) 'La modif est ici
Input #1, deux
List1.AddItem (deux - un)
un = deux
Wend

Close #1

End Sub
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
Euh .. pareil.
De plus, les 3 lignes

temp = deux
deux = un
un = temp

peuvent se résumer ainsi :

un=deux

bah vi, quel intérêt de mettre "un" dans "deux" puisque juste derrière tu fais un input#1,deux ?


Bref, si je résume bien le code, çà ressemble à çà :
Tant qu'on a pas trouvé un nombre supérieur à 50 dans le fichier, on ajoute dans une liste la différence entre le nombre trouvé et le précédent nombre du fichier ... G bon ? :o)
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005

Je vois pas trop à quoi ça sert à vrai dire ? ;-)