Discussion :

[rv26t]

Ensuite, si l'on a souvent besoin de faire ce genre de recherche dans le programme, on construit de petites fonctions.

Recherche d'une ligne présente un certain nombre de fois dans un fichier texte.

Code :

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

1
2
3
    Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurrence As Integer) As Boolean
        Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurrence)
    End Function

A+, Hervé.

[Pol63]

ton post encore plus court et encore plus beau a disparu

sinon là j'aurais bien vu un if nboccurrence = 1 then (...).firstordefault isnot nothing qui doit être plus performant

et en effet un conseil pour les débutants, si vous avez plusieurs fois (donc au moins 2) le même code ou à peu près le même code à quelques mots ou paramètres près c'est qu'il y a moyen de factoriser

[rv26t]

Il n'était pas plus court et plus beau mais différent. (je l'ai vu juste après l'avoir envoyé, désolé)

Il ne prenait pas en compte le nombre d'occurrences.
Il permettait simplement de savoir si une ligne existait dans un fichier.

Code :

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

1
2
3
    Function ContientLigne(ByVal Fichier As String, ByVal LigneCherchee As String) As Boolean
        Return (System.IO.File.ReadAllLines(Fichier).Contains(LigneCherchee))
    End Function

Il n'a pas beaucoup d'intérêt, on gagne peu de code, peu de lisibilité, et l'autre code donne la même solution en donnant 1 pour le nombre d'occurrence. (qui peut le plus peu le moins)


Par contre contains a l'air est légèrement plus performant que la sélection linq. Certainement parsequ'il interrompt la recherche dès la 1ére occurrence trouvée.
il pourrait s'écrire

Code :

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

1
2
3
    Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String) As Boolean
        Return (System.IO.File.ReadAllLines(Fichier).Contains(LigneCherchee))
    End Function

Pour utiliser la surcharge et ainsi optimiser la recherche. (mais sur un petit fichier l'impact est négligeable)

[rv26t]

...

Merci pour le code rv26tn je vais tester cela...

...

De rien

Pour résumé ton code peut s'écrire

Code :

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

1
2
3
4
5
6
7
8
9
    Private Sub Fermeture(ByVal sender As Object, ByVal e As EventArgs)
        Me.ToolStripProgressBar2.Value = 100
        Me.ToolStripStatusLabel3.Text = "Terminé."
        Me.PictureBox24.Visible = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
    End Sub
 
    Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurence As Integer) As Boolean
        Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurence)
    End Function

[botbot]

Bonjour à tous, si je ne m'abuse rv26t étant donné que je n'ai plus le "Me.invoke..." j'ai le même bug qu'auparavant.

Du coup, j'ai fait un mix :

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
 
 Private Sub fermeture()
 
        Dim testreussi As Boolean = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
        resultattest(testreussi)
    End Sub
 
   Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurence As Integer) As Boolean
        Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurence)
    End Function
 
 
    Public Sub resultattest(ByVal resultat As Boolean)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of Boolean)(AddressOf resultattest), resultat)
            Exit Sub
        End If
        'MsgBox(num)
        Me.ToolStripProgressBar2.Value = 100
        Me.ToolStripStatusLabel3.Text = "Terminé."
        If resultat = True Then
            Me.PictureBox24.Visible = True
            Me.PictureBox23.Visible = False
        Else
            Me.PictureBox23.Visible = True
            Me.PictureBox24.Visible = False
        End If
    End Sub

Si je vous montrait tout mon projet je suis sur que je passerai de 7500 lignes à 1500

[rv26t]

Bonjour à tous, si je ne m'abuse rv26t étant donné que je n'ai plus le "Me.invoke..." j'ai le même bug qu'auparavant.

Du coup, j'ai fait un mix :

Effectivement je ne m'étais basé que sur ton code de départ pour tester (raccourcir le code).

[rv26t]

Je pense que ton nouveau code avec la correction doit pouvoir s'écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub fermeture()
        If Me.InvokeRequired Then
            Me.Invoke(New Action(AddressOf fermeture))
        Else
            Me.ToolStripProgressBar2.Value = 100
            Me.ToolStripStatusLabel3.Text = "Terminé."
            Me.PictureBox24.Visible = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
            Me.PictureBox23.Visible = Not Me.PictureBox24.Visible ' la visibilité de PictureBox23 doit être l'inverse de PictureBox24
        End If
    End Sub

A tester.

Penser à marquer le sujet en