Datei in Array laden und Array Inhalt zurück als Datei

  • VB.NET

    Datei in Array laden und Array Inhalt zurück als Datei

    Hi,

    Ich bin gerade am versuchen eine Binär Datei in ein Array zu laden und den Inhalt des Arrays wieder zurück in eine datei Speichern. Ich habe das zumindest hinbekommen das wenn ich eine datei lade, das die datei die ich speicher schonmal die richtige dateigröße hat ABER das problem ist nur, das in der neuen Datei keine Daten enthält. Also ich hänge quasi an der stelle wo die Daten in den Array geladen werden soll.


    Momentan sieht mein Code folgendermaßen aus.

    Datei Einlesen:

    VB.NET-Quellcode

    1. Dim OFD As New OpenFileDialog
    2. Dim Data() As Byte
    3. Dim FileNameIn As String
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. OFD.Filter = "Alle Dateien (*.*)|*.*"
    8. If OFD.ShowDialog = DialogResult.OK Then
    9. Dim FS As New IO.FileStream(OFD.FileName, IO.FileMode.Open)
    10. Dim BR As New IO.BinaryReader(FS)
    12. ' ByteArray dimensionieren
    13. ReDim Data(FS.Length - 1)
    15. 'HIER KOMME ICH NICHT WEITER <-------------
    17. FS.Close()
    18. BR.Close()
    19. Else
    21. End If
    22. End Sub





    Datei Schreiben (Inhalt vom Array):

    VB.NET-Quellcode

    1. Dim FS As New FileStream("C:\NEUEDATEI.bla", IO.FileMode.Create, FileAccess.Write)
    2. Dim BW As New BinaryWriter(FS)
    4. BW.Write(Data)
    6. FS.Close()
    7. BW.Close()
    8. End Sub


    Wie gesagt, die neue Datei hat die gleiche größe wie das Original nur ohne Inhalt vom Original da ich die Original Datei nicht verändern möchte.

    Gruß Micha



    Lösung:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. OFD.Filter = "Binärdatei (*.bin)|*.bin"
    4. If OFD.ShowDialog = DialogResult.OK Then
    5. Dim FS As New IO.FileStream(OFD.FileName, IO.FileMode.Open)
    6. Dim BR As New IO.BinaryReader(FS)
    8. ' ByteArray dimensionieren
    9. ReDim Data(FS.Length - 1)
    11. Data = BR.ReadBytes(FS.Length) '<---------- So funktionierts :)
    13. FS.Close()
    14. BR.Close()
    15. Else
    17. End If
    18. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MichaSDL0403“ ()

Facebook
Telefonspende