Visual FoxPro

Unzip a Text File Entry into a StringBuilder Using ZipEntry.UnzipToSb

See more Zip Examples

This example demonstrates how to use the ZipEntry.UnzipToSb method to inflate a text file entry directly into a StringBuilder object.

The ZIP entry is uncompressed entirely in memory and appended to the StringBuilder without creating a temporary file on disk.

This is useful when:

• Processing text files directly in memory
• Avoiding temporary filesystem files
• Reading configuration files, JSON, XML, CSV, or source code from ZIP archives
• Automatically converting line endings while inflating the text

The srcCharset argument specifies how the uncompressed bytes should be interpreted, such as:

• utf-8
• utf-16
• windows-1252

The lineEndingBehavior argument controls line-ending conversion:

• 0 — Leave line endings unchanged
• 1 — Convert all line endings to bare LF
• 2 — Convert all line endings to CRLF

Suppose the ZIP archive contains:

config/settings.json

The example inflates the JSON file directly into a StringBuilder.

Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loEntry
LOCAL loSb
LOCAL lnLineEndingBehavior
LOCAL lcSrcCharset

lnSuccess = 0

loZip = CreateObject('Chilkat.Zip')

* Open an existing ZIP archive.
lnSuccess = loZip.OpenZip("qa_data/zips/configFiles.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Locate the JSON file entry within the ZIP archive.
loEntry = CreateObject('Chilkat.ZipEntry')

lnSuccess = loZip.EntryOf("config/settings.json",loEntry)
IF (lnSuccess = 0) THEN
    ? "ZIP entry not found."
    loZip.CloseZip()
    RELEASE loZip
    RELEASE loEntry
    CANCEL
ENDIF

* ------------------------------------------------------------
* Inflate the ZIP entry directly into a StringBuilder.
* 
* The uncompressed text is appended to the StringBuilder.
* 
loSb = CreateObject('Chilkat.StringBuilder')

* Leave line endings unchanged.
lnLineEndingBehavior = 0

* Interpret the uncompressed bytes as UTF-8 text.
lcSrcCharset = "utf-8"

lnSuccess = loEntry.UnzipToSb(lnLineEndingBehavior,lcSrcCharset,loSb)
IF (lnSuccess = 0) THEN
    ? loEntry.LastErrorText
    RELEASE loZip
    RELEASE loEntry
    RELEASE loSb
    CANCEL
ENDIF

? "Uncompressed text:"
? ""
? loSb.GetAsString()

loZip.CloseZip()

? "Done."

RELEASE loZip
RELEASE loEntry
RELEASE loSb