Kodierung bei .bat und .cmd Dateien

Michdi · 20. April 2016, 20:31

Guten Abend Community,
da ich gerade dabei war mir ein Robocopy tool zu programmieren, damit ich es einfach einstellen kann, habe ich folgende Frage:
Wie kann ich die Kodierung bei StreamWriter einstellen?

Bis jetzt sieht mein Quellcode so aus:

VB.NET-Quellcode

Dim robocopy as string = "robocopy " & source & " " & dest
Dim objWriter As New System.IO.StreamWriter(savefile, False)
objWriter.WriteLine(robocopy)
objWriter.Close()

Jetzt habe ich aber einen Fehler mit der Kodierung:

Quellcode

C:\Users\Michdi\Desktop>´╗┐ROBOCOPY C:\Users\Michdi\Desktop\UNTURNED C:\Users\Michdi\Desktop\UNTURNEDCOPY

Die Ordner sind jetzt nur Beispiele, ist jetzt aber auch egal.

Was mich stört sind diese Zeichen: ╗┐ (box drawings double down and left (U+2557) und box drawings light down and left (U+2510))
Irgendwie stellt sich immer die Kodierung automatisch auf UTF-8 ohne BOM, obwohl sie für Batch ja auf ANSI stehen muss. Wenn ich dies in Notpad++ ändere und speichere, und sie anschließend ausführe (also die .bat Datei),
stellt sich die Kodierung automatisch auf UTF-8 ohne BOM zurück und ergibt wieder den gleichen Fehler.

Wie kann ich jetzt die Batch Datei ohne nervige Kodierungsfehler speichern?
Übriegens: Wenn ich eine Datei normal anlege und dann als .bat / .cmd speichere, ist die Kodierung auch automatisch auf UTF-8 ohne BOM...

Was kann ich da tun? Ich habe schon einen Post über dieses Thema gefunden, aber er hat mir nicht die Frage beantwortet.

Es liegt an der Kodierung, da ich robocopy über Windowstaste + r und cmd normal ausführen kann!

Danke im Vorraus,

Michdi

Gesamter Quellcode:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Dim source As String = ""
Dim dest As String = ""
Dim robocopy As String = ""
Dim uname As String = ""
Dim savefile As String = ""
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FolderBrowserDialog1.ShowDialog()
source = FolderBrowserDialog1.SelectedPath.ToString
TextBox1.Text = source
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FolderBrowserDialog2.ShowDialog()
dest = FolderBrowserDialog2.SelectedPath.ToString
TextBox2.Text = dest
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
uname = Environment.UserName
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
SaveFileDialog1.InitialDirectory = "C:\users\" & uname & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
SaveFileDialog1.ShowDialog()
savefile = SaveFileDialog1.FileName.ToString
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY " & source & " " & dest & " /E"
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY " & source & " " & dest & " /E /MIR /dcopy:T"
End If
End If
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY " & source & " " & dest & " /E /MIR /dcopy:T"
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY " & source & " " & dest & " /E"
End If
End If
Dim objWriter As New System.IO.StreamWriter(savefile, False, System.Text.Encoding.ASCII)
objWriter.WriteLine(robocopy)
objWriter.Close()
End Sub
End Class

*Topic verschoben*

EaranMaleasi · 21. April 2016, 08:18

Schau dir einfach mal ALLE Überladungen des Konstruktors an:
msdn.microsoft.com/en-us/libra…reamwriter(v=vs.110).aspx

übrigens sollte dir VS das auch zeigen.

Edit:
Andere Frage, wo kommen diese Zeichen überhaupt her?
UTF-8 ist ja sonst komplett kompatibel zu ASCII bzw. ANSI

Eierlein · 21. April 2016, 15:42

´╗┐ sind unter der OEM (DOS) CP 850 die Zeichen 239, 187, 191

Unter CP 1252 (Ansi) sind 239 -> ï, 187 -> », 191 -> ¿

ï»¿ ist der UTF8-BOM (Hex EF BB BF)

Falls Zeichen > 127 (Z. B. Umlaute) vorkommen benötigst du die CP 850 bzw. 437 ansonsten reicht ASCII

Quellcode

C:\Users\Michdi\Desktop>´╗┐ROBOCOPY C:\Users\Michdi\Desktop\UNTURNED C:\Users\Michdi\Desktop\UNTURNEDCOPY

Hinter deinen Ascii-Text '"C:\Users\Michdi\Desktop>"

hast du einen Text mit UTF8-Bom eingefügt.

´╗┐ ----> UTF8-BOM (Hex EF BB BF) wie er in der Konsole angezeigt wird.
ROBOCOPY C:\Users\Michdi\Desktop\UNTURNED C:\Users\Michdi\Desktop\UNTURNEDCOPY

Da der BOM mitten im Text steht, wird er nicht als BOM sondern als Text interpretiert.

Erklär nochmal Schritt für Schritt, wie du das geschafft hast.

Michdi · 21. April 2016, 16:10

Ich habe als erstes eine Form erstellt mit zwei FolderBrowserDialogen und einem Savefiledialog. Diese sieht so aus:

Spoiler anzeigen

Man kann halt die verschiedenen Pfade auswählen, also Quelle und der Ort wo es hinkopiert werden soll.Im Code sieht das ganze dann so aus:

Spoiler anzeigen

Das ganze habe ich dann noch für destination gemacht mit einem zweiten Knopf.Wenn man auf Save Robocopy klickt passiert folgendes:

Spoiler anzeigen

uname ist hier als Environment.UserName definiert.

Spoiler anzeigen

Hier wird alles gespeichert. Als Pfad hatte ich wie gesagt C:\Users\Michdi\Desktop\UNTURNED zu C:\Users\Michel\Desktop\UNTURNEDCOPY.
Das ist alles was hier passiert.Wenn ich die fertige Datei jetzt ausführe sieht das ganze so aus:

Spoiler anzeigen

Der Code sieht übriegens so aus:

Quellcode

robocopy C:\Users\Michel\Desktop\UNTURNED C:\Users\Michel\Desktop\UNTURNEDCOPY
pause

Ich habe jetzt mal ein bisschen rumprobiert, es geht trotzdem nicht... Kann mir da wer helfen?

Das komische ist, wenn ich das ganze über cmd.exe per Hand eingebe funktioniert es:

Spoiler anzeigen

Michdi

Mircosofter2206 · 21. April 2016, 16:51

Das hat ich auch schonmal, als ich ein Batch-Skript gemacht hab und sie mit dem Notepad gespeichert habe. Sobald ich den Code in Notepad++ eingefügt habe und den Code in einer anderen Datei gespeichert habe, ging´s auf einmal.

Michdi · 21. April 2016, 17:03

Das klappt leider auch nicht

UPDATE
Es klappt, wenn ich eine Textdatei erstelle, dort mit Notepad++ den Inhalt reinschreibe, diese speichere, und dann unter Eigenschaften auf .bat abändere. Für jedes bearbeiten muss ich die Datei wieder in .txt umbennen.

Mircosofter2206 · 21. April 2016, 17:11

Hmmm. Die komischen zeichen müssen auf jeden fall im String liegen. Poste doch mal den Code, wo er gebildet wird!

Eierlein · 21. April 2016, 18:14

Du hast immer noch nicht gezeigt, wie du den Text
(UTF8-BOM]robocopy C:\Users\Michel\Desktop\UNTURNED C:\Users\Michel\Desktop\UNTURNEDCOPY
erzeugst.

Für jedes bearbeiten muss ich die Datei wieder in .txt umbennen.

Warum?

Michdi · 21. April 2016, 19:51

VB.NET-Quellcode

Dim objWriter As New System.IO.StreamWriter(savefile, False, System.Text.Encoding.ASCII)
objWriter.WriteLine(robocopy)
objWriter.Close()

robocopy ist eben der Befehl, also robocopy source destination /E

Für jedes bearbeiten muss ich die Datei wieder in .txt umbennen.

Warum?

Da habe ich keine Ahnung, aber es klappt.

//Edit:
Weil die Leute den Sourcecode nochmal haben wollten:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Dim source As String = ""
Dim dest As String = ""
Dim robocopy As String = ""
Dim uname As String = ""
Dim savefile As String = ""
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FolderBrowserDialog1.ShowDialog()
source = FolderBrowserDialog1.SelectedPath.ToString
TextBox1.Text = source
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FolderBrowserDialog2.ShowDialog()
dest = FolderBrowserDialog2.SelectedPath.ToString
TextBox2.Text = dest
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
uname = Environment.UserName
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
SaveFileDialog1.InitialDirectory = "C:\users\" & uname & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
SaveFileDialog1.ShowDialog()
savefile = SaveFileDialog1.FileName.ToString
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E"
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E /MIR /dcopy:T"
End If
End If
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E /MIR /dcopy:T"
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E"
End If
End If
Dim objWriter As New System.IO.StreamWriter(savefile, False, System.Text.Encoding.ASCII)
objWriter.WriteLine(robocopy)
objWriter.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E"
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E /MIR /dcopy:T"
End If
End If
If CheckBox2.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E /MIR /dcopy:T"
If CheckBox1.Checked = True Then
robocopy = "ROBOCOPY """ & source & """ """ & dest & """ /E"
End If
End If
Process.Start("cmd", "/c " + robocopy)
End Sub
End Class

Mircosofter2206 · 21. April 2016, 20:25

Also bei mir läuft´s tadellos!!!(und mein Code ist eine 1&1 kopie von dir)

Michdi · 22. April 2016, 07:29

Danke, dann weiß ich jetzt immerhin, dass der Code nur bei mir nicht funktioniert.

Thias · 22. April 2016, 12:11

Erstelle doch mal Dein Projekt komplett neu - indem Du Dir Deinen eigenen Code von hier aus dem Forum kopierst - so wie @Mircosofter2206 es getan hat.

Evtl. ist bei Dir im originalen Projekt irgendwo ein verborgenes Steuerzeichen im Code versteckt!???

Eierlein · 22. April 2016, 14:18

Die erstellung der .bat Datei kannst du mit folgendem Consolenprogramm testen:

VB.NET-Quellcode

Module Module1
Sub Main()
Dim source As String = "C:\Users\Michdi\Desktop\UNTURNED"
Dim dest As String = "C:\Users\Michdi\Desktop\UNTURNEDCOPY"
Dim savefile As String = "d:\##\RoboTest.bat" '<---- anpassen
Dim robocopy As String = "robocopy " & source & " " & dest
Dim objWriter As New StreamWriter(savefile, False, Encoding.ASCII)
objWriter.WriteLine(robocopy)
objWriter.WriteLine("Pause")
objWriter.Close()
End Sub
End Module

Die Zeichen ´╗┐ (239, 187, 191 in der Console, OEM CP850) können nicht bei encoding.ASCII von deinem Programm kommen.

Encoding.ASCII nur Zeichen bis 127, Zeichen ab 128 werden als Fragezeichen »?« dargestellt

ErfinderDesRades · 22. April 2016, 14:37

ich für mein Teil steuere Robocopy mit

VB.NET-Quellcode

Encoding.GetEncoding(437) 'OEM (DOS) 437

erfolgreich an

Mircosofter2206 · 22. April 2016, 16:56

ErfinderDesRades schrieb:

ich für mein Teil steuere Robocopy mit  
VB.NET-Quellcode 
Encoding.GetEncoding(437)            'OEM (DOS) 437 
erfolgreich an

Ist die Kodierung von Batchdateien nicht OEM (DOS) 5850????

Eierlein · 22. April 2016, 17:13

850 - WestEuropa
437 - USA
Unterscheiden sich nur in den Grafikzeichen. Umlaute und ß sind in beiden vorhanden.

Kodierung bei .bat und .cmd Dateien

Kodierung bei .bat und .cmd Dateien

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben