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

Extract asc-gzip encoded data to XML.

Download Chilkat FileAccess ActiveX (freeware)

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim gzip As New Gzip

Dim success As Long

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

Dim strXfdl As String
Dim strXml As String

Dim fac As New CkFileAccess

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

Text1.Text = Text1.Text & strXml & vbCrLf