Lire/ecrire/supprimer dans un fichier ini grâce aux apis windows

Soyez le premier à donner votre avis sur cette source.

Vue 17 442 fois - Téléchargée 2 261 fois

Description

Comme son l'indique, ce code permet de lire, écrire et supprimer des valeurs dans un fichier INI, et ceci le plus simplement du monde grâce aux APIs Windows

Source / Exemple :


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 Declare Function WritePrivateProfileSection Lib "kernel32" Alias _
    "WritePrivateProfileSectionA" ( _
     ByVal lpAppName As String, _
     ByVal lpString As Any, _
     ByVal lpFileName As String) As Long

'Fonction pour lire une valeur dans un fichier INI
Function INIRead(Entete As String, Variable As String, Optional Fichier As String) As String
    Fichier = IIf(Fichier = "", App.Path & "\" & App.EXEName & ".ini", Fichier)
    INIRead = String(255, Chr(0))
    INIRead = Left$(INIRead, GetPrivateProfileString(Entete, ByVal Variable, "", INIRead, Len(INIRead), Fichier))
End Function

'Fonction pour écrire une valeur dans un fichier INI
'La section spécifiée est créée automatiquement si elle n'existe pas déjà
Function INIWrite(Entete As String, Variable As String, Valeur As String, Optional Fichier As String) As String
    Fichier = IIf(Fichier = "", App.Path & "\" & App.EXEName & ".ini", Fichier)
    INIWrite = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

'Fonction pour supprimer une valeur dans un fichier INI
Function INIDelete(Entete As String, Variable As String, Optional Fichier As String) As String
    Fichier = IIf(Fichier = "", App.Path & "\" & App.EXEName & ".ini", Fichier)
    INIDelete = WritePrivateProfileString(Entete, Variable, 0&, Fichier)
End Function

'Fonction pour supprimer une section dans un fichier INI
Function INIDeleteSection(Entete As String, Optional Fichier As String) As String
    Fichier = IIf(Fichier = "", App.Path & "\" & App.EXEName & ".ini", Fichier)
    INIDeleteSection = WritePrivateProfileSection(Entete, 0&, Fichier)
End Function

Conclusion :


J'ai mis cette source car j'ai remarqué qu'il y avait déjà des sources similaires mais plus complexes car n'utilisant pas les API...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Titant
Messages postés
103
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
21 juillet 2008
-
deja vue et revue enfin bon...
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
pareil que titant
Chrystalyst
Messages postés
14
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 septembre 2003
-
je sais que c'était déjà sur le site, ms aucune source ne permettait de supprimer des valeurs... c'était le important
cs_Pat35
Messages postés
59
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
5 décembre 2007
-
C'est pas neuf, mais c'est propre et toujours pratique
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Effectivement, il y a beaucoup de sources à ce sujet sur le site, mais comme le signale Chrystalyst, elles ne sont pas nombreuses à aborder la manière de supprimer une valeur ou une section.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.