Discussion :

[Danyel]

Soir all,

J'ai un probleme tout bete avec la lecture d'un fichier txt venant d'internet.
Je m'explique : je lis directement le fichier, tout d'abord la premiere ligne, puis ensuite tout le reste.
Jusque la no problemo, ensuite, je les affiche directement dans un textbox.
Mon probleme vient que les retours de ligne du fichier txt ne sont pas reproduit ou interprete par le textbox ... donc toutes les phrases se touchent et pas glop. (textbox en multiline et vertical)

Code :

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

1
2
3
4
5
Dim AccesWeb As New System.Net.WebClient
Dim Stream_Web As New System.IO.StreamReader(AccesWeb.OpenRead(Lien))
LectureNET_1 = Stream_Web.ReadLine
LectureNET_2 = Stream_Web.ReadToEnd
TextBox_2.Text = LectureNET_2

Une idee ?

[Danyel]

Je viens d'essayer avec l'encoding, mais meme probleme.

Code :

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

Dim Stream_Web As New System.IO.StreamReader(AccesWeb.OpenRead(Lien), System.Text.Encoding.Default)

[Aspic]

Lis tes lignes une par une puis rajoute un saut de ligne ou retour chariot :

Code :

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

1
2
3
4
5
6
7
8
'retour chariot
VBCRLF
'saut à la ligne
VBCRLF & VBCRLF
'exemple
Dim Mon_texte as string = "Coucou ca va ?"
Dim Suite as string = "Oui et toi ?"
Msgbox(Mon_texte & vbcrlf & Suite)

[Danyel]

Mouaip c'est une solution, mais en fait je voulais connaitre s'il y avait une solution radicale pour un ReadToEnd.

[Aspic]

Mouaip c'est une solution, mais en fait je voulais connaitre s'il y avait une solution radicale pour un ReadToEnd.

Deja je vois pas pourquoi tu as un problème d'encodage car si tes retours chariot sont bien présents dans ton fichier texte, tu devrais les retrouver dans la méthode ReadToEnd... donc en attendantn je te propose d'utiliser ReadLine

[Danyel]

C'est exactement la question que je me pose !!!
Car apres la lecture, les retours de lignes y sont dans le LectureNET_2.
Je le sais car en stoppant l'appli et en tapant dans la fenetre de commande un '? lecturenet_2' il affiche les sauts de lignes ...

Donc c'est peut etre le textbox qui ne les affichent pas ... je comprends plus là !!!

[Danyel]

Bon j'ai trouve une solution (hmmmmm) mais qui fonctionne.

Code :

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

LectureNET_2 = LectureNET_2.Replace(Chr(10), vbcrlf)

En cherchant, je me suis apercu que le chr(13) n'y est pas ... peut etre que ca vient de la.

[Aspic]

Bon j'ai trouve une solution (hmmmmm) mais qui fonctionne.

Code :

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

LectureNET_2 = LectureNET_2.Replace(Chr(10), vbcrlf)

En cherchant, je me suis apercu que le chr(13) n'y est pas ... peut etre que ca vient de la.

Pourquoi pas, sinon essaye d'afficher ton résultat directement dans une Msgbox pour voir si les sauts sont la

[Danyel]

Oui le saut de ligne y est comme deja dit plus haut.

J'ai fait des essais avec des fichiers direct venant de dd, et avec la meme config et procedure, et la les sauts de ligne sont interpretes !!!
Donc il y a une difference entre dd/web sur un meme fichier et identique.
Et seule difference que j'ai pu tracer, c'est le chr(13) qui manque pour les sauts ...

Commence a avoir des doutes sur la fiabilite de vb2005 ...

[Aspic]

Oui le saut de ligne y est comme deja dit plus haut.

J'ai fait des essais avec des fichiers direct venant de dd, et avec la meme config et procedure, et la les sauts de ligne sont interpretes !!!
Donc il y a une difference entre dd/web sur un meme fichier et identique.
Et seule difference que j'ai pu tracer, c'est le chr(13) qui manque pour les sauts ...

Commence a avoir des doutes sur la fiabilite de vb2005 ...

Bizarre ton truc.... enfin bah utilise le replace si ca marche... ou alors utilise une RTB pour afficher ton texte !

[Danyel]

Yep plus que bizarre.
Il n'y a que avec le textbox que ca deconne ...
(je vais l'effacer et le recreer pour voir un peu)

...

(5m plus tard - recreer le textbox n'a rien fait, probleme idem)