Crash application sans message erreur.

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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é.

19/04/2013, 22h22
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
20/04/2013, 00h01
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:

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:

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)

Citation:

Envoyé par botbot

...

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

...

De rien

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

Code:

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

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 : :mrgreen:

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
 
 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 :mouarf:

20/04/2013, 12h06
rv26t

Citation:

Envoyé par 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 : :mrgreen:

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

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

Code:

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 :resolu:

Voir 40 message(s) de cette discussion en une page