Discussion :

[BasicZX81]

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 :

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

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

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

[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?

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

[BasicZX81]

Personne pour m'aider ? J'ai bien peur de ne pas pouvoir trouver la solution.

[chaparo]

Code :

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

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.

[_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 "-" ?