compression dotnet

Voila une petite classe qui permet de compresser et décompresser en utilisant un stream GZIP:

Imports System.IO
Imports System.IO.Compression
Imports System.Text

Public Class GZipper

    'Fonction qui zip une chaine de caractères
    Public Shared Function Zip(ByVal value As String) As StringBuilder
        'On transforme la chaine en tableau de byte
        Dim byteArray(value.Length - 1) As Byte
        Dim i As Integer = 0
        For Each item As Char In value.ToCharArray()
            byteArray(i) = CByte(AscW(item))
            i += 1
        Next

        'On prepare pour la compression
        Dim ms As New System.IO.MemoryStream()
        Dim sw As New System.IO.Compression.GZipStream(ms,