Lire et ecrire dans un fichier .ini

Soyez le premier à donner votre avis sur cette source.

Snippet vu 78 901 fois - Téléchargée 134 fois


Contenu du snippet

Comment Puis-je Ecrire et Lire dans Un Fichier .ini ?

Mettez ce Code dans Votre Module :

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

Function LireINI(Entete As String, Variable As String) As String
    Dim Retour As String
    Fichier = App.Path & "\" & App.EXEName & ".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 & "\" & App.EXEName & ".ini"
    WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

' Pour l'executer ex :
EcrireINI("MonEntete", "MaVariable", "MaValeur")
LireINI("MonEntete", "MaVariable")

A voir également

Ajouter un commentaire

Commentaires

Merci, ce code m'a sortit de la mouise.

Cool
Idem, ma bien aider.tres simple, comme je l'es aime !!
-
etant tres nul en VB je narrive pas a mettre le truc entete .. enfin je voulais savoir comment sauver la config de mes textbox a mes chack mercide me mailer car je suis tres coincer
Est-ce-que je pourrais avoir un exemple plus concrêt de la méthode LireINI car j'ai besoin d'un fichier de config mais je n'arrive pas à recupérer la valeur des variables merci de me mailer
hé hmm on le met ou le fichier ini qu'on veut ecrire dessus ??

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.