[Déplacé]Commande DOS dans un textbox ou autre

Question

Bonjour,
je voulais savoir s'y il était possible d'exécuter une commande DOS et d'écrire son "résultat" dans une textbox ou autre. Voila ce que j'ai pour le moment (ce n'est qu'un exemple) :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Process1.StartInfo.Arguments = "/c " & "dir/s > C:\Users\Coco\Desktop\TEST.txt"
        Process1.Start()

        System.Threading.Thread.Sleep(100)
        Dim LireFichier As String

        LireFichier = My.Computer.FileSystem.ReadAllText("C:\Users\Coco\Desktop\TEST.txt")
        RichTextBox1.Text = LireFichier

        System.Threading.Thread.Sleep(100)

        Kill("C:\Users\Coco\Desktop\TEST.txt")
    End Sub

Mais les caractères spéciaux sont affichés bizarrement (une sorte de point d'interrogation), puis ce n'est pas super pratique comme code.

Merci d'avance,
Sorpia.

ucfoutu · Answer

Bonjour,
je me demande encore pourquoi j'ai lu jusqu'au bout !
Probablement parce que dans la section : Forum > Visual Basic 6 !
Mais je vois bien, dès la première ligne de code, que tel n'est pas le cas ! 
Et je sors donc de là !
 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

NHenry · Answer

Bonjour, 

Regardes dans la doc de System.Diagnostics.Process, il y a 3 flux : Entrée, Sortie normale et sortie d'erreur.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Bonjour,
Attendez, ce n'est pas du VB.Net non plus, la sub écrite comme ça:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
Sera automatiquement transcrit comme ça:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Sorpia:
En quel langage écris-tu?

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Bonjour, acive,
En quel langage écris-tu? 
Au "hasard" : en CCNANCJC *
* Copié Collé Ni Analysé Ni Compris Juste Copié



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

NHenry · Answer

Bonjour, 

Acive, je pense que c'est juste les ByVal qui ont été remplacé. En .NET, par défaut, le passage se fait en valeur au lieu de référence comme en VB6.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Et sans même parler de l'essentiel : la manière toute bête de remplir une richtextbox (sans tout ce saint Frusquin, hein ...)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut Henry,
Oui justement, mais je n'arrive pas à écrire:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

(sous vb2010 en tout cas), il rajoute automatiquement les "ByVal") du coup on ne sait pas trop ce que c'est comme langage.

On va finir par lui envoyer une disquette DOS6, comme ça c'est réglé... 

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Bonjour Uc,
C'est vrai que je suis arrêté à la première ligne, en regardant plus loin c'est bien du .net:
System.Threading.Thread.Sleep(100)
Sauf la première ligne 

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Bonsoir,
excuser moi de mettre tromper de section.
J'utilise Visual Basic Express 2010.
Lorsque je clique sur le bouton il me génère bien cette ligne de code, mais je peux rajouter le Byval dans problème.

Pour ça :
System.Threading.Thread.Sleep(100)
j'ai utilisé ce dont je me rapellais, il y a une fonction mais je ne m'en souvenait plus.

NHenri je regarde ça demain merci de ton aide.

Utilisateur anonyme · Answer

Enfin je sais plus si c'était une fonction, je crois pas.

NHenry · Answer

Bonjour, 

Aller, une piste :
http://msdn.microsoft.com/en-us/library/system.diagnostics.process.standarderror.aspx
http://msdn.microsoft.com/en-us/library/system.diagnostics.process.standardinput.aspx
http://msdn.microsoft.com/en-us/library/system.diagnostics.process.standardoutput.aspx

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Utilisateur anonyme · Answer

Bonjour,

J'arrive juste a avoir ce qui est marqué dans la fenêtre cmd...


Besoin d'aide ? Fait comme moi !

NHenry · Answer

Bonjour, 

Et tu veux quoi ?
Car en utilisant cela, tu devrait avoir le même résultat que celui que tu as à présent.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Attends, 
tout ce que tu veux faire c'est afficher le texte de ton fichier, s'il existe, sur un richtextbox?
Pourquoi passer par des commandes dos?
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   If File.Exists("C:\Users\Coco\Desktop\TEST.txt") = True Then
      RichTextBox1.Text = File.ReadAllText("C:\Users\Coco\Desktop\TEST.txt")
      Kill("C:\Users\Coco\Desktop\TEST.txt")
   End If
End Sub
End Class


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Relire ce que j'ai dit hier soir 
Et sans même parler de l'essentiel : la manière toute bête de remplir une richtextbox (sans tout ce saint Frusquin, hein ...) 
Il n'y a qu'à essayer, tout bêtement :
richTextBox1.LoadFile(..chemin complet...)
non ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Re-bonjour,

NHenry je veux dire par la que j'ai ça de marqué dans ma textbox :

Microsoft Windows [version 6.1.7601]
Copyright (c) 2009 Microsoft Corporation. Tout droits réservés.
(Ce qui est marqué dans la console quand on ouvre l'invité de commande.)

Utilisateur anonyme · Answer

Re (j'ai pas vu ton message ucfoutu)
Oui mais au départ je voulais savoir si il y avait un autre moyen, car les caractères spéciaux sont mals écrits.

Utilisateur anonyme · Answer

Re-Bonjour,

ucfoutu ton code ne fonctionne pas (format de fichier invalide).

acive ton code fonctionne mais les caractères spéciaux ne s'affiche toujours pas (il s'affiche ainsi : &#65533;). Avez-vous une solution ?

NHenry · Answer

Bonjour, 

Tu n'as qu'à ignorer les quelques premières lignes.
Sinon, il y a la classe Io.Directory qui contient des méthodes pour récupérer la liste des fichier et Io.File pour récupérer leurs données.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Salut tout le monde,

Sorpia:
Alors je comprends mieux.
Le problème n'est pas l'affichage des caractères spéciaux, mais l'enregistrement de ton fichier qui a été effectué déjà avec des caractères erronés.

Nous avons dans ton fichier:
Le num&#8218;ro de s&#8218;rie du volume est 344
Ainsi que:
33ÿ786ÿ990ÿ592

Alors que les "ÿ" et les "," ce sont (tous les deux) des caractères 63 en ascii.
La résolution de ton problème n'est pas dans l'affichage des caractères mais dans l'enregistrement de ton fichier au départ (ce dont on ne connait pas).

Tu peux éventuellement remplacer les chr(63) par des "é" mais il reste le problème des "." entre les chiffres.

exemple:
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Fichier As String = "C:\Users\Carlos\Desktop\TEST.txt"
        If File.Exists(Fichier) = True Then
            Dim Tex As String = File.ReadAllText(Fichier)
            For Each Ch As Char In Tex
                If Asc(Ch) 63 Then Tex Tex.Replace(Ch, "é")
            Next
            RichTextBox1.Text = Tex
            Kill(Fichier)
        End If
    End Sub


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

Non, Acive, c'est juste un problème de page de code.
Pas la peine de chercher plus loin.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Oui,
c'est juste un problème de page de code
Tu as surement raison, comme les &#8218; sur le forum... 

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Re-Bonjour,
C
acive, c'est comme ça que j'ai créer le fichier texte :
Process1.StartInfo.Arguments = "/c " & "dir/s > C:\Users\Coco\Desktop\TEST.txt"

Merci acive, je test ça demain.

NHenry · Answer

Bonjour, 

Sorpia, regardes les surcharges de File.ReadAllText, pour la page de code.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Utilisateur anonyme · Answer

Bonsoir,
Tu crois quand le lisans avec un encodage spécial sa ira ?

NHenry · Answer

Bonjour, 

Regardes la doc des pages de codes sur Wikipedia, tu auras ta réponse, je pense sur la page de code à utiliser.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Il est selon moi tout simplement malheureux d'être passé par une redirection de DOS :
"dir/s > C:\Users\Coco\Desktop\TEST.txt"
pour écrire ce fichier !
C'est de la régression !




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Oui, mais je pour l'instant je ne trouve pas d'autre moyen, si vous savez comme faire je suis preneur. En attendant je continue mes recherches.

NHenry · Answer

Bonjour, 

Regardes comme je te l'ai déjà dit Io.Directory.GetFiles, tu auras la liste des fichiers.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Utilisateur anonyme · Answer

Bonjour,
Bon finalement j'ai réussi :
Dim p_info As New ProcessStartInfo(TextBox2.Text)
        p_info.UseShellExecute = False
        p_info.CreateNoWindow = True
        p_info.RedirectStandardOutput = True

        Dim proc As New Process()
        proc.StartInfo = p_info

        proc.Start()

        Dim DOS As StreamReader = proc.StandardOutput()

        TextBox1.Text = DOS.ReadToEnd()
        DOS.Close()
        proc.Close()

ucfoutu, cela ne viens en fait pas du DOS, car quand j'utilise la commande dir/s (exemple) depuis l'invité de commande les "é" sont bien affichés. Alors que quand le résultat de la commande est retransmis dans ma textbox, les "é" se transforme en "," et des "ÿ" apparaissent. Et je n'arrive pas à les remplacez avec (ça ne remplace rien) :
textbox1.text = textbox1.text.replace("," , "é")
 


-----------------------------------------------------------------------------
Cordialement,
Sorpia.

ucfoutu · Answer

ucfoutu, cela ne viens en fait pas du DOS, car quand j'utilise la commande dir/s (exemple) depuis l'invité de commande les "é" sont bien affichés
Mais bien évidemment, que cela vient du DOS !
Cela vient de la redirection faite par dos vers un fichier txt.
Va dans DOS et lance ta commande directement puis ===>>
Ouvre donc ton ficher avec le bloc-notes et tu le constateras !

Mais (je me répète) le plus malheureux est ton mécanisme qui consiste en :
- utiliser dos pour faire un dir
- en faire la redirection vers un fichier txt
- puis alimenter une ricthtextbox avec le fichier résultat
- puis détruite le fichier résultat, qui n'a servi que de tremplin !

Lourd lourd et s'écartant considérablement de VB.Net (de quelque langage évolué, d'ailleurs !) 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonjour,
dans le dernier code que j'utilise, je ne crée en aucun cas un fichier texte à partir du DOS, j'utilise un fichier .bat.

Dim p_info As New ProcessStartInfo("C:	rucbidule...\machinchose.bat")
        p_info.UseShellExecute = False
        p_info.CreateNoWindow = True
        p_info.RedirectStandardOutput = True

        Dim proc As New Process()
        proc.StartInfo = p_info

        proc.Start()

        Dim DOS As StreamReader = proc.StandardOutput()

        TextBox1.Text = DOS.ReadToEnd()
        DOS.Close()
        proc.Close()

J'aurai du mettre le chemin du fichier .bat au lieu de textbox2.text pour que tu comprenne mieux.

-----------------------------------------------------------------------------
Cordialement,
Sorpia.

ucfoutu · Answer

Oh la la !
Bien évidemment, que tu utilises encore dos ! 

Quand comptes-tu donc commencer à t'intéresser à l'utilisation de VB.Net, telle que signalée par NHenry, à savoir :

NHenry dimanche 8 avril 2012 à 21:26:05
Regardes comme je te l'ai déjà dit Io.Directory.GetFiles, tu auras la liste des fichiers. 




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonjour,
Je signale que dir/s n'était qu'un exemple, j'aurai pu choisir plein d'autre commande.

-----------------------------------------------------------------------------
Cordialement,
Sorpia.

ucfoutu · Answer

Je signale que dir/s n'était qu'un exemple, j'aurai pu choisir plein d'autre commande. 
Laquelle, donc, (de DOS) qui ne serait pas traitée par VB.Net directement ? 

Tu ressembles là au propriétaire d'un puissant 4/4 qui n'utiliserait son véhicule que sur les Champs Elysées et sans jamais se mettre en position 4 roues motrices (et sans jamais enclencher une autre vitesse que la première.. et de préférence alors qu'il est seul sur la voie).

Es-tu bien certain de ce que tu n'aurais pas pou de contenter de VBS (gratuit, lui, au moins !) ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonjour,
Bon tu m'as eu ^^.
Voila les codes SANS utiliser du DOS :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = Nothing
        Dim dossier As String() = Directory.GetDirectories(TextBox1.Text)
        Dim dossier2 As String
        For Each dossier2 In dossier
            RichTextBox1.Text = RichTextBox1.Text & vbCrLf & dossier2
        Next
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        RichTextBox2.Text = Nothing
        Dim fichier As String() = Directory.GetFiles(TextBox2.Text)
        Dim fichier2 As String
        For Each fichier2 In fichier
            RichTextBox2.Text = RichTextBox2.Text & vbCrLf & fichier2
        Next
    End Sub


-----------------------------------------------------------------------------
Cordialement,
Sorpia.

[Déplacé]Commande DOS dans un textbox ou autre

36 réponses

Votre réponse

Discussions similaires