Lecture séquentielle d'un fichier

Soyez le premier à donner votre avis sur cette source.

Vue 3 488 fois - Téléchargée 205 fois

Description

c'est tres simple, il enregistre les 2 premiers chiffres du fichier ,
puis les soustrait, puis il exchange leurs valeurs,
puis la variable deux prend la ligne suivante,
etc...,
jusqu'a nombre de votre souhait.

Source / Exemple :


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

NomFichier = "premier.dll"
    
    Open NomFichier For Input As #1
    
            Input #1, un
                
        While un < 50
            Input #1, deux
            List1.AddItem (deux - un)
            temp = deux
            deux = un
            un = temp
        Wend

    Close #1

End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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 ? ;-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.