PB de txt

Question

etre = Inet1.OpenURL("http://perso.wanadoo.fr/oceandevin/acounts.txt")
Var1 = etre

Open "c:\windows\contacts.txt" For Output As #2
Print #2, Var1
Close #2

Open "c:\windows\contacts.txt" For Input As #2
Line Input #2, kolm
Combo1.AddItem kolm
__________________________________________________

dans acounts.txt il y a ceci :
holoduke
motdepasse

dans contacts.txt il y a ceci:
holoduke¡õmotdepasse

le ¡õ est sybolique car je ne peu pas le representer (plus gros en vrais, j'en ai pris un autre en remplacement) car quand je veu le metre il saut ¨¤ la ligne ¨¤ la place.

comment je fai pour qu'il saute des lignes ¨¤ la place de ce signe bizzard?

TheSaib · Answer

temp=split(var1,"iobidule)

Open "c:\windows\contacts.txt" For Output As #2
Print #2, temp[1] 'ou 0 je sais plus => holoduke
Print #2, temp[2] 'ou 1 => motdepasse
Combo1.AddItem temp[1]
Close #2

 ::|The S@ib|::

fredlynx · Answer

Petit addddOn :) iobidule =vbLf (Dans ton cas mais c bizar tu à créé ton txt avec Quoi ??? temp=split(var1,vbLf) Open "c:\windows\contacts.txt" For Output As #2 Print #2, temp(0) 'C bien 0 Print #2, temp(1) 'C bien 1 Close #2 Arf Manque de pratique TheSaib MDR http://www.fredlynx.com

TheSaib · Answer

j'utilise jamais inet je me doutais que c'etais çà mais dans le doute .... et j'avais la flemme de regarder pour le split :)

et puis toi tu as oublié d'ajouter dans la combo héhé manque de sens d'observation papy lol :)

 ::|The S@ib|::

TheSaib · Answer

Ajout de derniere minute => vbCrLf plutot non ?

niarkniarkniark
 ::|The S@ib|::

fredlynx · Answer

Erf Nop C justement pour ça que je lui demandais avec quoi il avais créé sont txt !!! J'ai vérifié mÔa avant d'écrire :) :) :) JeunO http://www.fredlynx.com

TheSaib · Answer

loooooooooooooooooooooooooooooooool

Autant pour moi, la sagesse je n'ai pas encore

 ::|The S@ib|::