Lecture séquentielle d'un fichier

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

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.