Lister un Fichier txt

embt Messages postés 4 Date d'inscription lundi 31 mars 2003 Statut Membre Dernière intervention 4 avril 2007 - 4 oct. 2005 à 18:51
a1l2i3z4e5e Messages postés 9 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 30 janvier 2012 - 4 oct. 2005 à 19:48
Bonjour,

Lorsque que je lis un fichier txt , ligne par ligne et que sur une des ligne je rencontre une virgule,
Pourquoi j'ai un retour chariot,
Comment le supprimer, et conserver cette vigule dans la variable.
voilà le code donht je me sers

Open App.Path & "\test.txt" For Input As #1
While Not EOF(1)
Input #1, Ligne
Wend

par avance, merci

2 réponses

cs_Death Angel Messages postés 52 Date d'inscription mercredi 11 juillet 2001 Statut Membre Dernière intervention 3 février 2007
4 oct. 2005 à 19:37
salut, essai ça

Dim Ligne as String
Open (App.Path & "\test.txt") for input as #1
Do
Line Input #1, Ligne
Text1.Text = Text1.Text & Ligne
Loop Until EOF(1)
0
a1l2i3z4e5e Messages postés 9 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 30 janvier 2012
4 oct. 2005 à 19:48
ok
0
Rejoignez-nous