Discussion :

[Petit padawan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[elflamby]

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

[Petit padawan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 de CFG...si tu as un exemple ?

Par avance merci

[Petit padawan]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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