Lire .INI

Bonjour,


J'aimerais avoir un peu d'aide pour pour mon programme que j'ai commencé. Bon, je me suis fais un ListBox et lorsque qu'on clique sur les items cela donne des statistiques. Je voudrais savoir comment lire sur un .INI (Ça je sais un peu comment) mais je voudrais que les valeurs dans sois séparer dans des Labels différentes. Voici un exemple pour mieux comprendre :P

(Dans le fichiers INI)

[Animaux]
Loup=65,74,36,63,63,55,35,C,
Lapin=42,63,25,67,32,68,43,S
Cheval=98,27,91,15,47,83,46,A

Bon je voudrais que, exemple, que le premier nombre de chaque Variable sois dans la Label lblA, que le 2e nombre de chaques variables sois dans lblB, etc...

Voila! J'aimerais que vous me disez ou trouver un code source pour faire cela ou me faire un exmple (pas tros compliquer, car je commence à programmer)

Merci beaucoup :)

il y a une solution tres simple puisque tes valeur sont séparées par des virgules.

tu recupere la valeur de loup par exemple. ce qui te donne:
val = "65,74,36,63,63,55,35,C"
tu fait dim temp() as string
temp = split(val,",")
ceci a pour effet de stocker chaque valeur séparée par une virgule dans une variable différente.
ensuite, tu devrai mettre un index dans les propriétés de tes labels.
ce qui fait que tu te retrouve avec un tableau de labels.
label1(0)
label1(1)
label1(2)
etc...
puis tu charge tes valeurs dans tes labels:
for i = 0 to ubound(temp)
lable1(i).caption = temp(i)
next

la fonction ubound(temp) renvois le dernier index du tableau temp

K@zuya

Bon, je n'arrive pas à faire fonctionner mon programme :(. Premierement je ne peux pas mettre de ( ) dans les nom des Labels. Puis peut-être l'emple ne fonctionne pas avec la thecnique que j'utilise. La voici:

Dim lpReturnString$, Size%, Valid%, Path$

lpReturnString$ = Space$(128)
Size% = Len(lpReturnString$)

Valid% = GetPrivateProfileString(strClass, strPerso, _
"", lpReturnString$, _
Size%, App.Path & "\\Human.INI")

Path$ = Left$(lpReturnString$, Valid%)
lblStat1.Caption = Path$

Pensez-vous me dire quoi ajouter et où les écrire. C'est le seul problème qui m'énerve dans mon programme et j'aimerais en finir!!

Merci encore

Bon, je n'arrive pas à faire fonctionner mon programme :(. Premierement je ne peux pas mettre de ( ) dans les nom des Labels. Puis peut-être l'emple ne fonctionne pas avec la thecnique que j'utilise. La voici:

Dim lpReturnString$, Size%, Valid%, Path$

lpReturnString$ = Space$(128)
Size% = Len(lpReturnString$)

Valid% = GetPrivateProfileString(strClass, strPerso, _
"", lpReturnString$, _
Size%, App.Path & "\\Human.INI")

Path$ = Left$(lpReturnString$, Valid%)
lblStat1.Caption = Path$

Pensez-vous me dire quoi ajouter et où les écrire. C'est le seul problème qui m'énerve dans mon programme et j'aimerais en finir!!

Merci encore