Probleme avec les aut de ligne et retout eu chariot

RMOINAS Messages postés 98 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 16 septembre 2006 - 26 juin 2004 à 10:08
RMOINAS Messages postés 98 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 16 septembre 2006 - 26 juin 2004 à 12:38
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

7 réponses

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 juin 2004 à 10:46
Bonjour
Dans "|25/06/2004||26/06/2004||||"
que représentent les "|" ?
0
RMOINAS Messages postés 98 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 16 septembre 2006
26 juin 2004 à 11:03
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?
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 juin 2004 à 11:12
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
0
RMOINAS Messages postés 98 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 16 septembre 2006
26 juin 2004 à 11:23
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?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 juin 2004 à 11:44
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
0
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 18
26 juin 2004 à 11:48
Salut,
As-tu essayé un "line input" à la place de "input" ?

Cordialement

CanisLupus
0
RMOINAS Messages postés 98 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 16 septembre 2006
26 juin 2004 à 12:38
Exellent merci beaucoups rene38 sa marche parfaitement.
Sa donne exactement le résultat que je voulais.

Merci encore.
0