Подскажите, как "сжимать" текстовые переменные

[euroflock]

Помогите со сжатием строковых переменных. По форуму ничего об этом не нашел - только сжатие файлов и всё.
Задача состоит не в сжатии файлов методами сжатия потоков, о чем написано везде и много, а в том, чтобы сжать (архивировать, уплотнить или др.) текстовое значение строковой переменной в другую переменную... а затем, конечно же и восстановить обратно. Спасибо (заранее).

[Viper]

А какая принципиальная разница между сжатием файлов и сжатием строк? И там и, там в итоге сжимается поток байт.

[iGrok]

Помогите со сжатием строковых переменных. По форуму ничего об этом не нашел - только сжатие файлов и всё.
Задача состоит не в сжатии файлов методами сжатия потоков, о чем написано везде и много, а в том, чтобы сжать (архивировать, уплотнить или др.) текстовое значение строковой переменной в другую переменную... а затем, конечно же и восстановить обратно. Спасибо (заранее).

Абсолютно точно так же, как и файлы, и потоки.

Только не понятно, зачем?

[euroflock]

Код: Выделить всё

Sub CompressFile(ByVal path As String)
        If Not File.Exists(path) Then
            Exit Sub
        End If
        Dim sourceFile As FileStream = File.OpenRead(path)
        Dim destinationFile As FileStream = File.Create(path + ".zip")
        Dim buffer(sourceFile.Length - 1) As Byte
        sourceFile.Read(buffer, 0, buffer.Length)
        Using output As New GZipStream(destinationFile, CompressionMode.Compress)
            output.Write(buffer, 0, buffer.Length)
        End Using
        'TextBox1.Text = destinationFile.ToString
        sourceFile.Close()
        destinationFile.Close()
End Sub

Код: Выделить всё

Sub UncompressFile(ByVal path As String)
        Dim sourceFile As FileStream = File.OpenRead(path)
        Dim destinationFile As FileStream = File.Create(path + ".uncompress")
        Dim buffer(4096) As Byte
        Dim n As Integer
        Using input As New GZipStream(sourceFile, CompressionMode.Decompress, False)
            n = input.Read(buffer, 0, buffer.Length)
            destinationFile.Write(buffer, 0, n)
        End Using
        sourceFile.Close()
        destinationFile.Close()
    End Sub

Вот так сжимаются файлы в потоке при записи. А как "точно так же" сжать строковую переменную?
Зачем? - это уже совсем другой вопрос, а реализация необходима.
Просто прошу помочь, так как с этим дела не имел, а нужно.
[Viper] :: Во-первых, пользуемся тэгом CODE для выделения кода. А, во-вторых, переезжаем в нужный раздел.

[tyomitch]

.нет в другом месте.

[Williams]

Сначала нужно получить байты из текста в нужной кодировке (System.Text.Encoding.UTF8.GetBytes) и сжать их

[euroflock]

...сам не заметил, как вопрос уже и переехал в раздел .NET

А не трудно ли будет советующим просто разместить маленький работающий код (сжатие/восстановление)?

[Williams]

А не трудно ли будет советующим просто разместить маленький работающий код (сжатие/восстановление)?

Держи сжатие:

Код: Выделить всё

        Dim ms As MemoryStream = New MemoryStream

        Dim buff() As Byte = System.Text.Encoding.UTF8.GetBytes("MyText")

        Dim output As GZipStream = New GZipStream(ms, CompressionMode.Compress)
        output.Write(buff, 0, buff.Length)

Далее можно, к примеру, ms.ToArray()

Да, чуть не забыл, если все же будешь хранить в строках, то надо будет закодировать сжатый массив в Base64.