UN MODULE POUR LIRE ET ÉCRIRE DANS LES FICHIERS INI
Rrominet
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014
-
14 sept. 2003 à 10:39
cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006 - 31 janv. 2005 à 08:37
cs_Sator2 Messages postés 137 Date d'inscription samedi 11 septembre 2004 Statut Membre Dernière intervention 10 septembre 2006 - 31 janv. 2005 à 08:37
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/8513-un-module-pour-lire-et-ecrire-dans-les-fichiers-ini
https://codes-sources.commentcamarche.net/source/8513-un-module-pour-lire-et-ecrire-dans-les-fichiers-ini
31 janv. 2005 à 08:37
mais parce que contrairement à beaucoup de source, la tienne à apporter un vrai débat... et là on avance...
Donc merci!
@+Sator2
28 déc. 2004 à 03:42
18 sept. 2003 à 23:09
18 sept. 2003 à 22:49
L'API sait tout faire ou presque, la gestion des fichiers ini existe depuis toujours !
Utilise plutôt ceci, c'est sans bug également et c'est plus approprié ;-)
Option explicit
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
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
Function GetPrivateSetting(ByVal szFileName As String, ByVal szSection As String, ByVal szKey As String, ByVal szDefault As String) As String
'---------------------------------------------------
' Charger une donnée d'un fichier ini
'---------------------------------------------------
'---------------------------------------------------
Dim lResult As Long
Dim szResult As String
Dim lpResult As String * 1024
Dim lSize As Long
On Error GoTo Erreur
lSize = Len(lpResult) - 1
lResult = GetPrivateProfileString(szSection, szKey, szDefault, lpResult, lSize, szFileName)
If lResult >= 0 Then
szResult = Left(lpResult, lResult)
Else
szResult = szDefault
End If
'Valeur de retour
GetPrivateSetting = szResult
Exit Function
Erreur:
GetPrivateSetting = szDefault
End Function
Function SavePrivateSetting(ByVal szFileName As String, ByVal szSection As String, ByVal szKey As String, ByVal szValue As String) As Boolean
'---------------------------------------------------
' Sauver une donnée dans un fichier ini
'---------------------------------------------------
'---------------------------------------------------
Dim lResult As Long
On Error GoTo Erreur
lResult = WritePrivateProfileString(szSection, szKey, szValue, szFileName)
SavePrivateSetting = True
Exit Function
Erreur:
SavePrivateSetting = False
End Function
14 sept. 2003 à 10:39
J'ai pas regardé ta source, mais ça pourra toujours servir à quelques uns :)