Écriture/lecture de fichiers INI

Question

Bonjour.

J'utilise l'écriture et la lecture dans les fichiers INI.
J'ai un fichier 02.ini qui enregistre les options choisies à partir de checkbox. 

Je vous laisse ci-dessous un extrait du code lors de l'appuis sur le bouton Appliquer :

        If Option01 = Check1 Then
        Else 'seulement si on a modifié des options
            Open "./ini/02.ini" For Input As #5 'on lit le fichier
                For b = 1 To 1
                    Input #5, Fichier01
                Next
                For b = 2 To 2
                    Input #5, Fichier08
                Next
                For b = 3 To 3
                    Input #5, Fichier09
                Next
                For b = 4 To 4
                    Input #5, Fichier10
                Next
                For b = 5 To 5
                    Input #5, Fichier11
                Next
                For b = 6 To 6
                    Input #5, Fichier12
                Next
                For b = 7 To 7
                    Input #5, Fichier13
                Next
                For b = 8 To 8
                    Input #5, Fichier14
                Next
                For b = 9 To 9
                    Input #5, Fichier15
                Next
            Close #5
            Open "./ini/02.ini" For Output As #6 'on refait le fichier
                For b = 0 To 0
                    Print #6, Check1.Value
                Next
                For b = 1 To 1
                    Print #6, Fichier01
                Next
                For b = 2 To 2
                    Print #6, Fichier08
                Next
                For b = 3 To 3
                    Print #6, Fichier09
                Next
                For b = 4 To 4
                    Print #6, Fichier10
                Next
                For b = 5 To 5
                    Print #6, Fichier11
                Next
                For b = 6 To 6
                    Print #6, Fichier12
                Next
                For b = 7 To 7
                    Print #6, Fichier13
                Next
                For b = 8 To 8
                    Print #6, Fichier14
                Next
                For b = 9 To 9
                    Print #6, Fichier15
                Next
            Close #6
            Option01 = Check1.Value
            Options = Options + 1 'Gestion du pluriel
        End If

Ce même code est reproduit pour chaque checkbox.
Il y a 10 lignes dans le fichier 02.ini.
Le code ne fonctionne très mal, surtout à cause de certaines erreurs lors de l'enregistrement, et j'ai vérifié et je n'ai rien trouvé.

N'y a-t-il pas moyen de faire ça plus court et plus rapidement ?

Merci d'avance de vos réponces.

Cordialement
Daniel

pcpunch · Answer

c'est pas un fichier ini ca!!!
c un fichier tous court

les fichier ini ont une entete c plus facile a gerer genre :

[Couleur]
voiture=bleue
slip=rouge

voila une fonction pour t'aider a lire et ecrire dans un fichier ini :

'dans un module
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

voila apres c pas compliquer :

pour ecrire genre dans la section couleur, la couleur de la variable voiture:
EcrireINI "Couleur", "voiture", "rouge"

pour la lire :
Couleur_Voiture = LireINI("couleur", "voiture")

Voila!!! c plus claire, plus rapide, plus facile a gerer, et plus pro surtout!!!!

Tu peu entrer autant de section que tu veu, et autant de variable dans la section!!!!!

Si tu as besoin d'aide!!!!??? vas y!!!

daniellapointe01 · Answer

Voilà.

Je reçois une erreur lors de l'éxécution de :

licenseTo = LireINI("general", "nom", "./ini/config.ini")

j'ai VB en anglais, et cela dit :

Wrong number or argument or invalid property assignment

Bon cela veut dire qu'il y a une erreur. voici mon module :

Option Explicit

Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$) As Long
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpdirectory As String, ByVal nShowCmd As Long) As Long
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String)
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

Public Sub JouerSon(Fichier As String)
    mciExecute ("play " & Fichier)
End Sub

Public Function FileExists(stFichier As String) As Boolean
FileExists = (Dir$(stFichier, vbHidden Or vbReadOnly Or vbSystem) <> vbNullString)
End Function

Ce dernier permet de vérifier l'existance d'un fichier ou d'un dossier, de jouer un son et j'ai finalement ajouté la fonction d'écriture/lecture de fichiers INI.

Merci d'Avance de m'Expliquer la raison de cette erreur.

Cordialement
Daniel

pcpunch · Answer

tu as pas lu mon exemple :

Couleur_Voiture = LireINI("couleur", "voiture")

essaie plutot ca, la tu lit et tu  donne la reponse!!!!! en mm tps "./ini/config.ini"
licenseTo = LireINI("general", "nom")

pour lire
licenseto=lireini("section","variable a lire")

pour ecrire
ecrireini("section", "variable", donné a ecrire")

daniellapointe01 · Answer

et où indique-t-on dans quel fichier il doit écrire et lire ? il n'est pas décodeur, il ne fera pas une recherche pour moi, il faut lui indiquer, non ?

pcpunch · Answer

et ben non il faut pas de decodeur lol!!!

Si tu avauit regarder les 2 fonctions d'ecriture et de lecture ini, tu aurais vu que le fichier est stipuler

app.path & "" app.exename & ".ini"
 ca veu dire qu'il ouvre par defaut le fichier de ton soft.ini qui se situe dans le dossier de ton executable.

En bref si ton projet se trouve dans c:\mon soft\projet1.vbp
alos le fichier ini sera "c:\mon soft\projet1.ini"

Si tu compile le soft dans "c:\program files\mon soft\soft.exe"
l'ini sera  "c:\program files\mon soft\soft.ini"

Mais si tu veu tu peu modifier tous ca et mettre ton ini ou tu  veu et l appeler comme tu veu!!!
Enfin voila!!

Ps: je cherche qq betatesteur (c'est juste pour tester le prog et faire un rapport des eventuelle bug et difficulté rencontré...)  pour mon soft!!! Si le coeur t'en dit, c'est un soft pour creer des galleries de photo html..

daniellapointe01 · Answer

Cela m'intéresserait peut-être de t'aider, en guise de remerciment de ton aide. Mais pas en ce moment, je dois quitter, je n'ai même pas le temps de retester ton code. 

Je ferai plutard et je te recontacterai sur ce forum.

Merci encore de ton aide.

Cordialement
Daniel

the_fonzarelli · Answer

J'étais pas venu sur la discussion pour ça mais tu viens de m'éclairer un peu sur le fonctionnement des fichiers .ini alors un grand merci à toi !

the fonzarelli !

pegasustek · Answer

J'ai juste un souci avec le code pcpunch. la définition de la variable en "Any" n'est pas reconnu. Est-ce un Pb de version et j'ai cherché dans les références mais pas trouvé. C'est dommage car la méthode est simple pour un novice comme moi

ooly2001 · Answer

Super ton code !

Merci de ton aide

2 secondes de recherche sur VB et a peu pres 3 minutes pour adapter le code

_DoOmy_ · Answer

Avec tes fonction j'ai un pb: si je les appliques a deux fichiers de meme nom mais de chemin diff&#233;rents, &#233;crire dan l'un revient a &#233;crire dans l'autre aussi 
a tu une solution???

_DoOmy_ · Answer

Avec tes fonction j'ai un pb: si je les appliques a deux fichiers de meme nom mais de chemin diff&#233;rents, &#233;crire dan l'un revient a &#233;crire dans l'autre aussi 
a tu une solution???

Écriture/lecture de fichiers INI

11 réponses

Discussions similaires