Mit VB Net CMD Befehle ausführen?

[arnibold]

Gibt es eine Möglichkeit CMD Befehle wie

ren asd.txt asd.exe

in VB zu verwenden?

[vfJack]

Ja,
http://msdn.microsoft.com/de-de/libr...8VS.80%29.aspx

[sumisumi]

Gibt es eine Möglichkeit CMD Befehle wie

ren asd.txt asd.exe

in VB zu verwenden?

wozu?

[arnibold]

Ja,
http://msdn.microsoft.com/de-de/libr...8VS.80%29.aspx

Das ist nicht genau das, wonach ich gesucht habe.
Ich möchte einfach einen CMD Befehl (wie bsplw oben) genau in dieser Form in meinen code einfügen (Ich weiß dass das natürlich nicht eins zu eins geht, aber ich meine eben etwas à la "CMD(ren asd.txt asd.exe)" oder so...)

[arnibold]

wozu?

Brauch ich eben
Oder kannst du mir das umsetzen:

copy /b asd.rar + asd.jpg asdf.jpg

[12345z]

Wozu benutzt du Intelligenzbolzen dann VB? Warum kein Batch?
Und natürlich geht das in VB.

[CND_]

Geht beispielsweise per Shell("copy /b asd.rar + asd.jpg asdf.jpg")
Ohne diese Krücke geht das aber um einiges "eleganter" mit der Verwendung von Filestreams und Streamwriter- bzw readern.

[HyP3r92]

Du erstellt zu jeder Quell- und Ziel-Datei einen FileStream.

Wichtig hierbei ist da bei den Quellstreams du bei dem Konstruktor (New) eben Read nimmst und bei den Zielstreams Write.

Die Quellstreams liest du dann mit den StreamReader aus (in ein Byte Array), und schreibst es dann in die Zieldatei mit einem StreamWriter.

Und so Deaklarierst du ein Bytearray:

Dim Buffer(1024) as Byte

mfg
HyP3r

[sumisumi]

hab es mal in C# geschrieben (CopyStream ist von Stream.CopyTo in .net4 geklaut)

Spoiler: 

using System.IO;
class Program
{
    static void Main(string[] args)
    {
        using (Stream s1 = File.OpenRead("asd.rar"))
        using (Stream s2 = File.OpenRead("asd.jpg"))
        using (Stream s3 = File.OpenWrite("asdf.jpg"))
        {
            CopyStream(s1, s3);
            CopyStream(s2, s3);
        }

    }
    static void CopyStream(Stream src, Stream dst)
    {
        int num = 4096;
        byte[] buffer = new byte[num];
        while ((num = src.Read(buffer, 0, buffer.Length)) != 0)
        {
            dst.Write(buffer, 0, num);
        }
    }
} 

und dann in VB konvertiert
keine Ahnung ob der VB wirklich funktioniert

Imports System.IO
Class Program
    Private Shared Sub Main(ByVal args As String())
        Using s1 As Stream = File.OpenRead("asd.rar")
            Using s2 As Stream = File.OpenRead("asd.jpg")
                Using s3 As Stream = File.OpenWrite("asdf.jpg")
                    CopyStream(s1, s3)
                    CopyStream(s2, s3)
                End Using
            End Using
        End Using
    End Sub
    Private Shared Sub CopyStream(ByVal src As Stream, ByVal dst As Stream)
        Dim num As Integer = 4096
        Dim buffer As Byte() = New Byte(num - 1) {}
        While (InlineAssignHelper(num, src.Read(buffer, 0, buffer.Length))) <> 0
            dst.Write(buffer, 0, num)
        End While
    End Sub
    Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
End Class 

[HyP3r92]

Kleiner vielleicht auch bessere/schlechtere Lösung von mir:

    Public Sub CopyEx(ByVal SourceFiles() As String, ByVal DesinationFile As String)
        Dim Buffer(1024) As Byte
        Dim read As Integer

        Dim Src_BinaryReader As System.IO.BinaryReader
        Dim Src_FileStream As System.IO.FileStream

        Dim Dst_BinaryWriter As System.IO.BinaryWriter
        Dim Dst_FileStream As System.IO.FileStream

        Dst_FileStream = New System.IO.FileStream(DesinationFile, IO.FileMode.Create, IO.FileAccess.Write)
        Dst_BinaryWriter = New System.IO.BinaryWriter(Dst_FileStream)

        For Each sFile As String In SourceFiles
            Src_FileStream = New System.IO.FileStream(sFile, IO.FileMode.Open, IO.FileAccess.Read)
            Src_BinaryReader = New System.IO.BinaryReader(Src_FileStream)

            Do
                read = Src_BinaryReader.Read(Buffer, 0, Buffer.Length)

                Dst_BinaryWriter.Write(Buffer, 0, read)
            Loop Until read = 0

            Src_BinaryReader.Close()
            Src_FileStream.Close()
        Next

        Dst_BinaryWriter.Close()
        Dst_FileStream.Close()
    End Sub 

mfg
HyP3r

[arnibold]

Shell("cmd /c " & Chr(34) & "der befehl" & Chr(34))

habs raus danke an all die mühen

[12345z]

Nochmal: Warum benutzt du kein Batch?
http://www.gidnetwork.com/b-61.html
bzw. http://null-board.com/showthread.php?tid=36
(Schleichwerbung )

Das lässt sich genauso gut auf andere Sprachen übertragen.
Benutz gefälligst Features der Sprachen.

[arnibold]

Nochmal: Warum benutzt du kein Batch?
http://www.gidnetwork.com/b-61.html
bzw. http://null-board.com/showthread.php?tid=36
(Schleichwerbung )

Das lässt sich genauso gut auf andere Sprachen übertragen.
Benutz gefälligst Features der Sprachen.

Das Programm besteht eben nicht nur aus einem primitiven Batch Script
Außerdem lässt sich beispielsweise
copy /b usw
nicht auf eine andere Programmiersprache übertragen. Oder wie sollte man das /b Parameter umsetzen

[12345z]

nicht auf eine andere Programmiersprache übertragen. Oder wie sollte man das /b Parameter umsetzen

Dateien "verschmelzen" sollte man auch in diversren Sprachen umsetzen können.

[arnibold]

Dateien "verschmelzen" sollte man auch in diversren Sprachen umsetzen können.

Vielleicht kennst Du den Trick mit dem JPG binden nicht, aber dieses Paramter /b ist jedenfalls nötig.
Verschmelzen von Dateien geht bestimmt in anderen Sprachen, allerdings kann ich mir die Umsetzung von /b nicht vorstellen.

[sumisumi]

Weiß du überhaupt was /b macht?

[HyP3r92]

Weiß du überhaupt was /b macht?

Das würde ich auch gerne wissen...

Vielleicht kennst Du den Trick mit dem JPG binden nicht, aber dieses Paramter /b ist jedenfalls nötig.
Verschmelzen von Dateien geht bestimmt in anderen Sprachen, allerdings kann ich mir die Umsetzung von /b nicht vorstellen.

Also erstmal muss ich jetzt sagen du hast mich echt beleidigt ich schreibe dir ein Super kompaktes Script zusammen und was machst du vor lauter Eitelkeit...

AK-47

mfg
HyP3r