Ecrire une liste dans un fichier .ini? coup de pouce plzRésolu

Question

quelqu'un peut m'aider
Je crois que lors de la fin de la sauvegarde la commande print se prepare a ecrire sur une autre ligne et sauvegarde la liste ainsi, mais j'aurais besoin qu'il ne le fasse pas, sinon si j'essais de rajouter quelque chose a ma liste j'ai un espace entre mes item

Function ChargeListe()
Dim item As String
Open "c:\Favori.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, item 
List1.AddItem (item)
Loop
Close #1
End Function

Function SauveListe()
Dim cpt4 As Integer
Dim ligne As String
Open "c:\Favori.ini" For Output As #2 'Écriture
For cpt4 = 0 To List1.ListCount 'du premier au dernier item de la listbox
ligne = List1.List(cpt4) 'met l'item dans la variable ligne
Print #2, ligne
Next 'retour a For
'manque quelque chose ici  ex.(Print -1)
'ne riez pas j'suis debutant
Close #2
End Function

et aussi comment je pourrais faire pour recuperer 
le chiffre 1110808 dans ces chaines avec la commande instr( , ,  ) je crois

javascript:playVideos(1110808);

http://today.launch.yahoo.com/player/player.asp?cid=512&ps=&sx=ondemand%2Exml&vid=1110808

svp merci  8-)

crenaud76 · Accepted Answer

Au chargement vérifie que la chaine "Item" n'est pas vide avec de faire ton additem.

If lenb(item)<>0 then List1.Additem Item


Christophe R.

cs_ITALIA · Answer

Elle est pas clair ta Ligne :

For cpt4 = 0 To List1.ListCount 

Si tu commences à la Ligne 0 il faut Finir à la Ligne List1.ListCount 
-1 ???

It@li@

cs_trouduc · Answer

merci beaucoup ce probleme est reglé
et tu n'aurais pas une idée pour ma recup??

Ecrire une liste dans un fichier .ini? coup de pouce plz

3 réponses

Discussions similaires