Ajouter dans une fichier existante

Version imprimable

slt à tous

voilà je travaille sur vb 2008 j'ai un problème d'ajout de ligne dans une fichier, voilà l'idée je veux écrire ou plutôt ajouter une ligne dans une fichier texte existante j'ai essayé de le faire mais chaque fois il écrase le contenu du fichier et met seulement le nouveau contenu voilà un code que j'ai essayé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sw As StreamWriter
        dat = DateTimePicker2.Value.Date.ToString.Substring(0, 10)
        temps = DateTimePicker1.Value.TimeOfDay.ToString.Substring(0, 5)
        Dim ch_acce As String = "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\WindowsApplicationCalendrier\WindowsApplicationCalendrier\bin\Debug\memo.txt "
        Try
            sw = File.CreateText(ch_acce)
            sw.WriteLine(txtnom.Text + " " + temps)
            sw.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Erreur fichier", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

merci de m'aider :)

26/03/2010, 11h50
cybermaxs

Salut,

Selon que tu veux écrire au début ou à la fin, tu peux regarder du coté de la méthode Seek pour te positionner dans le fichier, ou plu simplement de File.OpenWrite pour ajouter du contenu à la fin.
26/03/2010, 11h54
hunteshiva

je ne vais pas vraiment t'aider mais ...
plutôt que

Code:

Dim ch_acce As String = "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\WindowsApplicationCalendrier\WindowsApplicationCalendrier\bin\Debug\memo.txt "

tu peut simplifier par ceci:

Code:

Dim ch_acce As String = Application.StartupPath & "\memo.txt "

J'oublié,
en plus de simplifier ton code
sa suis ton application :mrgreen:
c'est-a-dire que une fois ton programme fini, si tu déplace ton .exe avec ton fichier "memo.txt"
dans un autre dossier, sa fonctionnera toujours :ccool:

alors que avec un lien fixe comme tu a mis, sa ne marchera que s'il reste toujours au même endroit ...
(sa peut étre problématique si tu doit déplacer ton appli sur un autre pc)
26/03/2010, 11h57
walid kh

Merci pour la réponse mais comme tu peux le constaté de mon code que je veux écrire tout une ligne à la fin du fichier alors que File.OpenWrite ne me le permet pas :(

Bonjour,

Utilise un FileStream qui définira le mode d'ouverture de ton fichier.
Dans l'exemple, Append, pour signaler la concaténation à la fin du fichier.
Dans le StreamWriter, tu peux préciser l'encodage de ton fichier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click dat = DateTimePicker2.Value.Date.ToString.Substring(0, 10) temps = DateTimePicker1.Value.TimeOfDay.ToString.Substring(0, 5) Dim ch_acce As String = "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\WindowsApplicationCalendrier\WindowsApplicationCalendrier\bin\Debug\memo.txt " Try Dim fs as New System.IO.FileStream(ch_acce, System.IO.FileMode.Append) Dim sw As new StreamWriter(fs) sw.WriteLine(txtnom.Text + " " + temps) sw.Flush() sw.Close() fs.Close() Catch ex As Exception MessageBox.Show(ex.ToString(), "Erreur fichier", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub
PS : Je n'ai pas testé le code, mais cela doit s'approcher de cela.

NB : Sans vouloir être méchant, il est parfois utile de regarder les tutoriels, les méthodes disponibles de .NET (explorateur d'objets), et de faire une recherche par soi même sur internet. Les autres internautes n'ont pas forcément comme unique but dans la vie que de rechercher à ta place.

26/03/2010, 12h22
walid kh

Merci beaucoup cougarg c est vraiment ce que je voulais faire merci beaucoup et pour la note que tu avais mis non je n'ai pas posté ma question directement ca fait maintenant 2 jours que je cherche dans le net comment réglé mon problème et je testé par moi même mes propres idés mais sans résultat :aie: ; mais bon ca fait rien et milllle merci encore :ccool:

Aussi pour hunteshiva merci pour l'aide ca va m'aider beaucoup dans mon projet :ccool:

merci les amis c résolu :ccool: