LECTURE ET ÉCRITURE DANS UN .INI

stefsoft Messages postés 119 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 28 novembre 2008 - 22 août 2002 à 13:28
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 14 mai 2003 à 21:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4396-lecture-et-ecriture-dans-un-ini

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 mai 2003 à 21:08
bien d'accord avec notre ami en tire-bouchon !!

je ne vis que par les API !!

et refaire ce qui existe , c'est ........ un bon exercice , certes , mais périlleux.......
stefsoft Messages postés 119 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 28 novembre 2008
22 août 2002 à 13:28
Joli casse tête mais franchement avec les Api c'est beaucoup mieux:

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 Sub Form_Load()
Dim Ret As String, NC As Long
'ecrit dans le fichier c: est.ini
WritePrivateProfileString App.Title, "Nom de la clé", "Valeur de la clé", "c: est.ini"
'buffer
Ret = String(255, 0)
'récupération
NC = GetPrivateProfileString(App.Title, "Nom de la clé", "Default", Ret, 255, "C: est.ini")
If NC <> 0 Then Ret = Left$(Ret, NC)
'affiché la récupération
MsgBox Ret
'écrasé le fichier .ini c'était juste pour le fun
Kill "c: est.ini"
End Sub