Discussion :

[hari37]

Bonjour,

Je suis tout nouveau dans la programmation sous VB, et je souhaiterais un coup de main sur un petit problème qui je pense ne sera pas compliqué pour vous...

Voilà, j'ai à lire un fichier texte, et je dois lire chaque ligne de ce fichier puis en extraire chaque mot pour les afficher à l'écran les uns sous les autres grace à un <BR>...

Pour le moment, j'ai fais ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
lecture = New StreamReader(flux)
            Do
                ligne = lecture.ReadLine()
                pos = InStr(index, ligne, " ")
                mot = ligne.Substring(index, pos)
                Response.Write(mot)
                Response.Write("</BR>")
 
            Loop Until ligne Is Nothing

Je pense que le prob est que je ne lis qu'une seule ligne et que je en passe jamais à la suivante, non ?

merci d'avance

[mexong]

Salut,

Je pense que tu devrais commencer par regarder sur le net et sur les forums avant de demander.

Tu trouveras ta réponse là http://faqvbnet.developpez.com/?page...adwritetxtfile

Concernant ton code je pense que tu dois placer un "ligne = lecture.ReadLine()"
avant ton "Do" car sans cela ta ligne = nothing et donc tu ne rentre pas dans la boucle.

De plus, place "ligne = lecture.ReadLine()" à la fin de ta boucle car sans cela, tu levera une exception lors de ton dernier passage.

++

[hari37]

Merci ça m'aide, j'avais déjà jeté un coup d'oeil à cette FAQ, mais je ne trouve pas comment lire mot à mot les lignes de mon fichier en cherchant par exemple les blancs qui les sépare....

[mexong]

Ok,

je pense que le plus simple est d'utiliser "split" qui permet de découper une chaine de caractere et de placer les résultats dans un tableau.

Par exemplen

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        Dim maPhrase As String = "salut c'est ma phrase à découper"
        Dim monTabMot() As String = maPhrase.Split(" ")
        For Each mot As String In monTabMot
            MessageBox.Show(mot)
        Next

[A2rem]

Salut,

Concernant ton code je pense que tu dois placer un "ligne = lecture.ReadLine()"
avant ton "Do" car sans cela ta ligne = nothing et donc tu ne rentre pas dans la boucle.

++

je ne suis pas d'accord avec ton affirmation.
essaie ça pour t'en convaincre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  Dim ligne As String = Nothing
        Do
            MsgBox("je raconte des bêtises")
        Loop Until ligne Is Nothing

[hari37]

OK, c'est parfait, merci encore !

[mexong]

je ne suis pas d'accord avec ton affirmation.

effectivement, merci d'avoir rectifié ;-)