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

Version imprimable

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

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:

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