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)

LOCAL loGzip
LOCAL lnSuccess
LOCAL lcStrXfdl
LOCAL lcStrXml
LOCAL loFac

loGzip = CreateObject('Chilkat.Gzip')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loGzip.UnlockComponent("Anything for 30-day trial.")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loGzip.LastErrorText)
    QUIT
ENDIF

loFac = CreateObject('Chilkat.FileAccess')

*  Read a compressed XFDL file and decompress to XML
lcStrXfdl = loFac.ReadEntireTextFile("af70.xfd","ansi")
lcStrXml = loGzip.XfdlToXml(lcStrXfdl)

? lcStrXml