Ecriture et lecture fichier .ini

Version imprimable

Bonjour à tous ! :)

Voici mon problème :

Mon logiciel à besoin de sauvegarder des informations dans un fichier .ini et de les lires au lancement du logiciel.

Voici mon code pour écrire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub writeini(ByVal Timesave As String, ByVal Hsave As String, ByVal Msave As String, ByVal pathsave1 As String, ByVal pathsave2 As String,
                 ByVal ShowNotify As Boolean, ByVal autosave As Boolean)
        Nbrligneini = 0
        Dim sw As New StreamWriter(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData + "\CONFIG.ini")
        sw.WriteLine(";Fichier de configuration de FileSecur")
        sw.WriteLine("[Configuration]")
        sw.WriteLine(cletimesave + "=" + Timesave)
        sw.WriteLine(cleHoursave + "=" + Hsave)
        sw.WriteLine(cleMinsave + "=" + Msave)
        sw.WriteLine(clepathsaveini1 + "=" + pathsave1)
        sw.WriteLine(clepathsaveini2 + "=" + pathsave2)
        sw.WriteLine(cleShowNotify + "=" + ShowNotify.ToString)
        sw.WriteLine(cleautosave + "=" + autosave.ToString)
        sw.WriteLine("Nbrligne=" + ListBox1.Items.Count.ToString)
        sw.WriteLine("[Paths]")
        For Each item In ListBox1.Items
            Nbrligneini += 1
            sw.WriteLine(clepathini + Nbrligneini.ToString + "=" + item)
        Next
        sw.Close()
    End Sub

Tout les mot commencant par "cle" sont des constantes string.

J'obient un fichier .ini comme celui ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
;Fichier de configuration de FileSecur
[Configuration]
Timesave=11/09/2016 17:32:19
Hsave=1
Msave=0
save1= (chemin du dossier de destination)
save2=
ShowNotify=True
AutoSave=False
Nbrligne= (nombre de path)
[Paths]
Path1= (chemin dossier source)
Path2= (chemin dossier source)

Il y a autant de Paths dans la clause [Paths] que d'éléments dans une listbox sur le formulaire.

Le probleme est a la lecture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub readini()
        Nbrligneini = 0
        For Each Ligne As String In File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData + "\CONFIG.ini" + "")
            Nbrligneini += 1
            Select Case Ligne.Split("=")(0)
                Case cletimesave
                    TextBox1.Text = Ligne.Split("=")(1)
                Case cleHoursave
                    NumericUpDown1.Value = CInt(Ligne.Split("=")(1))
                Case cleMinsave
                    NumericUpDown2.Value = CInt(Ligne.Split("=")(1))
                Case clepathsaveini1
                    TextBox2.Text = Ligne.Split("=")(1)
                Case clepathsaveini2
                    TextBox3.Text = Ligne.Split("=")(1)
                Case cleShowNotify
                    ShowNotify = Ligne.Split("=")(1)
                Case cleautosave
                    Autosave = Ligne.Split("=")(1)
                Case nbrligne
                    Nbrligneini = CInt(Ligne.Split("=")(1))
                Case clepathini + Nbrligneini.ToString
                    ListBox1.Items.Add(Ligne.Split("=")(1))
            End Select
        Next
    End Sub

En effet, le fichier est bien lu et tout les élément sont dans ma form (date...) sauf les paths ! je ne sais pas pourquoi il refuse de m'ajouter pour chaque paths dans le fichier, le paths dans ma listbox...

Merci de votre aide ! :)

Ind6x

11/09/2016, 19h41
François DORIN
Bonjour,

C'est parce que tu incrémentes ta variable Nbrligneini dès que tu lis une ligne dans ton fichier ini. Ainsi, quand tu arrives à la section qui contient tes chemins, si tu as as déjà lu 20 lignes tu vas rechercher une clé Path20 !

Pour remedier au problème, tu as plusieurs possibilités :
- Si le nombre de chemin est limité (par exemple max 4), alors tu peux faire 4 cas supplémentaires dans ton Select Case, avec Path1, Path2, Path3 et Path4.
- Si le nombre de chemin n'est pas limité, il faut que tu gères cela dynamiquement. Tu peux utiliser une expression régulière, tu peux vérifier que la ligne commence par "Path", etc...
12/09/2016, 18h55
wallace1

bonsoir,

Je ne reviens pas sur la solution proposé par dorinf qui reglera certainement ton problème mais pourquoi ne pas utiliser une classe de gestion de fichiers .ini ?

Comme celle-ci par exemple : http://www.developpez.net/forums/d11...i/#post7472174

++

Je vous remercie beaucoup de vos réponses ! :)

J'ai remplacer mon code par :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub readini()
        For Each Ligne As String In File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData + "\CONFIG.ini" + "")
            If Ligne.Split("=")(0).Contains("Path") Then
                ListBox1.Items.Add(Ligne.Split("=")(1))
            Else
                Select Case Ligne.Split("=")(0)
                    Case cletimesave
                        TextBox1.Text = Ligne.Split("=")(1)
                    Case cleHoursave
                        NumericUpDown1.Value = CInt(Ligne.Split("=")(1))
                    Case cleMinsave
                        NumericUpDown2.Value = CInt(Ligne.Split("=")(1))
                    Case clepathsaveini1
                        TextBox2.Text = Ligne.Split("=")(1)
                    Case clepathsaveini2
                        TextBox3.Text = Ligne.Split("=")(1)
                    Case cleShowNotify
                        ShowNotify = Ligne.Split("=")(1)
                    Case cleautosave
                        Autosave = Ligne.Split("=")(1)
                    Case nbrligne
                        Nbrligneini = CInt(Ligne.Split("=")(1))
                End Select
            End If
        Next
    End Sub

et cela fonctionne a merveille ! ;)

Cepandant, j'ai une autre question ! :)

Lorsque j'enregistre, un fichier .ini est crée puis écrit. Lorsque je lance mon programme celui ci est lu. Cepandant, lorsque je referme mon programme, le fichier .ini se supprime ! :aie: Ce qui signifie que la fois suivante, il ne peut pas charger les données.. Est-ce normal ? :pastaper:

Merci encore ! ;)

12/09/2016, 21h19
François DORIN

Citation:

Envoyé par Ind6x

Lorsque j'enregistre, un fichier .ini est crée puis écrit. Lorsque je lance mon programme celui ci est lu. Cepandant, lorsque je referme mon programme, le fichier .ini se supprime ! :aie: Ce qui signifie que la fois suivante, il ne peut pas charger les données.. Est-ce normal ? :pastaper:

A vu de nez, non ! J'aurais tendance à dire qu'il est supprimé quelque part au sein de l'application. Il n'y a pas une fonction qui fait un peu de ménage et qui traine dans un coin ??
12/09/2016, 21h37
Cybercope

Suis - je bêtes ! :aie:

Effectivement, j'avais oublier que j'avais appeler la suppression de ce fichier lors du démarrage de mon application ! veuillez m'excuser pour vous avoir dérangé inutilement... :?

je marque ce sujet comme résolu

Merci infiniment de votre aide ! ;)

A+ Ind6x