Files ohne externes Tool in eine File "packen"

Michael · 3. Januar 2012, 00:11

Hey, Leute.
Undzwar möchte ich aus mehreren Dateien nur eine einzige machen, die ich später wieder "entpacken" kann.
Sie müssten nichtmal komprimiert werden - Es geht mir nur darum, mehrere Files in eine zu packen, wichtig dabei ist, das es ohne externe Tools geschehen muss.
Hat dazu jemand Ansätze oder Ideen?

haiyyu · 3. Januar 2012, 00:19

mediafire.com/?mg9apz2fcgaff0a

Und

[VB 2008] Dateien in eine Datei "schreiben" und "lesen"

Myrax · 3. Januar 2012, 00:21

Hallo,

dann bastel dir dein eigenes Dateiformat. Du könntest das dann so aufbauen:

[{file1name},{file1bytes}]<split>[{file2name},{file2bytes}]<split>[{file3name},{file3bytes}]

haiyyu · 3. Januar 2012, 00:23

Das geht leider nicht so einfach, wenn in der Datei selbst auch [ ] und { } vorkommen.

Myrax · 3. Januar 2012, 00:25

bei mir hats funktioniert.

Michael · 3. Januar 2012, 00:37

Myrax schrieb:

Hallo,

dann bastel dir dein eigenes Dateiformat. Du könntest das dann so aufbauen:

[{file1name},{file1bytes}][{file2name},{file2bytes}][{file3name},{file3bytes}]

Ich werds jetzt gleich mal so versuchen.

haiyyu · 3. Januar 2012, 00:38

Hat meine Methode nicht funktioniert?

Michael · 3. Januar 2012, 00:44

Habe mir dein Projekt heruntergeladen - Sieht zwar sehr gut aus, möchte es aber eher klein halten, und der Ansatz von Myrax passt da genau.

Myrax · 3. Januar 2012, 00:53

Klein ists bei mir trotzdem nicht. Musst da ein bisschen was mit Regex machen, mit nem Filereader und sonst son Zeug. Ich hab das Projekt leider nicht mehr.

haiyyu · 3. Januar 2012, 00:58

Ich kann dir auch eine kleine Klasse schreiben, die dir das macht.

Michael · 3. Januar 2012, 01:01

Wäre sehr nett

Niko Ortner · 3. Januar 2012, 01:08

Wie wäre es, wenn Du so vorgehst:
Länge des Dateinamens als 32Bit Ganzzahl (4 Bytes)
Dateiname
Länge der Datei (wieder 4 Bytes)
Dateiinhalt
Dann wieder Länge des Dateinamens
Dateiname
Länge der Datei
Dateiinhalt

So spart man sich die Splits und in der Datei kann jedes beliebiges Zeichen / jede beliebige Zeichenfolge vorkommen.

haiyyu · 3. Januar 2012, 01:48

An das dachte ich auch.
Ich habe mich jetzt an einer kleinen Klasse versucht, bin aber daran gescheitert.
Ist wohl schon spät.
Ich geb dir einfach den Source der Klassen, die ich früher geschrieben habe.
Den kannst du dann in dein Projekt einbinden und verwenden, ohne DLL.

Anwendung sieht so aus:

VB.NET-Quellcode

' schreiben
Dim Writer As New ZeArchiveWriter("Output")
Writer.Files.Add("Datei1")
Writer.Files.Add("Datei2")
' ...
Writer.Flush()

VB.NET-Quellcode

' lesen
Dim Reader As New ZeArchiveReader("Input")
Reader.ReadFileList()
For Each File As ZeArchiveFile In Reader.Files
Reader.ExtractToFile(File.Id, File.Name)
Next

Und übersieh bitte meinen Kommentar in der ExtractToFile()-Methode.

Niko Ortner · 3. Januar 2012, 03:19

Falls es noch was bringt:
Hier meine Variante:
Packen:

VB.NET-Quellcode

Dim AllBytes As New List(Of Byte)
For Each i As String In {ListeVonDateipfaden}
Dim FileNameLenght As UInteger = Convert.ToUInt32(IO.Path.GetFileName(i).Length)
AllBytes.Add(CByte(FileNameLenght >> 24 And 255))
AllBytes.Add(CByte(FileNameLenght >> 16 And 255))
AllBytes.Add(CByte(FileNameLenght >> 8 And 255))
AllBytes.Add(CByte(FileNameLenght And 255))
AllBytes.AddRange(System.Text.Encoding.Default.GetBytes(System.IO.Path.GetFileName(i)))
Dim Content() As Byte = IO.File.ReadAllBytes(i)
Dim ContentLenght As UInteger = Convert.ToUInt32(Content.Count)
AllBytes.Add(CByte(ContentLenght >> 24 And 255))
AllBytes.Add(CByte(ContentLenght >> 16 And 255))
AllBytes.Add(CByte(ContentLenght >> 8 And 255))
AllBytes.Add(CByte(ContentLenght And 255))
AllBytes.AddRange(Content)
Next
IO.File.WriteAllBytes(PfadZurGepacktenDatei, AllBytes.ToArray)

Entpacken:

VB.NET-Quellcode

Using Reader As New System.IO.BinaryReader(New System.IO.FileStream(PfadZurGepacktenDatei, System.IO.FileMode.Open))
Do Until Reader.BaseStream.Position = Reader.BaseStream.Length - 1
Dim FileNameLenght As UInteger = (Convert.ToUInt32(Reader.ReadByte) << 24) Or (Convert.ToUInt32(Reader.ReadByte) << 16) Or (Convert.ToUInt32(Reader.ReadByte) << 8) Or Convert.ToUInt32(Reader.ReadByte)
Dim FileName As String = System.Text.Encoding.Default.GetChars(Reader.ReadBytes(CInt(FileNameLenght)))
Dim ContentLenght As UInteger = (Convert.ToUInt32(Reader.ReadByte) << 24) Or (Convert.ToUInt32(Reader.ReadByte) << 16) Or (Convert.ToUInt32(Reader.ReadByte) << 8) Or Convert.ToUInt32(Reader.ReadByte)
Dim Content() As Byte = Reader.ReadBytes(CInt(ContentLenght))
IO.File.WriteAllBytes(IO.Path.Combine(PfadZumOrdnerInDenEntpacktWerdenSoll, FileName), Content)
Loop
Reader.Close()
End Using

ErfinderDesRades · 3. Januar 2012, 05:36

Niko Ortner schrieb:

VB.NET-Quellcode

Dim FileNameLenght As UInteger = (Convert.ToUInt32(Reader.ReadByte) << 24) Or (Convert.ToUInt32(Reader.ReadByte) << 16) Or (Convert.ToUInt32(Reader.ReadByte) << 8) Or Convert.ToUInt32(Reader.ReadByte)

kann man dafür nicht einfach System.IO.BinaryReader.ReadUInt32 verwenden?

Niko Ortner · 3. Januar 2012, 11:17

... Ich bin spachlos

Files ohne externes Tool in eine File "packen"

Files ohne externes Tool in eine File "packen"

Myrax schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Niko Ortner schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben