Enregistrer dans un fichier INI

[Résolu]
Signaler
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011
-
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011
-
Bonjour, j'aimerais écrire dans un fichier INI.
Jj'ai donc trouvé dans la FAQ la méthode a appliquer mais je n'arrive
pas à l'utiliser !!!





J'ai fais ceci sur l'appel d'un bouton :



Code:, ----
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _

ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _

ByVal lpFileName As String) As Long

Private Function EcritDansFichierIni2(Section As String, Cle As String, _

Valeur As String, Fichier As String) As Long

EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)

EcritDansFichierIni "Affichage", "State", "Maximized", "c:\config.ini"

End Function







Pouvez vous me dire ce qui va pas ????


Merci

3 réponses

Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011

Voici la solution que j'ai adapté :

Voila, j'ai compris comment cela fonctionné.


D'abord on créer un nouveau module : Projet --> Ajouter un module puis on colle ceci :



Code:, ----
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32"
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String,
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As
String) As Long

Function LireINI(Entete As String, Variable As String) As String

Dim Retour As String

Fichier = App.Path & "\" & "Param.ini"

Retour = String(255, Chr(0))

LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))

End Function

Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String

Fichier = App.Path & "\" & "Param.ini"

WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)

End Function







Et ensuite on va dans le code de son bouton, et on met ceci :



Code:, ----
Private Sub EcritDansFichierIni_Click()

Call EcrireINI("Taches", "Horaires", Text1.Text)

End Sub







Et voila, le tour est joué.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,
Ce code te crée le fichier config.ini dans le répertoitre C:\

Private Sub Command1_Click()
Dim A, S, M
A = "Affichage"
S = "State"
M = "Maximized"
Open "c:\config.ini" For Output As #1
Write #1, A, S, M
Close #1
End Sub

jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
PS : Si tu ne veux pas les apostrophes, tu mets Print au lieu de Write.