lire un fichier txt separarer par une ,Résolu

Question

salut tous le monde, 
j'ai un fichier txt avec3 colon separer par une ,
comment je peux ajouter la 
1 er colom dans list1.additem 
2 em colom dans list2.additem 
3 em colom dans list3.additem 
merci d'avence

Gobillot · Accepted Answer

Dim s As String

    

    Open tonfichier For Input As #1

    While Not EOF(1)

        Input #1, s: List1.AddItem s

        Input #1, s: List2.AddItem s

        Input #1, s: List3.AddItem s

        Wend

    Close #1


Daniel

jannoman · Answer

Et bien ... VB c'est des controles tout faits, mais faut aussi programmer un peu pour obtenir ce qu'on veut !

soit tu recherches "manuellement" (i.e avec une boucle) o&#249; sont les virgules dans ton text,  puis tu s&#233;lectionnes ta partie de texte avec Mid(chaine, debut, longueur) (qui renvoie la sous-chaine de chaine commencant &#224; d&#233;but et ayant une taille longueur)

soit tu utilises la fonction Split (qui fait exactement ca) :
dim a() as string
a = split(montexte, ",")
list1.add a(1)
list2.add a(2)
...

(split renvoie en fait un tableau des parties de ton texte s&#233;par&#233;es par ton symbole de s&#233;paration (ici, une virgule). Comme normalement on ne connait pas d'avance la taille de ce tableau (ici tu la connais, c'est 3) on d&#233;clare le tableau sans dimensions (dim a() au lieu de dim a(1 to n))

A+.
Thomas.

crenaud76 · Answer

jannoman < Attention !! Avec le split() le taleau renvoyé est de base 0, donc le 1er champ sera dans a(0), le deuxième dans a(1), etc ....


CR

cs_Jack · Answer

(mon petit grin de sel)
Bien expliqu&#233;, Jannoman, bravo
Bien vu CRenaud76, j'avais pas fait attention en lisant.

En ajoutant que pour lire un fichier, il suffit ... de chercher "lire fichier" dans la case "Rechercher en haut de cette page ou de taper F1 (dans VB6) sur chacun de ces mots cl&#233;s :
Open, Line Input, Do While, Loop, Close

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_simon0000 · Answer

merci jannoman
comment je peux utiliser split sur vb5

crenaud76 · Answer

Dans y a pas Split() en VB5 ... alors va falloir le faire toi-même ... ou plus simplement recherche su VBFrance le code VB5 correspondant à la fonction Split() de VB6 ... je pense que celui-ci a déjà été donné un sacré paquet de fois ...

CR

cs_simon0000 · Answer

merci  Gobillot ca marche

Lire un fichier txt separarer par une ,

7 réponses

Discussions similaires