Discussion :

[walid kh]

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 :

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

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

[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.

[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

[cougarg]

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 :

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
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.

[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 ; mais bon ca fait rien et milllle merci encore

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

merci les amis c résolu

[hunteshiva]

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

Code :

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

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 :

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

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

J'oublié,
en plus de simplifier ton code
sa suis ton application
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

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)