Discussion :

[tbdarkspirit]

Bonjour,

Voilà j'aimerai ajouter une ligne à un fichier text déjà existant.

Mais je ne veux pas que cette ligne soit ajoutée à la fin du text, mais après un mot définit.

exemple :

si j'aimerais rajouter la ligne "toto est gentil" après la ligne "test3" de ce fichier :

Code :

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

1
2
3
4
test1
test2
test3
test4

pour que ca me donne au final ceci :

Code :

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

1
2
3
4
5
test1
test2
test3
toto est gentil
test4

Voilà j'éspère avoir été assez explicite...

Vous avez une idée de comment je pourrais faire ça?

Merci d'avance

[bidou]

Il y a beaucoup de façon de faire ca. Par exemple si le fichier n'est pas très gros tu peux faire

Code :

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

1
2
3
4
        Dim Contenu As String = My.Computer.FileSystem.ReadAllText("d:\user\test.txt")
        Dim Pos As Integer = Contenu.IndexOf("Test3" + vbCrLf, StringComparison.CurrentCultureIgnoreCase)
        Contenu = Contenu.Insert(Pos + 7, "toto est gentil" + Chr(13) + Chr(10))
        My.Computer.FileSystem.WriteAllText("d:\user\test.txt", Contenu, False)

[tbdarkspirit]

Merci beaucoup c'est exactement ce que je cherchais!