Discussion :

[M.sarah1988]

bonjour à tous , je commence à faire une application pour des opérations sur les fichiers logs , c'est ce que j'ai fait jusqu’à maintenant c'est sélectionner le fichier l'ouvrir et l'afficher dans un message box dans mon interface mais ce que j'aimerais faire c'est entrer le numéro d'une ligne que je souhaiter afficher dans un textbox et l'afficher dans l'interface ou bien ouvrir le fichier en sélectionnant la ligne avec une couleur différente.
voici le code du bouton "Afficher la ligne"mais ça fonctionne pas correctement :

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
  Private Sub BtOuvreFlux_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOuvreFlux.Click
        TResFichier.Text = ""
        Dim counter As Int32 = 0
        Dim Monflux As Stream
        Monflux = File.OpenRead(TcheminFichier.Text)
        Dim Maligne As StreamReader = New StreamReader(Monflux, System.Text.Encoding.ASCII)
        Maligne.BaseStream.Seek(0, SeekOrigin.Begin)
        While Maligne.Peek() > -1
            counter += 1
            Dim rep As String = Maligne.Peek
            TResFichier.Text = TResFichier.Text + Maligne.ReadLine() + vbNewLine
            If counter = TextBox1.Text Then
                selectioner("green")
            End If
 
        End While
        Maligne.Close()
    End Sub

[rv26t]

Bonjour,

Tu peux utiliser un datagridview pour voir les lignes et en afficher une dans une couleur différente

Lecture et affichage des lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private LstLigneLogs As List(Of String)
    Private num As Integer = 0
    Private FichierLogs As String = "D:\data\fichiers\groupe.txt" ' en dur pour test
 
    Private Sub btnLitFichier_Click(sender As System.Object, e As System.EventArgs) Handles btnLitFichier.Click
        LstLigneLogs = System.IO.File.ReadAllLines(FichierLogs).ToList
        dgvLogs.Rows.Clear()
        For Each ligne As String In LstLigneLogs
            dgvLogs.Rows.Add(ligne)
        Next
    End Sub

Affichage de la ligne dans la couleur voulue (et remet l'ancienne à sa couleur d'origine)

Code :

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

1
2
3
4
    Private Sub txtLigne_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtNumLigne.TextChanged
        dgvLogs.Rows(num).Cells(0).Style.BackColor = Color.White
        If Integer.TryParse(txtNumLigne.Text, num) Then dgvLogs.Rows(num).Cells(0).Style.BackColor = Color.Aqua
    End Sub

[DD-78]

Bonjour,

Pour sélectionner la ligne avec une couleur différente, tu peux utiliser RichTextBox car je ne pense pas que cela soit possible avec TextBox.

Ton code ne fonctionne pas car tu compares un entier avec un texte :

Code :

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

If counter = TextBox1.Text Then

à remplacer par

Code :

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

If counter = CInt(TextBox1.Text) Then

Tu peux utiliser un label pour afficher la ligne recherchée.

Utilise Try, Catch pour la gestion des erreurs.


Voici un exemple :

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
' Nécessite Label1
 
Option Explicit On
Option Strict On
 
Imports System.IO
 
------------------------------
 
Private Sub LireFichier(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtOuvreFlux.Click
        Try
            Label1.ForeColor = Color.Green ' Choix de la couleur de texte
            TResFichier.Clear() : Label3.Text = Nothing
            Dim counter As Int32
            Dim rep, chaine As String
            rep = Nothing : chaine = Nothing
 
            Dim Maligne As New StreamReader(TcheminFichier.Text, System.Text.Encoding.ASCII)
 
            While Maligne.Peek() > -1
                counter += 1
                chaine = Maligne.ReadLine
                TResFichier.Text &= chaine & Environment.NewLine
                If counter = CInt(TextBox1.Text) Then ' <== Comparaison avec le même format (integer)
                    rep = chaine
                    ' MsgBox("ligne n° " & TextBox1.Text & " :" & vbNewLine & rep) ' <== Si tu veux afficher la ligne dans un méssage.
                End If
            End While
            Maligne.Close()
            Label1.Text = rep ' <== Affiche la ligne recherchée dans un Label
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & ex.ToString)
        End Try
 
    End Sub