Discussion :

[pascb423]

bonjour, j'ai fais le code ci-dessous mais je n'arrive pas à sortir lorsque mon fichier ini contient [prochain entretien] j'aimerai qu'îl mette dans la listview seulement les lignes comprises entre [date du dernier entretien] et [ prochain entretien], je bloque, merci

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
code visual studio vb.net 
Dim filename As String
        filename = ".\entretien.ini"
        Dim ligne2 As String
        Dim sr3 As StreamReader = New StreamReader(filename, System.Text.Encoding.UTF7)
        While sr3.EndOfStream = False
            ligne2 = sr3.ReadLine()
            If ligne2 = "[Date du dernier entretien]" Then
                If ligne2 = "[Prochain(s) entretien(s)]" Then Exit While
                While sr3.EndOfStream = False
                    Dim MyLine As ListViewItem = New ListViewItem(New String() {sr3.ReadLine})
                    dernier_entretien.ListView3.Items.Add(MyLine)
                End While
            End If
        End While
        sr3.Close()

[Selve]

Bonjour

Code :

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

1
2
If ligne2 = "[Date du dernier entretien]" Then
                If ligne2 = "[Prochain(s) entretien(s)]" Then Exit While '<-------------- erreur ne peut pas contenir ça

[pascb423]

j'ai écris ça mais ça n'efface pas les lignes?

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
Dim ligne As String
        Dim filename As String
        filename = ".\entretien.ini"
        Dim ligne2, ligne3 As String
        Dim sr3 As StreamReader = New StreamReader(filename, System.Text.Encoding.UTF7)
        Dim sw As New StreamWriter(".\tampolistview.txt")
        While sr3.EndOfStream = False
            ligne2 = sr3.ReadLine()
            If ligne2 = "[Date du dernier entretien]" Then
                While sr3.EndOfStream = False 'si c'est le dernier bloc et la fin du fichier
                    ligne2 = sr3.ReadLine()
                    sw.WriteLine(ligne2)
                End While
            End If
        End While
        sw.Close()
        sr3.Close()
        Dim linestart, linestop As Integer
        Dim lines As List(Of String) = System.IO.File.ReadAllLines(".\tampolistview.txt").ToList
        For y As Integer = 0 To lines.Count - 2
            If lines(y).Contains("[Prochain(s) entretien(s)]") Then
                linestop = y
            End If
        Next
        For u = linestop To lines.Count - 2
            lines.Remove(u)
        Next

[Phil Rob]

Ton algorithme, qui a pour objectif de supprimer des enregistrements d'un fichier, me paraît bien compliqué.
Mon algorithme de départ serait celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
                Dim UneLigne As String
                FichierALire = New StreamReader(TFichierEntree.Text, System.Text.Encoding.Default)
                FichierAEcrire = New StreamWriter(TFichierSortie.Text, False, System.Text.Encoding.Default)
 
                While FichierALire.Peek > -1
                    UneLigne = FichierALire.ReadLine()
                    If NOT (UneLigne = ... ce qui est à effacer ... ) Then
                         FichierAEcrire.WriteLine( UneLigne)
                     End If
                End While
 
                FichierALire.Close()
                FichierAEcrire.Close()

[pascb423]

merci phil, je vais me débrouiller avec ce que tu me propose , merci