Comprendre et utiliser un fichier ini

Soyez le premier à donner votre avis sur cette source.

Vue 22 514 fois - Téléchargée 1 896 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
19
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
20 novembre 2008

Merci jsem2k1 de m'avoir répondu.

Je vais jeter un oeil sur les tutaux et sur ton fichier INI

A bientôt et bonne fêtes de fin d'année

Dany
Messages postés
125
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
12 août 2008
1
Bonjour Danytoss
Il faut que tu ai Visual basic 6 (la version 5 marche aussi mais... ) d'installer sur ton ordinateur si tu veux etre capable de lire et compiler les fichier du zip. Ce n'est pas plus compliquer que sa. Si tu veux plus d'information sur vb tu peux toujours me faire signe et je me ferais un plaisir de t'aider. Il y a aussi plusieur tutoriel sur ce site très utiles pour les débutants.
Bonne chance
Messages postés
19
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
20 novembre 2008

Bonjour,

Il me semble que c'est un peu tard pour ajouter un commentaire du post du mois de mars 2005, mais je tente comme meme.

Je commence à m'intérresser à VB, alors je regarde dans les forums, j'ai vu que JSEM2K1 à créer un utilitaire permettant aux novices de comprendre les fichiers INI.

Mais quand je télécharger le fichier zip, j'ai trois fichiers à l'intérieur.

Mon problème, quel logiciel utiliser pour lire les fichiers télécharger.

Merci pour vos réponses.
Messages postés
3
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
13 mai 2005

merci beaucoup!!
Messages postés
125
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
12 août 2008
1
Bon voila en revérifiant mes affaires je me suis rendu compte que ma réponce n'étais pas tout à fait juste. Il est vrais qu'en utilisant la méthode mentionnée dan mon example il est impossible d'efffacer une clé ou une section. Toutefois, il est possible en modifiant un peu la procédure qui permet d'écrire dans un fichier ini il devient très simple d'éfectuer la supression des clé et sections. Voila ce qu'il faut faire

1) modifier la procédure qui écrit dans un fichier ini par :


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

WritePrivateProfileString section, cle, valeur, Fichier
End Sub

on remarque que j'ai mis certain paramètre comme étant obtionelle mais à par sa je n'ai rien changer de plus.

2)
i- Si on veut effacer un section en entier il suffi de ne pas entré de paramètre au niveau de la clé

example
EcritDansFichierIni Ficher,section

ii- Si on veux effacer une clé il suffi de ne pas mettre de valeur

example
EcritDansFichierIni Ficher,section,cle

et voila le tour est jouer
Afficher les 14 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.