Enregistrer dans un fichier INIRésolu

Question

Bonjour, j'aimerais &#233;crire dans un fichier INI.
Jj'ai donc trouv&#233; dans la FAQ la m&#233;thode a appliquer mais je n'arrive
pas &#224; 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

cs_piep14 · Accepted Answer

Voici la solution que j'ai adapt&#233; :

Voila, j'ai compris comment cela fonctionn&#233;.


D'abord on cr&#233;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&#233;.

jpleroisse · Answer

Bonjour,
Ce code te cr&#233;e le fichier config.ini dans le r&#233;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

jpleroisse · Answer

PS : Si tu ne veux pas les apostrophes, tu mets Print au lieu de Write.

Enregistrer dans un fichier INI

3 réponses

Discussions similaires