Tipp der Woche

.NET/VB: Textdateien komprimiert speichern

Quelle: B. Lauer
28.07.2022, 13:40 Uhr
.NET bietet mehrere Möglichkeiten, Dateien zu komprimieren und zu speichern. Besonders einfach sind damit Backups ganzer Verzeichnisse. Aber auch einzelne Dateien kann man komprimiert sichern.
Im Namensraum System.IO.Compression bietet .NET einfache Möglichkeiten, sämtliche Dateien eines Ordners komprimiert in eine ZIP-Datei zu schreiben. Das taugt super für Backup-Zwecke und sieht so aus:
Imports System
Imports System.IO
Imports System.IO.Compression
...
ZipFile.CreateFromDirectory(
  Ordner, ZipDateiMitPfad, CompressionLevel.Fastest, True)
...
Als Alternative für den CompressionLevel stehen neben .Fastest noch die Varianten .SmallestSize, .NoCompression und .Optimal zur Auswahl. Das abschließende True legt fest, dass der Name des Basis-Ordners mit einbezogen werden soll.
Soll nur eine einzelne Datei komprimiert gesichert werden, bietet Microsofts Dokumentation eine C#-Lösung an, die hier nach Visual-Basic übersetzt und in die Methoden blSaveAsGZipFile und blReadGZipFile gepackt wurde (die typischen automatischen Code-Wandler machen dabei einen kleinen aber entscheidenden Fehler). Im Beispiel fehlt noch eine Absicherung gegen Ausnahmen, die beispielsweise auftreten, wenn einer der Pfade nicht existieren sollte.
Imports System
Imports System.IO
Imports System.IO.Compression
...

Public Sub blSaveAsGZipFile(ByVal content As String,
  ByVal GZipPath As String, ByVal unCompressedPath As String)

  File.WriteAllText(unCompressedPath, content)

  Using originalFileStream As FileStream =
    File.Open(unCompressedPath, FileMode.Open)
    Using compressedFileStream As FileStream = File.Create(GZipPath)
      Using compressor = New GZipStream(compressedFileStream,
        CompressionMode.Compress)
        originalFileStream.CopyTo(compressor)
      End Using
    End Using
  End Using
  File.Delete(unCompressedPath)
End Sub


Public Function blReadGZipFile(ByVal GZipPath As String,
  ByVal unCompressedPath As String) As String

  Dim erg As String = ""
  Using compressedFileStream As FileStream =
    File.Open(GZipPath, FileMode.Open)
    Using outputFileStream As FileStream = File.Create(unCompressedPath)
      Using decompressor = New GZipStream(compressedFileStream,
        CompressionMode.Decompress)
        decompressor.CopyTo(outputFileStream)
      End Using
    End Using
  End Using

  erg = File.ReadAllText(unCompressedPath)
  Return erg
End Function

Autor(in)

Das könnte sie auch interessieren
Lokale KI
AI Dev Gallery: Lokale KI-Entwicklung mit .NET
Controls für Windows
Windows Community Toolkit 8.2: Verbesserte Funktionen und Bugfixes
.NET Framework
.NET 10 Preview 2 ist verfügbar!
.NET Cross Platform
OpenSilver 3.2 bringt WPF-Apps auf iOS und Android
Mehr News?
Besuchen Sie unsere Seite ...
https://www.dotnetpro.de
nach oben