Combobox, enregistrer et ouvrir

cs_romualdino Messages postés 14 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 2 mars 2004 - 1 mars 2004 à 22:37
cs_romualdino Messages postés 14 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 2 mars 2004 - 2 mars 2004 à 10:50
Salut, j'ai un petit pbm, lorsque je sauvegarde un combobox dans un fichier txt, et que je réouvre ce fichier txt dans le combobox sa me donne sa : ""www.bachi-bouzouk.com""
et la fois d'aprés j'ai : """www.bachi-bouzouk.com"""
quelqu'un pourait-il m'aider?
voici mon code

pour enregistrer :

Open App.Path & "\data\adresse.txt" For Append As #1
For i = 0 To BarAdresse.ListCount - 1
Write #1, BarAdresse.List(i)
Next i
Close #1

pour ouvrir

dim url
Open App.Path & "\data\adresse.txt" For Input As #1
Do Until EOF(1)
Line Input #1, url
BarAdresse.AddItem url
Loop
Close #1

Merci d'avance :blush)

4 réponses

cs_romualdino Messages postés 14 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 2 mars 2004
1 mars 2004 à 23:37
ya une erreur dans le code, pour enregistrer c'est pas append mais output!
sorry, mais resou pas mon pbm
encore merci d'avance
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
2 mars 2004 à 06:23
Au lieu d'utiliser la fonction Write pour écrire dans le fichier, utilise plutôt Print, comme cà tu n'aura plus de guillemets !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0
cs_romualdino Messages postés 14 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 2 mars 2004
2 mars 2004 à 10:45
Merci beaucoup dark sidious, c'est simple en plus!!!!
0
cs_romualdino Messages postés 14 Date d'inscription lundi 10 novembre 2003 Statut Membre Dernière intervention 2 mars 2004
2 mars 2004 à 10:50
sa marche nikel, encore merci
0
Rejoignez-nous