Discussion :

[sylvain50]

Bonjour à vous tous

voilà j'aimerais un coup de main si possible sur une manip
voilà mon dilemme
j'ai un fichier texte que j'affiche dans un listbox
se fichier texte est régulièrement mit à jour
la seule chose qui me permet de rafraichir mon listbox quand mon fichier est mit à jour c'est d'arrêter et de relancer mon appli, ce qui est embêtant j'aimerais que mon listbox soit mis à jour automatiquement lorsque mon fichier texte change
j'ai vu qu'il y avait le filesystemwatcher qui permet de surveiller des fichiers malheureusement je suis encore débutant et je ne sais pas par ou commencer ni comment mettre en fonction se système un coup de main ne serait pas de refus.

merci d'avance pour votre aide

[tomlev]

il n'y a pas de signes de ponctation sur ton clavier ?

Il faut effectivement utiliser un FileSystemWatcher, c'est très facile.

- prends le composant dans la boite à outils et pose le sur la form
- mets le nom du fichier à surveiller dans la propriété Filter
- mets le répertoire du fichier dans la propriété Path
- dans l'évènement Changed du FileSystemWatcher, recharge le fichier

[sylvain50]

Désolé pour la ponctuation.

ok j'ai mis le filsystemwatcher, je l'ai paramétré
pour charger mon fichier dans mon load de la form je mets ça

Code :

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

ListBox1.Items.AddRange(System.IO.File.ReadAllLines("chemin du fichier\fichier.txt"))

je l'ai remis dans l'évènement changed du filesystemwatcher.
donc quand mon fichier est modifié il me rajoute bien la ligne en plus dans mon listbox sauf qu'il me rajoute la même ligne une deuxième fois.

[sylvain50]

j'ai mis un textbox à la place d'un listbox.
pour charger mon textbox j'ai mis ça comme code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
tout = ""
        Try
            FileOpen(1, "chemindufichier\nomdufichier.txt", OpenMode.Input)
            While Not EOF(1)
                texte = LineInput(1)
                tout = tout + texte + vbCrLf
            End While
            TextBox1.Text = tout
        Catch
        Finally
            FileClose(1)
        End Try

et là il me rajoute pas de ligne supplémentaire.
je ne sais pas quel est la meilleure solution entre un listbox et textbox pour faire ça

Merci

[tomlev]

Evite d'utiliser FileOpen, EOF, LineInput etc. Ce sont des vieilles fonctions héritées de VB6, qui ne sont supportées que pour faciliter la migration de code existant vers VB.NET. Il est déconseillé de les utiliser dans des nouveaux programmes.

Ta première approche avec File.ReadAllLines était bien meilleure. La seule chose qui manquait, c'était de vider la liste avant d'ajouter les nouveaux éléments :

Code :

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

1
2
ListBox1.Items.Clear()
ListBox1.Items.AddRange(System.IO.File.ReadAllLines("chemin du fichier\fichier.txt"))

Sinon, tu peux aussi utiliser la propriété DataSource :

Code :

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

ListBox1.DataSource = System.IO.File.ReadAllLines("chemin du fichier\fichier.txt")

[sylvain50]

Merci beaucoup à toi

effectivement ça fonctionne très bien , merci beaucoup
A+