LECTURE ET AFFICHAGE D'UN FICHIER TEXTE ???

Question

Bonsoir,

Je souhaite :
-1- Ouvrir
-2- Lire
-3- Afficher
Un fichier texte dans une textBox, avec prise en compte
des retour à la ligne présent dans ce fichier texte.
La méthode que j'utilise ne semble pas fonctionner, ou tout
du moins aprés avoir gratter sur le disque sur un fichier
texte trés lisible depuis le Bloc-notes, il ne m'affiche
que des signes cabalistiques qui semble être les vbCrLf
de ma méthode...
________________________________________________________
La méthode que j'utilise est :
        Affiche_Fichier.Text = ""
        Open Fichier_a_Lire For Input As #1
        Do
         'Lecture d'une ligne
         Line Input #1, Ligne_Lue
         Affiche_Fichier.Text = Affiche_Fichier.Text + _
         Ligne_Le + vbCrLf
         Loop Until EOF(1)
        'Fermeture du fichier
        Close #1

__________________________________________________________

Par avance merci de votre aide.

Daniel

Pascal MILLIEZ · Answer

Essaye ça... et ça marche Ton erreur : 'Ligne_Le' est mal orthographié. Il devrait être 'Ligne_Lue' Sinon, utilise plutôt & à la place de + pour gérer les chaines du String Sinon, si tu ne mets pas le "VBCRLF" alors si par exemple tu as 1 dans la première ligne et 2 dans la seconde, ton texte risquerait d'être transformé en 3 (1+2=3) Pis sinon, je suis habitué à utiliser Do While Not à la place de loop util c'est pour cela que j'ai effectué la modification. Affiche_Fichier.Text = "" Open Fichier_a_Lire For Input As #1 Do While Not EOF(1) = True 'Lecture d'une ligne Line Input #1, Ligne_Lue Affiche_Fichier.Text = Affiche_Fichier.Text & Ligne_Lue & vbCrLf Loop 'Fermeture du fichier Close #1 Salutations Pascal MILLIEZ Pascal98@hotmail.com

max-imum · Answer

Et dans ce bout de code...tu n'affiches que une ligne? Comment fais tu pour lire les lignes suivantes???

Thanx.

Yes...i'm a newbie....

LECTURE ET AFFICHAGE D'UN FICHIER TEXTE ???

2 réponses

Discussions similaires