Unzip Encrypted Text into a String Variable

Demonstrates how to open an encrypted .zip archive and unzip a text file directly into a string variable.

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 loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL lcStrCsv

loZip = CreateObject('Chilkat.Zip2')

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

*  Set the password required for decrypting.
loZip.DecryptPassword = "myPassword"

lnSuccess = loZip.OpenZip("encrypted.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  Locate the file within the Zip to be unzipped into a string variable:

loEntry = loZip.FirstMatchingEntry("*.csv")
IF (NOT (loEntry = NULL )) THEN

    *  There are a few different InflateToString methods.
    *  InflateToString allows you to control line-endings LF-only vs. CRLF
    *  InflateToString2 returns the line-endings unmodified.
    *  Both InflateToString and InflateToString2 assume the
    *  data consists of ANSI characters.
    *  The InflateToString3 method allows for text stored in different
    *  character encodings to be returned as a string

    *  This example uses InflateToString2 -- line endings are
    *  unmodified and the text is simple ANSI...

    lcStrCsv = loEntry.InflateToString2()
    ? lcStrCsv
    RELEASE loEntry
ELSE
    ? "No matching entry found!"
ENDIF