Bonjour, je viens vers vous car je cale un peu..
Je vous explique, j'ai un fichier .ini structuré comme ceci:
Donc afin de lire ce fichier, j'ai cette fonction
Afin d'utiliser cette fonction, il faut ajouter ce module que j'ai pris sur internet
Je vous ai donc introduit.
Ce que je cherche à faire, c'est:
J'ai un tableau, contenant ces valeurs
J'arrive à bien lire les valeurs de mon fichier .ini, pour ce faire voici ce que j'ai fait:
settingValueReturn.toString me montre la dernière valeur récupérée dans le fichier
Ce que j'essaye de faire, c'est de placer ces valeurs dans différentes textbox.. J'arrive bien à récuperer les valeurs, mais je n'arrive pas à les utiliser, je ne vois pas comment faire..
J'ai 3 textbox, appelés:
Si il manque des informations je peux vous les fournir, toute aide est la bienvenue.
Je vous explique, j'ai un fichier .ini structuré comme ceci:
Code:
[PARTIE1]
valeur1= 7
valeur2 = 14
valeur3 = 54148
[PARTIE2]
valeur1 = 414
valeur2 = 88
Donc afin de lire ce fichier, j'ai cette fonction
Code:
ReadIniFile("PARTIE1", "valeur1", "C:\Users\xxx\Desktop\test.ini")
Afin d'utiliser cette fonction, il faut ajouter ce module que j'ai pris sur internet
Code:
Module iniParse
Public readwrtie As Integer
Public settingValueReturn As New System.Text.StringBuilder(255)
Private Declare Auto Function WritePrivateProfileString Lib "Kernel32" _
(ByVal IpApplication As String, ByVal Ipkeyname As String, _
ByVal IpString As String, ByVal IpFileName As String) As Integer
Private Declare Auto Function GetPrivateProfileString Lib "Kernel32" _
(ByVal IpApplicationName As String, ByVal IpKeyName As String, _
ByVal IpDefault As String, ByVal IPReturnedString As System.Text.StringBuilder, _
ByVal nsize As Integer, ByVal IpFileName As String) As Integer
Public Sub WriteINIFile(ByVal heading As String, ByVal setting As String, ByVal settingvalue As String, ByVal path As String)
WritePrivateProfileString(heading, setting, settingvalue, path)
End Sub
Public Sub ReadIniFile(ByVal heading As String, ByVal setting As String, ByVal path As String)
GetPrivateProfileString(heading, setting, "", settingValueReturn, 100, path)
End Sub
End Module
Je vous ai donc introduit.
Ce que je cherche à faire, c'est:
J'ai un tableau, contenant ces valeurs
Code:
Dim tableau as Array = {"valeur1", "valeur2", "valeur3"}
J'arrive à bien lire les valeurs de mon fichier .ini, pour ce faire voici ce que j'ai fait:
Code:
For i As Integer = 0 To 2
ReadIniFile("PARTIE1", tableau(i), "C:\Users\xx\Desktop\test.ini")
msgbox(settingValueReturn.toString)
Next
settingValueReturn.toString me montre la dernière valeur récupérée dans le fichier
Ce que j'essaye de faire, c'est de placer ces valeurs dans différentes textbox.. J'arrive bien à récuperer les valeurs, mais je n'arrive pas à les utiliser, je ne vois pas comment faire..
J'ai 3 textbox, appelés:
- textbox1
- textbox2
- textbox3
Si il manque des informations je peux vous les fournir, toute aide est la bienvenue.