Comment agir sur un fichier texte avec visual Basic

Bonjour,

J'essais de faire des modifications dans un fichier texte avec Visual Basic.

Avec StremReader j'arrive à lire (ReadLine par exemple) et avec StreamWriter j'arrive a écrire dans la fin du fichier (avec option TRUE).

Cependant je n'arrive pas à trouver comment faire pour rajouter une ligne ou effacer une partie pour inclure une insertion.

Merci pour l'aide.

Citation:

Envoyé par Panoramicks

Cependant je n'arrive pas à trouver comment faire pour rajouter une ligne ou effacer une partie pour inclure une insertion.

Pour ajouter ou supprimer des caractères, tu charge ton fichier d'origine (StreamReader) puis tu l'écris (StreamWriter) dans un fichier temporaire en ne conservant que ce qui t’intéresse. Dans un deuxième temps tu écrase le fichier de départ avec la nouvelle version modifiée...

va te renseigner sur le : System.IO.StreamReader() et le System.IO.StreamWriter() ;)

Bonjour,
Le system.io.file est dédié à ce genre d’évènements
Ce code devrait t'aider à y voir plus clair:

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'On va créer un fichier texte sur ton bureau et y inscrire quelque chose:
        System.IO.File.WriteAllText("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt", "abc" & Environment.NewLine & "def" & Environment.NewLine & "ghi" & Environment.NewLine)
 
        Dim Str As String = System.IO.File.ReadAllText("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt")
        MsgBox(Str & "(Lecture de tout le texte brut)")
 
        'Lecture de ligne par ligne et chargement dans le tableau 'Lignes()'
        Dim Lignes() As String = System.IO.File.ReadAllLines("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt")
 
        'Affichage de chaque ligne
        Dim i As Integer = 1
        For Each Line In Lignes
            MsgBox(Line & " => Ligne numéro " & i.ToString)
            i += 1
        Next
 
        'Rechercher un texte donné ('ef' dans ce cas) dans une ligne et la remplacer par 'xxx'
        i = 0
        Dim NewLignes(Lignes.Count - 1) As String
        For Each Line In Lignes
            If Line.Contains("ef") Then
                NewLignes(i) = "xxx" '(puisque on a trouvé le texte 'ef' dans la ligne)
            Else
                NewLignes(i) = Line
            End If
            i += 1
        Next
        'Re-écriture du fichier avec les modifications
        System.IO.File.WriteAllLines("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt", NewLignes)
 
        'Re-affichage de chaque ligne du fichier modifié
        Dim Lignes2() As String = System.IO.File.ReadAllLines("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt")
        i = 1
        For Each Line In Lignes2
            MsgBox(Line & " => Ligne modifiée numéro " & i.ToString)
            i += 1
        Next
 
        'Ajout de lignes à la fin du fichier:
        Dim ListeDeLignes As New List(Of String)
        ListeDeLignes.Add("Nouvelle ligne n° 1")
        ListeDeLignes.Add("Nouvelle ligne n° 2")
        System.IO.File.AppendAllLines("c:\users\" & Environment.UserName & "\desktop\MonFichier.txt", ListeDeLignes)
 
        MsgBox("Si tu ouvres le fichier 'MonFichier.txt' (sur ton bureau) tu devrais voir :" & Environment.NewLine & _
                "abc" & Environment.NewLine & _
                "xxx" & Environment.NewLine & _
                "ghi" & Environment.NewLine & _
                "Nouvelle ligne n° 1" & Environment.NewLine & _
                "Nouvelle ligne n° 2")
    End Sub