Lire et ecrire dans un fichier .ini

Soyez le premier à donner votre avis sur cette source.

Snippet vu 79 382 fois - Téléchargée 136 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

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
OK,

Alors déjà, le code proposé par Imrahjel est du .Net plus que bancal (Strings.Left, Dir ?????)

Ajoutons a cela des déclarations d'APIs non adaptées à .Net, et vous aurez toutes les peines du monde a faire tourner ce code convenablement.
Messages postés
60
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2010

bonjour,
merci pour le code, j'utilise vb.net
j'ai une erreur ici : LireINI = Strings.Left$(l_szRetour, l_lRetour)
l'erreur est sur l_lRetour , il me dit que Option Strict On interdit les convertions implicites de 'long' en 'integer'

quelqu'un à une solution ?

je début en vb.net

merci
Messages postés
3
Date d'inscription
jeudi 5 octobre 2006
Statut
Membre
Dernière intervention
10 février 2009

Merci Imrahjel pour ton code VB.NET,
J'utilise VB.NET 2003, mais ça foire, ma variable l_lRetour prend une valeur énorme : 2251799813685264
ce qui me donne une exception :

System.OverflowException: Arithmetic operation resulted in an overflow.

à la ligne suivante : LireINI = Left$(l_szRetour, l_lRetour)

Auriez-vous une solution ??
Merci d'avance !
Messages postés
6
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
23 septembre 2008

Merci pour le code, il est simple et clair.
Messages postés
35
Date d'inscription
mercredi 10 octobre 2007
Statut
Membre
Dernière intervention
31 juillet 2008

bonjour à tous et merci pour ce code.
j'ai un petit problème avec le dernier post.
vous avez dit de remplacer

LireINI Left$(l_szRetour, l_lRetour) par LireINI Strings.Left$(l_szRetour, l_lRetour)

mais il me met l'avertissement suivant:
il me met qu'une eception de reference null peut se produire au moment de l'execution.

auriez vous une idée
merci
jon51
Afficher les 44 commentaires

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.