Probleme avec les aut de ligne et retout eu chariot

Question

slt

Alors voilà mon probleme.

bui = Inet1.OpenURL("http://r.moinas.free.fr/news2.txt")
Open "c:/news3.txt" For Output As #1
Write #1, bui
Close #1

Open "c:/news3.txt" For Input As #1
While Not EOF(1)
    Input #1, a$
    If Mid$(a$, 1, 1) = "2" Then
  Combo1.AddItem (a$)
   End If

Tout d'abord mon code que je vais expliquer.

Donc je récupère dans une variable le texte qu'il y a sur un fichier "txt" qui lui-même est sur un serveur.
je créer un fichier "c/news.txt" et j'écris se qu'il y a dans la variable.
Ensuite je reouvre le fichier pour qu'il me lise le fichier texte et qu'il me mettes chaque ligne dans le combobox (mais pas a la suite).

Mon probleme est que le texte qui apparait dans le combobox est celui la:"|25/06/2004||26/06/2004||||"
Alors que j'aimerais qu'il soit comme sa:
25/06/2004
26/06/2004
s'est a dire un item créer pour chaque ligne.
y aurait-il un moyen de réaprer se probleme et si oui lequel.
Merci d'avance

cs_rene38 · Answer

Bonjour
Dans "|25/06/2004||26/06/2004||||"
que représentent les "|" ?

RMOINAS · Answer

bin les | ont l'air de représenter les char$(10) et char$(13). En fait je ne sais pas trops mais je pense que s'est sa.

J'avais oublié de dire que sur un label sa me fait un aut a la ligne automatiquement et que les | disparesse sauf que moi je veux les mettre dans un combo.

Voilà

alors?

cs_rene38 · Answer

Pour découper "|25/06/2004||26/06/2004||||"
il faut absolument savoir ce que représentent les "|".
Essaie un truc du genre
.....
Combo1.AddItem (a$)
For i = 1 To Len(a$)
Debug. Print Asc(Mid$(a$, i, 1))
Next i

RMOINAS · Answer

dsl mais sa  fait toujours pareil et de plus les | represente les aut de ligne (cette fois j'en suis sur) ainsi quue les retour e la ligne. Comment faire pour que le combo les perenne en compte?

cs_rene38 · Answer

Open "c:/news3.txt" For Input As #1
   Dim c() As String
   While Not EOF(1)
   Input #1, a$
   If Mid$(a$, 1, 1) = "2" Then
      'on remplace les vbLf par des vbCr
      a$ = Replace(a$, vbLf, vbCr)
      'on découpe avec le délimiteur vbCr
      c = Split(a$, vbCr)
      For i = 0 To UBound(c)
         If c(i) <> "" Then Combo1.AddItem c(i)
      Next i
   End If
   Wend

cs_CanisLupus · Answer

Salut,
As-tu essayé un "line input" à la place de "input" ?

Cordialement

CanisLupus

RMOINAS · Answer

Exellent merci beaucoups rene38 sa marche parfaitement.
Sa donne exactement le résultat que je voulais.

Merci encore.

Probleme avec les aut de ligne et retout eu chariot

7 réponses

Discussions similaires