Bytearray in Datei spiechern

  • VB.NET
  • .NET (FX) 4.0

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Mircosofter2206.

    Bytearray in Datei spiechern

    Hallo Leute,

    nach langer Zeit mal wieder was von mir :)
    Ich bastle an einem Simplen File-Manager. Der braucht natürlich auch eine CopyPaste-Funktion.
    Ich habe zunächst diesen Code geschrieben(Vereinfachte Version):

    VB.NET-Quellcode

    1. Public Sub Kopieren(ByVal FileName As String)
    2. Dim ByteCollection As Byte() = GetBytesFromFile(Path.GetFullPath(FileName))
    3. My.Computer.Clipboard.SetData("ExplorerFileData", ByteCollection)
    4. My.Computer.Clipboard.SetData("ExplorerFileName", Path.GetFileName(FileName))
    5. End Sub
    7. Public Sub Einfügen(ByVal FileName As String)
    8. Dim Names As String = CType(My.Computer.Clipboard.GetData("ExplorerFileName"), String)
    9. Dim args As Byte() = CType(My.Computer.Clipboard.GetData("ExplorerFileData"), Byte())
    10. File.WriteAllBytes(Names, args)
    11. End Sub
    13. Public Function GetBytesFromFile(ByVal FileName As String) As Byte()
    14. Dim fs As FileStream = New FileStream(FileName, FileMode.Open)
    15. Dim reader As BinaryReader = New BinaryReader(fs)
    16. Dim Data As Byte() = reader.ReadBytes(CType(fs.Length, Long))
    17. reader.Close()
    18. fs.Close()
    19. Return Data
    20. End Function

    Mein Problem ist, dass zwar das Bytearray richtig eingelesen wird, aber nicht gescheit in´s Clipboard geschrieben(oder
    aus dem Clipboard gelesen) wird. Hat jemand eine Idee, wie ich es hinbekommen würde?

    Grüsse,
    Mircosofter ^^

    Wenn ich die Zwischenablage richtig verstehe, dann kann darin immer nur ein Datenelement (ob Text, Bild, Audio oder so) gespeichert werden. Somit könntest du dir ein Datenformat ausdenken, in dem dann beide Daten (Pfad und Inhalt) gespeichert werden. Jedoch würde ich persönlich für eine Copy&Paste-Funktion beim Kopieren nur den Pfad speichern und dann, sobald eingefügt werden soll, sowohl die Datei auslesen als auch in die neue Datei schreiben. Für einen solchen Vorgang gibt es auch bereits Funktionen in System.IO.File.

    @Vainamo V
    Da es auch eine "Cut"-Funktion gibt(die ich aussenvor gelassen habe, da es momentan nicht so wichtig ist) und auch Dateien zwischen verschiedenen Fenstern "bewegt" werden sollen.

    @lukekogv
    Stimmt, wieso bin ich nicht vorher darauf gekommen? :)
    Ich habe es nun vor folgendermaßen zu lösen: Ich schreibe in den Zwischenspeicher ein StringArray, wobei der erste Eintrag der Dateiname und der Zweite der Dateiinhalt(das Bytearray mit Base64 kodiert) enthalten wird.

    EDIT: Hat funktioniert, Danke das ihr euch die Zeit genommen habt ;)

    Hier nochmal mein Code:

    VB.NET-Quellcode

    1. Private Sub Cut(ByVal FileName As String)
    2. Dim FileContainsByte As Byte() = GetBytesFromFile(FileName)
    3. Dim TempCopyPasteFile(2) As String
    4. TempCopyPasteFile(0) = IO.Path.GetFileName(FileName)
    5. TempCopyPasteFile(1) = System.Convert.ToBase64String(GetBytesFromFile(IO.Path.GetFullPath(FileName)))
    6. My.Computer.Clipboard.SetData("ExplorerFile", TempCopyPasteFile)
    7. End Sub
    9. Private Sub Copy(ByVal FileName As String)
    10. Dim FileContainsByte As Byte() = GetBytesFromFile(FileName)
    11. Dim TempCopyPasteFile(2) As String
    12. TempCopyPasteFile(0) = IO.Path.GetFileName(FileName)
    13. TempCopyPasteFile(1) = System.Convert.ToBase64String(GetBytesFromFile(IO.Path.GetFullPath(FileName)))
    14. My.Computer.Clipboard.SetData("ExplorerFile", TempCopyPasteFile)
    15. End Sub
    17. Private Sub Paste()
    18. Dim TempStringCollection As String() = CType(My.Computer.Clipboard.GetData("ExplorerFile"), String())
    19. Dim Names As String = TempStringCollection(0)
    20. Dim args As Byte() = System.Convert.FromBase64String(TempStringCollection(1))
    21. IO.File.WriteAllBytes(Names, args)
    22. End Sub
    24. Public Function GetBytesFromFile(ByVal FileName As String) As Byte()
    25. Dim fs As IO.FileStream = New IO.FileStream(FileName, IO.FileMode.Open)
    26. Dim reader As IO.BinaryReader = New IO.BinaryReader(fs)
    27. Dim Data As Byte() = reader.ReadBytes(CType(fs.Length, Long))
    28. reader.Close()
    29. fs.Close()
    30. Return Data
    31. End Function

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mircosofter2206“ ()

Facebook
Telefonspende