Discussion :

[Bastien_Witczak]

Bonsoir,

Je voudrais faire en sorte que mon programme remplace un ligne dans un fichier texte, et j'aurais aimé savoir si cela etait possible. Je précise que le fichier texte sera different d'un pc à un autre.

Exemple:

pc1: fichier.txt
salut
comment ca va
moi super

pc2: fichier.txt
salut jean
comment ca va
moi tres bien

je voudrais que le programme remplace juste la ligne "comment ca va" par "comment vas tu".

Merci d'avance

[Magistross]

En gros, il te faut recréer le fichier en entier mais en t'assurant de changer la ligne que tu veux.

Le plus facile sera sans doute d'utiliser des ReadLine et des WriteLine des classes StreamReader/StreamWriter.

[zitoune31]

Bonjour,

voici un exemple pour répondre à ta demande si je l'es bien comprise et en partant du principe que le fichier pc1 & pc2 se trouve au même Emplacement avec la même ligne à remplacer

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Imports System.IO
Public Class Form1
    Dim FSys 'pour écriture
    Dim Monfichier 'pour écriture
    Dim EmplacementFichier As String = "" ' pour enregistrement
    Dim Info
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "comment vas tu"
        EmplacementFichier = "D:\MonFchier.txt"
        ' Créer & Enregistre le Fichier
        FSys = CreateObject("Scripting.FileSystemObject")
        Monfichier = FSys.CreateTextFile(EmplacementFichier)
        'écris les saisi dans le fichier
        With Monfichier
            Monfichier.writeLine("salut")
            Monfichier.writeLine("comment ca va")
            Monfichier.writeLine("moi super")
        End With
        Monfichier.close()
        Dim Info
        Info = ("""Le fichier :\" & EmplacementFichier) & " à bien été enregistrer"
        MsgBox(Info, MsgBoxStyle.Information, )
        ' on remplace effectue le remplacement
        Dim filePath As String = (EmplacementFichier)
        ' on charge toutes les lignes
        Dim lines() = System.IO.File.ReadAllLines(filePath)
        ' on remplace la ligne choisie
        lines(1) = (TextBox1.Text)
        ' on enregistre le nouveau fichier
        File.WriteAllLines(filePath, lines)
        Info = ("Remplacement effectuer")
        MsgBox(Info, MsgBoxStyle.Information, )
    End Sub
End Class

[Bastien_Witczak]

Merci de vos réponses j'ai réussi a faire ce que je voulais.

Merci beaucoup.