Lecture et écriture dans un .ini

Soyez le premier à donner votre avis sur cette source.

Vue 4 567 fois - Téléchargée 410 fois

Description

Permet de lire et ecrire dans tout les fichier ayant une structure identique aux .ini.
Pour le code, télécherger le ZIP. Y aussi une form d'exemple d'utilisation du module.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
bien d'accord avec notre ami en tire-bouchon !!

je ne vis que par les API !!

et refaire ce qui existe , c'est ........ un bon exercice , certes , mais périlleux.......
stefsoft
Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008

Joli casse tête mais franchement avec les Api c'est beaucoup mieux:

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 Sub Form_Load()
Dim Ret As String, NC As Long
'ecrit dans le fichier c: est.ini
WritePrivateProfileString App.Title, "Nom de la clé", "Valeur de la clé", "c: est.ini"
'buffer
Ret = String(255, 0)
'récupération
NC = GetPrivateProfileString(App.Title, "Nom de la clé", "Default", Ret, 255, "C: est.ini")
If NC <> 0 Then Ret = Left$(Ret, NC)
'affiché la récupération
MsgBox Ret
'écrasé le fichier .ini c'était juste pour le fun
Kill "c: est.ini"
End Sub

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.