Fichier Random en VB2008

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

Answer 1

Bonsoir, peut être :

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

Answer 2

Bonjour,

Est-ce que vous avez testé les solutions proposées ? Merci de partager avec nous les résultats, afin que d'autres personnes avec le même problème puissent profiter de cette solution.

Cordialement,

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

Answer 3

Bonjour,

Je met la réponse de Guyome valide, si cela ne convient pas n'hésiter pas revenir et de poursuivre votre demande.

On ne vois pas très bien la fin de la ligne que Guyome41 a mis, le "+ vbCrLf" signifie "Représente un caractère de retour chariot mixé avec un caractère de retour de ligne" c'est l'équivalent de la touche "ENTREE" de votre clavier

Pour information : vbCrLf

Pour plus de performance je vous conseil aussi d'utiliser les méthodes .net, voir les liens ci-dessous 
File --> http://msdn.microsoft.com/fr-fr/library/system.io.file(v=vs.110).aspx
My.Computer.FileSystem  --> http://msdn.microsoft.com/fr-fr/library/0b485hf7(v=vs.90).aspx
StreamReader --> http://support.microsoft.com/kb/315828/fr

A bientot

---

Cordialement,