Umlaute an Prozess über StandardInput senden funktioniert nicht -> StandardInputEncoding?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Umlaute an Prozess über StandardInput senden funktioniert nicht -> StandardInputEncoding?

    Hallo!

    Ich hab die cmd.exe als Prozess gestartet und alle Standardströme umgeleitet.
    Der Projektordner heisst (absichtlich mit Umlaut) "Täst"
    Alles was über StandardOutput daherkommt lass ich mir in einer mehrzeiligen Textbox anzeigen.
    Nach dem Start des cmd-Prozesses steht dort:

    Microsoft Windows [Version 6.1.7601]
    Copyright (c) 2009 Microsoft Corporation. Alle Rechte vorbehalten.
    C:\Users\Admin\documents\visual studio 2010\Projects\T„st\T„st\bin\Debug>

    Die Umlaute werden also falsch eingelesen.
    Über cmd.StandardInput.WriteLine sende ich jetzt ein "cd\". Das funktioniert.

    Wenn ich jetzt wieder in den Ordner mit Umlauten wechseln will mit

    VB.NET-Quellcode

    1. cmd.StandardInput.WriteLine("cd " & Chr(34) & "C:\Users\Admin\documents\visual studio 2010\Projects\Täst\Täst\bin\Debug" & Chr(34))

    bekomme ich folgendes über StandardOutput:

    C:\>cd "C:\Users\Admin\documents\visual studio 2010\Projects\Täst\Täst\bin\Debug"

    ABER: Über StandardError bekomme ich "Das System kann den angegebenen Pfad nicht finden."

    Das Encoding für StandardOutput lässt sich ja ändern mit

    VB.NET-Quellcode

    1. cmd.StartInfo.StandardOutputEncoding = System.Text.Encoding.GetEncoding(437)

    Damit wird dann alles aus StandardOut auch richtig wiedergegeben:

    Microsoft Windows [Version 6.1.7601]
    Copyright (c) 2009 Microsoft Corporation. Alle Rechte vorbehalten.
    C:\Users\Admin\documents\visual studio 2010\Projects\Täst\Täst\bin\Debug>

    ABER: Wie ändere ich das Encoding für StandardInput? StartInfo.StandardInputEncoding gibt es ja (aus mir unersichtlichen Gründen) nicht.

    Poste bitte mal den gesamten Code, da lässt sich Dein Effekt leichter nachvollziehen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja klar, Sorry!

    VB.NET-Quellcode

    1. Public Delegate Sub Sub_Delegate_String(ByVal s As String)
    3. Public Class Form1
    4. Dim cmd As Process = Nothing
    5. Dim del As Sub_Delegate_String
    6. Dim command As String
    7. Dim sw As System.IO.StreamWriter = Nothing
    8. Dim encoding = System.Text.Encoding.GetEncoding(437)
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. cmd = New Process()
    12. cmd.StartInfo.ErrorDialog = True
    13. cmd.StartInfo.UseShellExecute = False
    14. cmd.StartInfo.RedirectStandardInput = True
    15. cmd.StartInfo.RedirectStandardOutput = True
    16. cmd.StartInfo.RedirectStandardError = True
    17. cmd.StartInfo.FileName = "cmd.exe"
    18. cmd.StartInfo.CreateNoWindow = True
    19. cmd.StartInfo.StandardOutputEncoding = System.Text.Encoding.GetEncoding(437)
    20. AddHandler cmd.OutputDataReceived, AddressOf cmdHandler
    21. cmd.Start()
    22. cmd.BeginOutputReadLine()
    23. cmd.StandardInput.Write("cd" & vbNewLine)
    24. cmd.StandardInput.Write("cd " & Chr(34) & "C:\Users\Admin\documents\visual studio 2010\Projects\Täst\Täst\bin\Debug" & Chr(34) & vbNewLine)
    25. MsgBox(cmd.StandardError.ReadLine)
    26. cmd.StandardInput.Write("cd" & vbNewLine)
    27. End Sub
    29. Private Sub cmdHandler(ByVal sendingProcess As Object, ByVal outLine As DataReceivedEventArgs)
    30. If Not String.IsNullOrEmpty(outLine.Data) Then
    31. del = AddressOf Append_Textbox1
    32. Me.Invoke(del, outLine.Data)
    33. End If
    34. End Sub
    36. Public Sub Append_Textbox1(ByVal s As String)
    37. TextBox1.AppendText(vbNewLine & s)
    38. End Sub
    40. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    41. Try
    42. cmd.StandardInput.Flush()
    43. cmd.StandardInput.Close()
    44. cmd.CancelOutputRead()
    45. cmd.Close()
    46. Catch
    47. End Try
    48. End Sub
    49. End Class


    PS: Wieseo werden die Backslashes in den Zeilen cmd.StandardInput.Write("cd\" & vbNewLine) oberhalb in der Code-Ansicht nicht angezeigt?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Tintifax“ ()

    Iwo fehlt da noch das Input-Encoding, hab aber momentan keine Zeit:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text
    3. Public Class Form1
    4. Private WithEvents cmd As Process = New Process()
    5. 'Private command As String
    6. Private sw As System.IO.StreamWriter = Nothing
    7. Private myEncoding As Encoding = System.Text.Encoding.Default 'GetEncoding(437)
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. cmd.StartInfo.ErrorDialog = True
    13. cmd.StartInfo.UseShellExecute = False
    14. cmd.StartInfo.RedirectStandardInput = True
    15. cmd.StartInfo.RedirectStandardOutput = True
    16. cmd.StartInfo.RedirectStandardError = True
    17. cmd.StartInfo.FileName = "cmd.exe"
    18. cmd.StartInfo.CreateNoWindow = True
    20. cmd.StartInfo.StandardOutputEncoding = myEncoding 'System.Text.Encoding.GetEncoding(437)
    22. cmd.Start()
    24. sw = cmd.StandardInput
    25. Dim myEnc = cmd.StandardInput.Encoding
    29. cmd.BeginOutputReadLine()
    30. 'cmd.StandardInput.Write("cd" & Environment.NewLine)
    31. cmd.StandardInput.Write("cd C:\Temp\Täst" & Environment.NewLine)
    32. MsgBox(cmd.StandardError.ReadLine)
    33. 'cmd.StandardInput.Write("cd" & Environment.NewLine)
    34. End Sub
    36. Private Sub cmdHandler(ByVal sendingProcess As Object, ByVal outLine As DataReceivedEventArgs) Handles cmd.OutputDataReceived
    37. If Not String.IsNullOrEmpty(outLine.Data) Then
    38. Me.Invoke(Sub() Me.TextBox1.AppendText(Environment.NewLine & outLine.Data))
    39. End If
    40. End Sub
    42. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    43. Try
    44. If cmd IsNot Nothing Then
    45. cmd.StandardInput.Flush()
    46. cmd.StandardInput.Close()
    47. cmd.CancelOutputRead()
    48. cmd.Close()
    49. End If
    50. Catch
    51. End Try
    52. End Sub
    53. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Eierlein: Sehr geile Idee, schade dass es nicht funktioniert (Es werden wirklich zwei Beistriche übertragen und leider kein ä daraus).

    @RodFromGermany: Das mit dem Umweg über einen StremWriter hab ich auch schon wo gelesen, aber ich hab immer noch keine Möglichkeit gefunden das Encoding eines StreamWriters zu ändern.

    VB.NET-Quellcode

    1. System.IO.Streamwriter
    hat zwar ein Attribut namens Encoding, das is aber nur ReadOnly.
    Man kann angeblich dem Konstruktor vom StreamWriter ein Encoding übergeben. Leider funktioniert das bei mir nicht:

    VB.NET-Quellcode

    1. Dim encoding = System.Text.Encoding.GetEncoding(437)
    2. Dim sw As New System.IO.StreamWriter(cmd.StandardInput, encoding)

    liefert
    Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "New" mit diesen Argumenten aufgerufen werden kann:
    "Public Sub New(path As String, append As Boolean)": Der Wert vom Typ "System.IO.StreamWriter" kann nicht in "String" konvertiert werden.
    "Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding)": Der Wert vom Typ "System.IO.StreamWriter" kann nicht in "System.IO.Stream" konvertiert werden.

    Wie könnte es sonst gehen?

    Tintifax schrieb:

    Wie könnte es sonst gehen?
    Probier es mal so:

    VB.NET-Quellcode

    1. Dim sw As New System.IO.StreamWriter(cmd.StandardInput.BaseStream, encoding)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende