Extract asc-gzip Encoded Data to XML (.xfd to .xml)

Extract asc-gzip encoded data to XML.

Download: Chilkat .NET Assemblies

Dim gzip As New Chilkat.Gzip()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = gzip.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(gzip.LastErrorText)
    Exit Sub
End If


Dim strXfdl As String
Dim strXml As String

Dim fac As New Chilkat.FileAccess()

'  Read a compressed XFDL file and decompress to XML
strXfdl = fac.ReadEntireTextFile("af70.xfd","ansi")
strXml = gzip.XfdlToXml(strXfdl)

TextBox1.Text = TextBox1.Text & strXml & vbCrLf