Comprendre et utiliser un fichier ini

Télécharger le projet
Commenter

Description

Bonjours tout le monde
A force de me faire poser plusieur question sur les fichier ini et de voir le grand nombre de question a ce sujet sur le forum j'ai décidé de faire une sorte d'example d'utilisation mixer avec un tutoriel sur les fichier ini. Il est de loin meilleur et plus clair que l'example que j'avais d'abort poster ( Bontain telléphonique)

Le code est simple et très détailler. De plus le document qui accompagne l'example est tès utile car il permet de mieux comprendre la structure d'un fichier ini, l'importance et la pertinance de son utilisation.

Dans le bu d'amélioré cette example et de le randre plus accessible au débutant j'appécirais vraiment vos comments

Source / Exemple : 


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''API Utile pour lite et écrire dan un fichier ini''''''''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Procédure qui permet d'écrire dans un fichier INI

Public Sub EcritDansFichierIni(Fichier As String, section As String, Optional cle As String, _
                                      Optional valeur As String)
 WritePrivateProfileString section, cle, valeur, Fichier
End Sub

'Fonction qui permet de lire dans un un fichier ini
Public Function LitDansFichierIni(section As String, cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String

Dim strReturn As String

strReturn = String(255, 0)
GetPrivateProfileString section, cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

End Function
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (jsem2k1)