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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set gzip = CreateObject("Chilkat.Gzip")

'  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
    WScript.Quit
End If

set fac = CreateObject("Chilkat.FileAccess")

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

outFile.WriteLine(strXml)
outFile.Close