Discussion :

[Gildas22]

Bonjour,

Je souhaite ajouter du texte dans un fichier texte qui contient déjà des caractères.
Exemple: j'ai un fichier texte qui contient "Mes premiers mots" et je veux ajouter "Mes seconds mots" pour avoir le fichier texte final: "Mes seconds mots" retour à la ligne et Mes premiers mots à la fin du fichier.
Mon code ci-dessous ajoute bien la ligne "Mes seconds mots" mais à la fin du fichier et non au début avant Mes premiers mots

Code :

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

1
2
3
Dim SW As StreamWriter = File.AppendText(chemin & "\monfihier.txt") ' crée le fichier ou si le fichier existe ajoute le texte de la ligne suivante
                    SW.WriteLine("" & Chr(13) & Me.TextBox1.Text )' la zone de textbox1 contient le texte "Mes seconds mots" 
                    SW.Close()'

Mon resultat obtenu est "Mes premiers mots" ensuite retour à la ligne et "Mes seconds mots"

Quelqu'un aurait une idée de code pour ajouter "Mes seconds mots" avant "Mes premiers mots"

Merci

[Gildas22]

Bonjour,

Je souhaite ajouter du texte dans un fichier texte qui contient déjà des caractères.
Exemple: j'ai un fichier texte qui contient "Mes premiers mots" et je veux ajouter "Mes seconds mots" pour avoir le fichier texte final: "Mes seconds mots" retour à la ligne et Mes premiers mots à la fin du fichier.
Mon code ci-dessous ajoute bien la ligne "Mes seconds mots" mais à la fin du fichier et non au début avant Mes premiers mots

Code :

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

1
2
3
Dim SW As StreamWriter = File.AppendText(chemin & "\monfihier.txt") ' crée le fichier ou si le fichier existe ajoute le texte de la ligne suivante
                    SW.WriteLine("" & Chr(13) & Me.TextBox1.Text )' la zone de textbox1 contient le texte "Mes seconds mots" 
                    SW.Close()'

Mon resultat obtenu est "Mes premiers mots" ensuite retour à la ligne et "Mes seconds mots"

Quelqu'un aurait une idée de code pour ajouter "Mes seconds mots" avant "Mes premiers mots"

Merci

J'ai trouvé sur le forum un post qui portait sur le même sujet http://www.developpez.net/forums/d34...-txt-existant/.

Je n'avais pas vu ce post avant d'ouvrir cette discussion. Je m'excuse . Effectivement en adaptant la réponse fournit à mon application le problème est résolu

Code :

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

1
2
3
4
Dim Contenu As String = My.Computer.FileSystem.ReadAllText(chemin & "\Evolution_du_mot_à_trouver.txt")
                    Dim Pos As Integer = Contenu.IndexOf(" " + vbCrLf, StringComparison.CurrentCultureIgnoreCase)
                    Contenu = Contenu.Insert(Pos + 1, Me.TextBox1.Text + Chr(13) + Chr(10))
                    My.Computer.FileSystem.WriteAllText(chemin & "\Evolution_du_mot_à_trouver.txt", Contenu, False)