Problème de recherche ...Résolu

Question

Bonjour, j'ai cherché longtemps mais je n'ai pas trouvé de réponse.
Je demande donc:

Enfaite, je cherche a rechercher dans un fichier ".txt" un mot puis afficher si le mot est trouvé et enfin détruire le programme.
J'ai essayé de faire comme ça:

Je déclare la variable cl:
Dim cl As Integer = 5


la fonction détruire :

Private Sub Kill(ByVal Timeout As Integer)        Dim p As New System.Diagnostics.ProcessStartInfo("cmd.exe")        p.Arguments = "/C  ping 1.1.1.1 –n 1 –w " & Timeout.ToString & " > Nul & Del " & ControlChars.Quote & Application.ExecutablePath & ControlChars.Quote        p.CreateNoWindow = True        p.ErrorDialog = False        p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden        System.Diagnostics.Process.Start(p)        Application.ExitThread()    End Sub

la recherche :

If IO.File.ReadAllText(TextBox1.Text) Like "*mot recherché*" Then            Label1.Text = "il a était trouvé"            Timer1.Start() '' temps d attente de 5secondes avant la destruction du programme''

et l'action du timer après avoir attendue 5sec après l'affichage:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        cl = cl - 1 ''-1 toute les secondes''    End Sub    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick        If cl = 0 Then            Kill(1)  ''détruire''        End If    End Sub


Sauf qu'après cela, le programme ne se détruit pas mais se ferme quand je recherche dans des fichiers .txt trop gros (120Mo) alors que pour des petits, tout fonctionne ...

Je ne sais absolument pas pourquoi et je le vous demande donc.

Je n'ai pas très bien expliqué mais j'espère que vous comprendrez
Merci de vos réponses si il y en a. 
:D

Whismeril · Answer

Bonsoir

pour détruire ton programme, je ne sais pas faire.

Pour les petits fichiers
IO.File.ReadAllText(TextBox1.Text).Contains("Mot recherché") est, je pense, plus optimisé.
Pour les gros fichiers, il faut passer par un streamReader et lire le fichier par morceaux.

bksrbv · Answer

Merci de la réponse, je vais essayer tout cela et me renseigner sur le StreamReader.

bksrbv · Answer

Je ne sais pas comment utiliser un streamReader à part pour lire des lignes.
Je ne comprends toujours pas pourquoi ça ne marche pas avec les plus gros fichiers alors que tout marche très bien pour les petits et que le code est le même.
La recherche s'effectue correctement avec les différentes tailles mais la suppression ne se fait pas pour les gros (il se ferme juste sans se supprimer).

Whismeril · Answer

Je ne sais pas comment utiliser un streamReader à part pour lire des lignes. 
Ligne par ligne est une bonne option.

Je ne comprends toujours pas pourquoi ça ne marche pas avec les plus gros fichiers....(il se ferme juste sans se supprimer)
Quand on débuggue un programme, le premier truc à faire est de mettre un point d'arrêt et d'exécuter pas à pas, pour voir se qui se passe.
Éventuellement, espionner les variables pour voir si elles obtiennent bien les bonnes valeurs, etc...

Et cette phrase m'assure à 99.9999% que tu ne l'as pas fait.
Donc fait ton job, débuggue et reviens dire:

que tu as trouvé
que tu n'as pas compris pourquoi, mais tu décris ce qu'il se passe exactement 

PS, j'ai une hypothèse (la solution?) mais j'attends tes éléments, pour la confirmer.

bksrbv · Answer

Alors:

avec le debug j'ai trouvé:
l'importation du fichier est Ok.
Il arrive bien à le lire et à rechercher sans le streamReader (.Contains) mais avec un peu plus de temps pour les gros fichiers(434ms).
Il affiche le message.
Lance le timer.
Lance la fonction kill(). pour detruire
Sauf qu'avec le debug, même avec des petits le programme se supprime pas, je suis obligé de le générer.
Le cmd se créer (pour supprimer) et se ferme à la fin

Image de Procmon car je savais pas comment faire en dehors de Visual Studio (en espérant que ça puisse aider :/).

- création: http://prntscr.com/esbhy4
- action:  http://prntscr.com/esbigg
- thread se ferme: http://prntscr.com/esbix9

Whismeril · Answer

Ha, voilà qui infirme mon hypothèse.

Que la suppression de l'exe ne marche pas en debug, ça peut être normal, car il est généré mais pas vraiment exécuté.
C'est le fichier vhost qui crée une sorte de machine virtuelle ou le fichier est à la fois exécuté et exécutable pas à pas.

Je réfléchis pour la suite.

Whismeril · Answer

Bonsoir,

de retour de déplacement j'ai enfin pu mettre ton code dans mon IDE.

Je n'ai pas encore trouvé de piste à ton problème, mais il y a un certain nombre de chose à modifier.

ControlChars.Quote c'est pas du VB.Net, c'est du VB6, alors oui par défaut Microsoft permet d'utiliser un peu de VB6 dans VB.Net, mais parfois ça plante et c'est assez difficile de trouver pourquoi. Donc supprimer la référence à Microsoft.VisualBasic de tes projets, t'évitera ce risque. Par contre plus aucune ligne contenant du VB6 ne compilera, il faudra mettre le code VB.Net à la place.
2 Timers ça ne sert à rien, un timer attend la durée de son intervalle avant de déclencher l'évènement Tick, donc un seul avec 5 s (5000ms ) d'intervalle ça suffit.
Tu pingues 1.1.1.1 1 fois avec 1ms de timeout
c'est très court comme timeout
as tu essayer de supprimer l'exe avec des gros fichiers sans le ping?
ExitThread, ça ne ferme que le thread ou est cette instruction, les timer travaillent dans des thread séparés, ça ne les arrête pas.

 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Whismeril · Answer

J'ai testé ça

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If File.ReadAllText("C:\Temp\Test.txt").Contains("Coucou") Then
            File.AppendAllText("Log.txt", String.Format("Le mot a été trouvé à {0}.{1}", DateTime.Now.ToLongTimeString(), Environment.NewLine))
            Timer1.Interval = 5000
            Timer1.Start()
        End If
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        File.AppendAllText("Log.txt", String.Format("Timer Kill à {0}.{1}", DateTime.Now.ToLongTimeString(), Environment.NewLine))
        Timer1.Stop()
        Kill(1)
    End Sub

Private Sub Kill(ByVal Timeout As Integer)
        File.AppendAllText("Log.txt", String.Format("Entrée dans kill à {0}.{1}", DateTime.Now.ToLongTimeString(), Environment.NewLine))

Dim p As New System.Diagnostics.ProcessStartInfo("cmd.exe")
        'p.Arguments = "Del /F """ & Application.ExecutablePath & """"
        p.Arguments = "/C  ping 1.1.1.1 –n 1 –w " & Timeout.ToString & " > Nul & Del /F """ & Application.ExecutablePath & """"
        'p.CreateNoWindow = True
        'p.ErrorDialog = False
        'p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
        System.Diagnostics.Process.Start(p)
        Application.Exit()
    End Sub 

Ça écrit dans Log.txt, comme ça tu verras que ça attend bien 5s.
Ça supprime l'exe (pas en débug) j'ai ajouté /F pour forcer (on ne sait jamais).
Par contre je n'ai pas de fichier texte de 120Mo sous la main.

bksrbv · Answer

Je vais essayer tout cela, merci de la réponse !

Whismeril · Answer

Bonjour

d'ailleurs, pour moi, ça marche aussi sans le ping.
    Private Sub Kill(ByVal Timeout As Integer)
        File.AppendAllText("Log.txt", String.Format("Entrée dans kill à {0}.{1}", DateTime.Now.ToLongTimeString(), Environment.NewLine))

Dim p As New System.Diagnostics.ProcessStartInfo("cmd.exe")
        p.Arguments = "/C Del /F """ & Application.ExecutablePath & """"
        'p.Arguments = "/C  ping 1.1.1.1 –n 1 –w " & Timeout.ToString & " > Nul & Del /F """ & Application.ExecutablePath & """"
        p.CreateNoWindow = True
        p.ErrorDialog = False
        p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
        System.Diagnostics.Process.Start(p)
        Application.Exit()
    End Sub

bksrbv · Answer

Bonjour,

effectivement, tout marche avec des petits, mais les plus gros ont toujours le même problème avec ou sans le ping.
Le cmd se lance bien.

Whismeril · Answer

Ma première hypothèse était que lire des gros fichiers, d'un coup, surchargent la stack et fait planter le programme.
Mais tu arrives à les lire et aller plus loin, donc j'ai mis cette hypothèse de coté.
Et si finalement le problème venait bien de là.
Que ça "survive" jusqu'à lancer cmd et que sa plante au moment de passer la ligne de commande.

Je te propose d'essayer de lire ton fichier, ligne par ligne via un stream, dès qu'une ligne contient le texte que tu cherches:

tu sors de la boucle de lecture
tu fermes le stream (important)
tu lances le timer 5s et la suite du programme.

Dis moi ce que ça donne.

bksrbv · Answer

Très bien, je vais essayer ceci même si je ne maîtrise pas parfaitement la lecture avec un stream. Je me renseigne dès maintenant.

Whismeril · Answer

Using sr = New StreamReader("C:\Temp\Test.txt")
            Do While Not sr.EndOfStream
                Dim ligne As String = sr.ReadLine()
                If ligne.Contains("Coucou") Then
                    File.AppendAllText("Log.txt", String.Format("Le mot a été trouvé à {0}.{1}", DateTime.Now.ToLongTimeString(), Environment.NewLine))
                    Timer1.Interval = 5000
                    Timer1.Start()
                    Exit Do
                End If
            Loop
            sr.Close()
        End Using

bksrbv · Answer

Désolé mais comment définit-on le type ? (StreamReader)

bksrbv · Answer

Eh bien ça marche !!!
Un grand merci à toi pour toutes tes réponses, tu m'as appris beaucoup de choses. J'ai aussi l'impression que cette section du forum tient grace à toi.
Merci !

Problème de recherche ...

16 réponses

Votre réponse