Probleme avec les aut de ligne et retout eu chariot
RMOINAS
Messages postés98Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention16 septembre 2006
-
26 juin 2004 à 10:08
RMOINAS
Messages postés98Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention16 septembre 2006
-
26 juin 2004 à 12:38
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
A voir également:
Probleme avec les aut de ligne et retout eu chariot
RMOINAS
Messages postés98Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention16 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.
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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
RMOINAS
Messages postés98Date d'inscriptionmardi 3 février 2004StatutMembreDernière intervention16 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?
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 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