Et les fichiers ini alors ??

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 007 fois - Téléchargée 86 fois

Contenu du snippet

Copiez cette source dans un module et écrivez des fichiers Ini tout simplement

Source / Exemple :


Option Explicit

Public 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
Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$) As Long

Public Function GetIni(Section As String, Variable As String, Fichier As String) As String
Dim strRetour As String
strRetour = String(255, Chr(0))
Dim Longueur As Integer
Longueur = GetPrivateProfileString(Section, Variable, "", strRetour, Len(strRetour), Fichier)
GetIni = Left$(strRetour, Longueur)
End Function

Function WriteIni(Section As String, Variable As String, Valeur As String, Fichier As String) As Integer
WritePrivateProfileString Section, Variable, Valeur, Fichier
End Function

A voir également

Ajouter un commentaire

Commentaires

warreng69
Messages postés
12
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
13 avril 2004
-
svp est ce que kelk un possederai une souce avec une fonction de lecture d'un fichier ini avec seulement le nom du fichier en parametres.
merci
et je souhaiterai egalement savoir comment le fichier ini peut etre lu par une application
cs_RbbR
Messages postés
22
Date d'inscription
mardi 22 octobre 2002
Statut
Membre
Dernière intervention
9 avril 2003
-
Super !!!!
zaguia
Messages postés
54
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
8 juin 2002
-
une sourvce tres performante
J'aimerais apprendre sur les INI et surtout comprendre les MODULES ?!? Svp écrivez moi sur mon email pour m'aider et si vous trouvez l'aide de vb6.0 en francais svp dite moi ou le downloadez thx !

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.