Récupérer chaque caractère d'un message de sortie d'un processus "Remuxtool"

Version imprimable

Bonsoir à tous,
j'espère que vous pourrez m'aider, Je suis devant un problème un peu spécifique.
Je cherche à récupérer chaque caractères d'une ligne émise par RemuxTool (lancer par un objet Process).
Cette ligne à une particularité : C'est une suite de caractéres : "_" ajouté un par un pour représenter la progression du processus.
problème : En VB.NET je sais lire des lignes entières mais pas caractère par caractère. Hors j'ai besoin de détecter l’émission de chaque caratére pour faire mon propre formulaire de progression avec progressBar et calcul du temps restant...etc.

Voici le code que j'utilise et qui fonctionne trés bien quand il s'agit de lire ligne par ligne. :

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
29
    Private Sub ShellExecute(ByVal ExeFile As String, CommandLine As String)
 
        Dim MonProcess As New Process
        AddHandler MonProcess.OutputDataReceived, AddressOf OutputDataReceived
        AddHandler MonProcess.ErrorDataReceived, AddressOf ErrorDataReceived
        AddHandler MonProcess.Exited, AddressOf ProcessExit
 
        'MonProcess.SynchronizingObject = Me
        MonProcess.EnableRaisingEvents = True
 
        MonProcess.StartInfo.FileName = ExeFile
        MonProcess.StartInfo.Arguments = CommandLine
        'MonProcess.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
        MonProcess.StartInfo.CreateNoWindow = True        ' True
        MonProcess.StartInfo.UseShellExecute = False      ' False
        MonProcess.StartInfo.RedirectStandardOutput = True
        MonProcess.StartInfo.RedirectStandardInput = True
        MonProcess.StartInfo.RedirectStandardError = True
 
 
        MonProcess.Start()
 
        MonProcess.BeginOutputReadLine()
        MonProcess.BeginErrorReadLine()
 
 
        MonProcess.WaitForExit()
        MonProcess.Close()
    End Sub

Les Evenements DataReceived :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Private Sub OutputDataReceived(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)
 
        Try
            ProcessOutputData = e.Data.ToString
            Invoquer(e.Data.ToString)
            Debug.Print(e.Data.ToString)
        Catch ex As Exception
 
        End Try
 
    End Sub
 
    Private Sub ErrorDataReceived(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)
 
        Try
            ProcessOutputData = e.Data.ToString
            Invoquer(e.Data.ToString)
            Debug.Print(e.Data.ToString)
        Catch ex As Exception
 
        End Try
 
    End Sub

Merci beaucoup si vous avez une idée.

11/08/2013, 10h08
BasicZX81

Bonjour, je ne suis pas certain d'avoir beaucoup de solution pour ce problème là :(.
Je connais quelqu'un qui à réussi à le faire en Delphi en redirigeant en temps réel se qui s'affiche dans la fenêtre Dos (sans que la fenêtre Dos s'affiche). En Delphi ça s'appelle "Doscommand".
C'est peut-être une piste mais je ne sais pas si une telle fonction existe en VB.NET ou comment la mettre en oeuvre.

Si vous avez des idées ça m'interresse beaucoup parce que je ne vois vraiment pas comment faire.
11/08/2013, 13h28
ACIVE_CS

Bonjour,

Je crois ne pas avoir bien compris..
Tu arrives a lire la ligne (e.Data.ToString) mais tu veux lire caractère par caractère?
Que contient e.Data.ToString?
Que veux-tu récupérer?
11/08/2013, 14h25
BasicZX81

Bonjour et merci d'essayer de m'aider.
e.data.ToString contient ceci :
"-------------------------------------------------------------------------"
soit 73 caractères "_".
l’événement ...DataReceived est levé uniquement quand la ligne est complète (soit avec 73 caractères).
Dans la fenêtre Dos les caratéres "_" s'affiche un par un. Si j'ai 1 caractère, cela signifie que l'encodage à progressé de 1/73 et dés que la ligne comprends les 73 caractères cela signifie que l'encodage est terminé.
j'aimerais être avertie au fur et à mesure (dés qu'un caractére "_" est ajouté dans la ligne) afin de pouvoir afficher le pourcentage de progression et faire les calculs du temps restant dans mon programme.
12/08/2013, 09h54
BasicZX81

Personne pour m'aider ? J'ai bien peur de ne pas pouvoir trouver la solution.
12/08/2013, 10h12
chaparo

Code:

e.data.ToString.lentgh

Ca te donnera le nombre de caractère dans la chaine. Si j'ai bien compris t'a demande.
Du coup après tu peux mettre ton increment de progressbar dans ta fonction.
12/08/2013, 10h14
_Ez3kiel

Dans quoi affiches-tu tes caractères ? (Si TextBox ou qlqes autres controls alors tu as l'event TextChanged, si autres tu peux stocker les caractères dans une property et dans le Set tu incrémentes un compteur)
Où est la ligne qui génère le "-" ?
12/08/2013, 11h15
BasicZX81

Bonjour et merci d'essayer de m'aider.

Citation:

Dans quoi affiches-tu tes caractères ?

Le problème n'est pas de savoir dans quoi je les affiche mais de savoir comment être notifié dans mon programme quand le Processus génère un nouveau caractère : "_", car comme je l'expliquais plus haut je suis averti dans mon programme uniquement quand le Processus a fini de générer la totalité des 73 caractères, autrement dit quand le Processus est terminé. Hors je voudrais être notifié à chaque génération de caractère sinon je ne vois pas comment faire avancer une progressbar et faire un calcul du temps restant autrement.

Citation:

Où est la ligne qui génère le "-" ?

Ce n'est pas mon programme qui génère le caratére "_" mais le Processus externe qui est Remuxtool.

Le problème n'est pas simple, j'espère que vous pourrez m'aider.

Comme je t'ai dit, si les caractères vont dans un control (TextBox, etc) qui a l'event TextChanged, à chaque caractères rentré, un event textchanged est envoyé et dans cet event, tu peux avoir la taille du texte au moment où le caractère est rentré.

Ou si tu arrives à faire en sorte que le processus écrive dans une property ...
Code:

1 2 3 4 5 6 7 8 Private _avancementProcess As String Private _compteurAvancementProcess As Integer = 0 Public WriteOnly Property avancementProcess() As String Set(ByVal Value As String) _avancementProcess = _avancementProcess & Value _compteurAvancementProcess += 1 End Set End Property
Pour conclure, par un textchanged ou une property tu seras notifié pour chaque génération de caractère.

12/08/2013, 14h20
BasicZX81

Bonjour, c'est peut-être moi qui ai mal compris mais....
Si je ne dit pas de bêtises l’évent TextChanged d'un control se produit lorsque l'on modifie le text de ce control depuis le code ou une entrée utilisateur. Cela m'irait bien si je pouvais entrer les caractères un par un dans ce control sauf que je ne peux pas le faire puisque je reçois une ligne entière dans l’évent DataReceived.
Il faudrait que cet événement soit levé autant de fois que j'ai de caractères.

Ce que je vois sur la fenêtre Dos du Process n'est pas ce que je reçois :
Dans l'ordre chronologique :
- Démarrage du Processus.
Les étapes ci-dessous correspondent à ce qui s'affiche sur la fenêtre Dos (durant les 73 minutes mon programme n'est notifié de rien) :
- Au bout d'1 minute : affichage d'un caractère "_" sur la fenêtre Dos. A cette étape je devrais être notifié dans mon programme que le Process a généré un caratére mais ce n'est pas le cas.
- Au bout de 2 minutes : ajout d'un caractére "_" sur la même ligne que ci-dessus. Soit "__".
....
- Au bout de 20 minutes : j'ai 20 caractères "_"affichés sur la même ligne que ci-dessus. Soit "____________________"
- Au bout de 73 minutes : j'ai les 73 caractères affichés ce qui correspond à la fin du Processus.
- Dernière étape : enfin je suis notifié dans mon programme via l'event DataReceveid, je reçois les 73 caractères mais c'est trop tard.
12/08/2013, 14h35
chaparo

As tu accès au code source de Remuxtool ?

Si oui vous pouvez regarder du coté de la création d'évenement.
Ici ou là le deuxième est en C# mais ça se comprend.
12/08/2013, 15h17
_Ez3kiel

Au temps pour moi, c'est moi qui ai mal compris en ce cas. :oops:

Je comprend mieux ce que tu cherches à faire, mais soit on fait une lecture synchrone, et tu n'auras que le texte "final", soit une asynchrone (ce que tu fais), mais apparemment c'est aussi le texte final ... Je ne sais pas trop, en espérant que d'autres helpers auront des idées ...
12/08/2013, 18h11
BasicZX81

@ _Ez3kiel : Il n'y a pas de mal , c'est sympa d'avoir essayé de m'aider.
@chaparo : hélas je n'ai pas accès au code source. Je doit faire avec les infos que le Remuxtool veux bien fournir.

je sais que ça fonctionne en Delphi que je l'ai écrit plus haut. Je crois que la technique consiste à lire directement dans le buffer d'affichage de la console Dos de Remuxtool, un truc dans ce style mais je n'en sais pas plus.

Merci à tous ceux qui ont des idées.
12/08/2013, 20h28
BasicZX81

Bonsoir j'ai trouvé ceci mais c'est écrit en C++ et je ne sais pas comment l'utiliser, si je peux l’intégrer à mon projet et si cela réponds exactement à mon problème étant donné que je ne sais pas lire le C++..:(
http://www.codeproject.com/Articles/...ut-Redirection

Mais à mon avis je crois que je ne vais pas y arriver, ça devient trop compliqué pour moi.
Je remercie ceux qui ont bien voulu m'aider.
13/08/2013, 01h17
ACIVE_CS
Salut tout le monde,

BasicZX:
Je ne t'ai pas abandonné, c'est que j'ai eu du taf... ;)

Alors, ton histoire est bizarre, j'ai très bien compris ce que tu souhaites faire.
Au début je me suis dit, bon ça va être "les doigts dans le nez"... :lol::D
Eh bah j'ai eu le même problème !!!
J'ai même créé un fichier .bat qui simule (a peu-près) ton autre application:
Code:

1 2 3 4 5 6 7 8 9 10 ECHO OFF set /a count = 0 :boucle set /a count = count + 1 if %count%==73 goto finboucle (Set /P VarName=_) < NUL ping -n 1 1.1.1.1 -w 100 >nul GoTo boucle :finboucle
Si je le lance avec cmd on y voit bien les "_" qui avancent progressivement et avec VB.net, eh bah... je reçois tous les caractères d'un seul coup, de manière asynchrone ou non.

Bizarre mais on va trouver (j'espère) :mouarf:
13/08/2013, 08h34
BasicZX81

Pas mal ton fichier .bat ACTIVE_CS. Ça simule bien ce qui s'affiche à l’écran. Par contre je me suis trompé de caractère, c'est le caractère "-" (Tiret) qui s’affiche, du coup j'ai été vérifier dans mon programme car j'avais un doute mais c'est aussi une ligne de caractère avec des tirets que je reçois. Ce sont donc bien les mêmes caractères dans la fenêtre Dos et dans mon programme.

Ça serait inintéressant de savoir si tu reçois bien la même chose que moi en lançant le .bat depuis la routine ShelleExecute.
13/08/2013, 08h39
rv26t

Bonojur,

Ce tuto Exécution synchrone d'un programme console dans une application devrait pouvoir vous aidez.
C'est en C#, mais vous avez le principe et les explications.
13/08/2013, 08h48
BasicZX81

merci rv26t, je vais regarder ça.
@ACTIVE_CS : je viens de tester ton fichier .bat dans mon programme.
On a 3 événements DataReceveid qui sont levés :
1 : on reçois une chaîne vide.
2 : on reçois une chaîne : (chemin d’accès au fichier & >ECHO OFF)
3 : on reçois les 73 tirets en une seule fois. (-------------------------------------------)

le fichier .bat simule tés bien Remuxtool.

Un prog en mode console qui emet les - pour test (sans la chaine parasite du bat ECHO OFF)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Module Module1
    Dim UnTimer As New System.Timers.Timer
    Dim LeNombre As Integer = 0
    Sub Main()
        UnTimer.Interval = 1000
        AddHandler UnTimer.Elapsed, AddressOf tick
        UnTimer.Start()
        Console.Read() ' ou Console.ReadLine()
    End Sub
    Private Sub tick(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        Console.Write("-")
        LeNombre += 1
        If LeNombre > 72 Then
            UnTimer.Stop()
            'System.Windows.Forms.SendKeys.SendWait("{ENTER}")
            Environment.Exit(0)
        End If
    End Sub
End Module

Merci beaucoup rv26t, j'ai enfin pu obtenir les caractères au fur et à mesure qu'il s'affiche. Et grâce à ACTIVE_CS le .bat est super pratique pour faire des tests en condition presque réel. On avance :ccool::ccool::ccool:
Sinon merci beaucoup mais la chaîne parasite ne me gène pas, Remuxtool génère aussi d'autre chaines que je vais devoir filtrer de toute façon pour ne garder que la ligne correspondant à la progression.

Voici le code que j'ai mis en place pour faire des tests (j'ai ajouté une feuille CancelForm comme indiqué dans l'exemple donné par rv26t) :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ExecuteSimuRemuxtool()
    End Sub
 
    Private Sub ExecuteSimuRemuxtool()
        Dim CommandeLine As String
 
        CommandeLine = ""
        Call ShellExecute2("SimuRemuxtool.bat", CommandeLine)
    End Sub
 
    Dim WinStop As CancelForm
    Dim MonProcess As Process
    Private Sub ShellExecute2(ByVal ExeFile As String, CommandLine As String)
        Dim exitCode As Integer
 
        ' affichage de la fenêtre d'arrêt
        winStop = New CancelForm()
 
        ' on crée le thread de lecture des infos
        Dim readInfo As New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf Me.readOutput))
 
        MonProcess = New Process
        AddHandler MonProcess.OutputDataReceived, AddressOf OutputDataReceived
        AddHandler MonProcess.ErrorDataReceived, AddressOf ErrorDataReceived
        AddHandler MonProcess.Exited, AddressOf Me.MonProcessEnded
 
        'MonProcess.SynchronizingObject = Me
        MonProcess.EnableRaisingEvents = True
 
        MonProcess.StartInfo.FileName = ExeFile
        MonProcess.StartInfo.Arguments = CommandLine
        'MonProcess.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
        MonProcess.StartInfo.CreateNoWindow = True        ' True
        MonProcess.StartInfo.UseShellExecute = False      ' False
        MonProcess.StartInfo.RedirectStandardOutput = True
        MonProcess.StartInfo.RedirectStandardInput = True
        MonProcess.StartInfo.RedirectStandardError = True
 
        MonProcess.Start()
 
        '''''''' MonProcess.BeginOutputReadLine()
        '''''''' MonProcess.BeginErrorReadLine()
 
         ' on démarre le thread de lecture
        readInfo.Start()
 
        ' on affiche la fenêtre de dialogue
        WinStop.ShowDialog()
 
        ' On vérifie si le processus est fini.
        ' Si ce n'est pas le cas, l'utilisateur a appuyé sur stop
        ' et il faut fermer le processus. Le thread est fermé après l'arrêt 
        ' du processus
        If Not MonProcess.HasExited Then
            MonProcess.Kill()
            MonProcess.WaitForExit()
        End If
 
        ' Après le close, les infos sur le processus ne seront plus
        ' disponible. La mémoire allouée pour conserver ces infos
        ' est rendue disponible
        exitCode = MonProcess.ExitCode
        MonProcess.Close()
        'Return exitCode
 
     End Sub
 
    Private Sub MonProcessEnded(sender As Object, e As System.EventArgs)
        'winStop.Close()
    End Sub
 
    Private Sub readOutput()
        Dim buffer As Char() = New Char(0) {}
        Dim car1 As Char = " "c
        Dim car2 As Char = " "c
        Dim car As Char = "%"c
        While Not MonProcess.HasExited
            MonProcess.StandardOutput.Read(buffer, 0, 1)
            Debug.Print(buffer)
            If buffer(0) = car Then
                Debug.Print(Convert.ToString(car1) + Convert.ToString(car2) + "%")
                WinStop.lblInfo.Text = Convert.ToString(car1) + Convert.ToString(car2) + "%"
            End If
            car1 = car2
            car2 = buffer(0)
        End While
    End Sub

Dans Buffer je vois bien tous les caractères arriver les un par un. Mais il reste encore quelques soucis :
- L'instruction winStop.Close() ne fonctionne pas à cause d'un accès inter-Threads interdit mais je pense que je n'aurais pas besoin de cette form.
- Par contre le programme ne passe jamais dans le bloc If Buffer (0) = car, je ne comprends pas bien à quoi ça sert mais ça aurais interressant à cet endroit du programme de reconstituer la chaîne complète entre 2 retours à la ligne.

Quelqu'un à une idée sur cette dernière partie du code ?

Bonjour, j'ai amélioré un peu la procédure ReadOutput :
J'obtiens ceci :
Ligne 1 : Message parasite 1
Ligne 2 : Message parasite 2
....
Ligne n : -
Ligne n+1 : --
Ligne n+20 : --------------------
...etc

Il ne me reste plus qu'a filtrer les messages parasites.

Le code ci-dessous n'est pas très propre mais ça fonctionne correctement.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
    Private Sub readOutput()
        Dim buffer As Char() = New Char(0) {}
        Dim BufferMessage As String = ""
 
        Dim DetectCr As Boolean = False
        Dim DetectLf As Boolean = False
        Dim DetectCrLf As Boolean
        Dim PosChar As Integer = 0
 
        While Not MonProcess.HasExited
            MonProcess.StandardOutput.Read(buffer, 0, 1)
            ' Debug.Print(buffer)
 
            Dim ascii As Integer
            ascii = System.Text.ASCIIEncoding.ASCII.GetBytes(buffer)(0)
            'Debug.Print(ascii.ToString)
            BufferMessage += buffer
            Debug.Print(BufferMessage)
 
            Dim VbCr As Byte() = {13}
            Dim VbLf As Byte() = {10}
 
            If buffer = System.Text.ASCIIEncoding.ASCII.GetChars(VbCr) Then
                DetectCr = True
                PosChar = 0
            End If
 
            If buffer = System.Text.ASCIIEncoding.ASCII.GetChars(VbLf) Then DetectLf = True
 
            DetectCrLf = False
            If DetectCr And PosChar = 1 Then
                If DetectLf Then
                    DetectCrLf = True
                    PosChar = 0
                End If
                DetectCr = False
            Else
            End If
 
            If DetectCrLf Then
                BufferMessage = ""
            End If
 
            PosChar += 1
 
        End While
    End Sub

Un grand merci à ACTIVE_CS et rv26t. Je n'y serais jamais arrivé sans vous :ccool::ccool::ccool:.
Je passe en résolue.

13/08/2013, 15h28
ACIVE_CS

Bonjour,

Pourquoi tu ne fais pas quelque chose du genre:

Code:

If BufferMessage.Contains("-") Then ProgressBar1.Value += 1

?
13/08/2013, 16h16
BasicZX81

Citation:

Pourquoi tu ne fais pas quelque chose du genre:
If BufferMessage.Contains("-") Then ProgressBar1.Value += 1
?

Oui en effet c'est ce que je vais faire mais c'est un autre formulaire qui me gère à la fois l'affichage des messages en provenance des Processus et l'affichage de la progression. Je ne voulais pas m’étendre sur ce formulaire qui est lui aussi un peu compliqué (à mon niveau) puisque je fait en sorte qu'il puisse m'afficher des messages mêmes si il proviennent de Threads differents et en même temps il filtre les messages en fonction des Processus pour extraire la chaîne qui concerne la progression.
Je planche la dessus en même temps, c'est pas simple mais je pense que je devrais pouvoir trouver une solution pour faire fonctionner tout ça.

Encore merci, c'est super sympa de m'avoir aidé.

Petite amélioration pour ACTIVE_CS ;)
J'ai utilisé Substring plutot que contains car il se peux que les chaines parasites contiennent un caractère "-" et normalement celles-ci ne devraient pas commencer par "-".

Si on détecte une chaîne parasite on attend que la chaîne soit complète avant de l'afficher.
Si on détecte une chaîne de progression on l'affiche immédiatement.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
    Private Sub readOutput()
        Dim buffer As Char() = New Char(0) {}
        Dim BufferMessage As String = ""
        Dim OutPutMessage As String = ""
        Dim DetectCr As Boolean = False
        Dim DetectLf As Boolean = False
        Dim DetectCrLf As Boolean
        Dim PosChar As Integer = 0
 
        While Not MonProcess.HasExited
            MonProcess.StandardOutput.Read(buffer, 0, 1)
            ' Debug.Print(buffer)
 
            Dim ascii As Integer
            ascii = System.Text.ASCIIEncoding.ASCII.GetBytes(buffer)(0)
            'Debug.Print(ascii.ToString)
 
            Dim VbCr As Byte() = {13}
            Dim VbLf As Byte() = {10}
 
            'Detection du retour à la ligne et vidage du BufferMessage
            If buffer = System.Text.ASCIIEncoding.ASCII.GetChars(VbCr) Then
                DetectCr = True
                PosChar = 0
            End If
 
            If buffer = System.Text.ASCIIEncoding.ASCII.GetChars(VbLf) Then DetectLf = True
 
            DetectCrLf = False
            If DetectCr And PosChar = 1 Then
                If DetectLf Then
                    DetectCrLf = True
                    PosChar = 0
                End If
                DetectCr = False
            Else
            End If
 
            BufferMessage += buffer
            If BufferMessage.Substring(0, 1) = "-" Then
                ' Ceci est une ligne de Progresion
                'IsProgressLigne = True
                OutPutMessage = BufferMessage
            Else
                'IsProgressLigne = False
                OutPutMessage = ""
            End If
 
            If DetectCrLf Then
                OutPutMessage = BufferMessage
                BufferMessage = ""
            End If
 
            Debug.Print(OutPutMessage)
            PosChar += 1
 
        End While
    End Sub

15/08/2013, 16h23
ACIVE_CS

Bien vu!!! :ccool: