Discussion :

[Mugette]

bonjour,

je comprend rien à l'aide en ce qui concerne les fichiers séquentiels.
Mon but etant de tester le contenu d'une listbox, voir si le contenu existe deja dans le fichier (ini), si oui je ne fais rien, sinon je la rajoute dans mon fichier (ini) afin qu'il charge la liste mise a jour la prochaine fois.
Voivi mon code :
Je met le contenu de mon fichier dans un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub lecture_fichier()
    i = 0
    mavaleur = UserForm1.ComboBox3.Value
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Input As #1
        While Not EOF(1)
            Line Input #1, valeur
            ReDim Preserve tab_valeur(i)
            tab_valeur(i) = valeur
            i = i + 1
            imax = i - 1
        Wend
    Close #1
End Sub

J'ecris la nvelle valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub ecriture_nvelle_val()
    mavaleur = userform1.combobox9.value
    j = 0
    n = 0
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Output As #1
    For j = 0 To imax
        If tab_valeur(j) <> mavaleur Then
            n = n + 1
        End If
    Close #1
    Next j
    If n = imax Then
       Write #1, mavaleur
    End If
End Sub

enfin je réécris la liste d'origine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub ecriture_existant(tab_valeur(), imax As Integer)
    k = 0
    chemin = "D:\François\Dev\info_fits\"
    Open chemin + "netname.ini" For Output As #1
    For k = 0 To imax
        Write #1, tab_valeur(k)
    Close #1
    Next k
 
End Sub

Le code n'est pas complet, genre les parametres etc.. mais si vraiment ca vous manque je le rajouterai.

Merci d'avance.

[SfJ5Rpw8]

je suis pas sur que ce soit ce que tu ve ... mais pour la gestion des .ini voir FAQ.. :
Comment lire / écrire dans un fichier .ini


ensuite pour tes 2 fonctions d'écriture .. le close n'est pas au bon endroit .. l'open étant en dehors de la boucle for le close doit être aussi en dehors .. donc aprés la ligne Next..


et puis je comprends pas tes 2 fonctions d'écriture .. tou d'abords tu rajoute l'élément saisie au fichier

..
J'ecris la nvelle valeur :
[code]
Sub ecriture_nvelle_val()
mavaleur = userform1.combobox9.value
...

ensuite tu écrase ton fichier avec les données de ton tableau

..
..enfin je réécris la liste d'origine
[code]
Sub ecriture_existant(tab_valeur(), imax As Integer)
k = 0
....

[Mugette]

j'ai pas encore vu la FAQ... mais merci bien ca peut etre sympa.
En fait, je voudrais justement pas écraser le fichier ini. C'est pour ca que je met dans un tableau...mais pour l'instant, j'ai pas réussi à implémenter mon fichier sans tout écraser.
Mais je vais bosser sur la FAQ et je m'en sortirai...et si non je reviendrai vers toi, encore...

Merci bbil.

CIAO
Mugette

[SfJ5Rpw8]

oui je t'ai posté le lien avant de lire ton message ... les fichiers .ini de la FAQ sont des fichiers standard ".ini" windows pas toute à fait ton format...
en lisant ton code je suis pas sur que cela te convienne

[Mugette]

je suis dessus, mais apparemment avec Excel les méthodes existent déjà c'est moins pratique...