Listview lecture écriture

SAlut,

J'aimerais pouvoir lire dans un fichier .cfg (dont la structure ressemble à un .ini) et modifier au besoin la valeur d'un key si l'usager le souhaite.

le modèle du cfg est:

Code:

---

1 2 3 4 5

[rubrique] item.0=10, 15, 1 item.1=12, 11, 5 item.2=17, 15, 3 etc...

---

Donc, j'ai une listview.

Je vais chercher une valeur avec:

Code:

---

Dim rubrique As String = ReadCfgValue(path, "rubrique", "item.0")

---

Le premier problème est que dans la rubrique il peut y avoir
item.0
item.1
item.2
etc...

Sans que je connaisse le nombre exact d'item à l'avance...Comment lire donc tous les items qui commencent par "item" et les intégrer dans la colonne de ma listview.

Pour l'instant, j'arrive à entrer l'item.0 en ne gardant que la première valeur (qui m'intéresse)

avec:

Code:

---

1 2 3 4 5

Dim MyArray() As String Dim MyString As String MyString = (rubrique) MyArray = Split$(MyString, ",") ListviewItems(0).SubItems(1).Text = (MyArray(0))

---

Ensuite, je souhaite que lorsque l'usager clique sur l'un des items de ma listview, il puisse changer la valeur et la sauver dans son fichier cfg.

Bon voilà, si vous avec une idée.

Si c'est un fichier avec un Item par ligne jpense qu'il est possible de faire un split par ligne via le caractére de retour à la ligne char(13) ou char(10) je sais plus :/

Aprés faire un traitement ligne par ligne pour récuperer tous les éléments
Une fois le stockage effectué dans la listeview la logique pour la copie de liste dans le fichier coulera de source je pense :)

En fait pour l'instant je m'en sors mal avec un truc du genre.

Code:

---

EntireString = EntireString.Replace(item.0, ListView1.Items(0).SubItems(1).Text)

---

Naturellement le souci est qu'il me supprime tout ce qui vient après la ","

Alors que je voudrais un truc genre
item.0=100, 15, 1

il me met:
item.0=100

En fait, si je pouvais faire genre:
Si j'ajoute dans le CFG la nouvelle valeur de l'item.0 et dès qu'il rencontre une ",", il passe à la ligne (donc sans rien changer de ce qui suit sur cette ligne) j'aurais fini le code pour le prog...resterait plus que le design. Maintenant, j'ai aucune idée comme y arriver avec ce :arf: de CFG...si tu as un exemple ?

Par avance merci :)

Bon finalement j'ai résolu avec la recherche de position de caractère.

Code:

---

1 2	Position = InStr(item.0, ",") TextBox1.Text = Replace(TextBox1.Text, Mid$(TextBox1.Text, 1, Position - 1), ListView1.Items(0).SubItems(1).Text & ".0")

---