.NET (Core and Framework)

Dave Kreskowiak wrote:

There's hundred of them! All you need to do is Google for ".NET Framework tutorials"...

But The Code Project is a good place to start!

MrBean wrote:

Also, I'm NOT looking for something to compress a stream...

MrBean wrote:

Yes, but this can be converted (encoded) to/from a String with .NET (can't remember the class name right now).

Dave Kreskowiak wrote:

Actually, you are! Consider the String as just a stream of characters in memory. See this[^] for more information.

Dave Kreskowiak wrote:

You could probably do what you want with a StringBuilder[^] object.

Public Function CompressString(ByVal strInput As String) As String

    Dim bufIn() As Byte = Encoding.UTF8.GetBytes(strInput)
    Dim bufIn() As Byte = Encoding.UTF8.GetBytes(strInput)

    Dim ms As New MemoryStream()
    Dim ZipStream As New GZipStream(ms, CompressionMode.Compress, False)
    ZipStream.Write(bufIn, 0, bufIn.Length)
    Dim bufOut() As Byte = ms.GetBuffer
    ZipStream.Close()

    Return Convert.ToBase64String(bufOut)

End Function

Public Function DeCompressString(ByVal strInput As String) As String

    Dim bufIn() As Byte = Convert.FromBase64String(strInput)

    Dim ms As New MemoryStream()
    ms.Write(bufIn, 0, bufIn.Length) ' Compressed data
    ms.Position = 0

    Dim ZipStream As New GZipStream(ms, CompressionMode.Decompress)

    Dim bufOut(30000) As Byte ' Predefined buffer-size just for test purposes!!
    Dim nRead As Integer

    nRead = ZipStream.Read(bufOut, 0, bufOut.Length) ' Returns 0 ????

    ZipStream.Close()

    Return Convert.ToString(bufOut) ' never mind this... WIP

End Function