Discussion :

[CLeBeR]

Bonjour,

Je voudrais créer un systeme de favoris dans un navigateur web. Lorsque je clique sur mon bouton ( ajouter au favoris ) Sa ecrit dans un fichier texte, que ma ListBox recupère ensuite. J'ai réussi tout sa, seulement je voudrais qu'il saute une ligne a chaque fois qu'on clique sur ajouter au avoris mais sa écrase et il n'y a donc que une ligne a chaque fois

Code :

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

1
2
3
4
Dim sw As StreamWriter = New StreamWriter("C:\Program Files\MonFichier.txt")
        sw.WriteLine(URL.Text) ' URL étant ma texbox qui affiche l'url ou on se trouve
        sw.Close()
        Favoris.Show()

J'ai esssayé Write et WriteLine mais sa ne marche pas, j'ai également essayé

Code :

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

sw.writeline(URL.Text & vbnewline & "")

Sa ne marche pas sauf si je laisse mon form favoris ouvert.
Merci de votre aide

[gastoncs]

et la place de newline ta essayé /

Code :

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

& vbCrLf &

[CLeBeR]

Oui j'ai essayé et sa ne marche pas

[Pol63]

tout est indiqué dans l'aide

http://msdn.microsoft.com/fr-fr/libr...=VS.80%29.aspx

si tu ne précises pas au stremawriter qu'il doit écrire à la fin du fichier il le remplace

sinon un fichier pour ca c'est pas forcément génial, une petite base de donnés fichier serait mieux, ou alors un fichier mieux géré (tu arrives à supprimer un favoris dans le fichier actuellement ?)

[CLeBeR]

Merci beaucoup sa marche, j'avais déjà lu cette article mais je ne pensais pas qu'il détenait la solution !

Sa nous donne concrètement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim path As String = "C:\CheminDeVotrFichier\VotrFichier.txt"
        Dim sw As StreamWriter
        If File.Exists(path) = False Then
            sw = File.CreateText(path)
            sw.Flush()
            sw.Close()
        End If
        sw = File.AppendText(path)
        sw.WriteLine(URL.Text)
        sw.Flush()
        sw.Close()

[chrismonoye]

Bonjour
je crois que Pol voulait t'orienter vers la surcharge suivante :
StreamWriter(String, Boolean)

Paramètres

path
Type : System.String
Chemin d'accès complet du fichier dans lequel écrire.

append
Type : System.Boolean
Détermine si les données doivent être ajoutées au fichier. Si le fichier existe et si append est false, le fichier est remplacé. Si le fichier existe et si append est true, les données sont ajoutées au fichier. Sinon, un nouveau fichier est créé.

Ce qui simplifie le code à cela (sauf erreur) :

Code :

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

1
2
3
        Dim sw As New StreamWriter(path, True)
        sw.WriteLine(URL.Text)
        sw.Close()

[Pol63]

ca marche aussi ce qu'il a trouvé