Un module pour lire et écrire dans les fichiers ini

Soyez le premier à donner votre avis sur cette source.

Vue 5 701 fois - Téléchargée 923 fois

Description

Le titre donne une idée assez claire je pense du rôle de ce module : il permet de lire et d'crire des données dans un fichier de type INI.
La seule contrainte : il faut que les lignes soient terminées par "!"

Pas de bugs connus.

Merci de noter cette source.

Si vous voulez des info, ... un mail à juju_1981_13@hotmail.com. J'essayerai de vous répondre vite.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006

Je t'ai noté à 10, non pas pour la qualité de ta source...
mais parce que contrairement à beaucoup de source, la tienne à apporter un vrai débat... et là on avance...
Donc merci!
@+Sator2
Messages postés
40
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
26 septembre 2007

merci a pour son exemple de fichier ini, c'est parfait et ca correspond bien a mon projet (scanner de ports avec profiles et gestion de plug-ins).
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014

et en + la lecture se fait vraiment très rapidement avec l'API !!!
Messages postés
96
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
23 septembre 2007

Enfer et danation, que m'as tu fait là !!!
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
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014

Il existe des APIs pour lire et écrire dans les fichiers INI je crois ?
J'ai pas regardé ta source, mais ça pourra toujours servir à quelques uns :)

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.