none
Fichier Random en VB2008 RRS feed

  • Question

  • Bonjour à tous,

    Débutant en programmation VB2008 Express, si je n'ai aucun problème pour afficher dans un textBox, 1 enregistrement

    précis d'un fichier Random, je ne parviens pas à afficher LA TOTALITE du fichier dans un textBox(multilignes = True), à raison

    d'une ligne par enregistrement.Le code ci-dessous n'affiche QUE le dernier enregistrement .Merci de me dépanner.

    Extrait du code:

    FileOpen(1,"C:RANDOMFICH.TXT",OpenMode.Random, , , RecLength)

    Dim x as Integer = 1

    While Not EOF(1)

    FileGet(1,UneAdresse,x)

    txtLecture.Text = UneAdresse.Nom + UneAdresse.Prénom+ UneAdresse.Ville

    x=x+1

    End While

    File Close(1)

    End Sub

    vendredi 29 novembre 2013 17:24

Réponses

Toutes les réponses