(Classic ASP) 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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set zip = Server.CreateObject("Chilkat.Zip")

' Open an existing ZIP archive.
success = zip.OpenZip("qa_data/zips/configFiles.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Locate the JSON file entry within the ZIP archive.
set entry = Server.CreateObject("Chilkat.ZipEntry")

success = zip.EntryOf("config/settings.json",entry)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "ZIP entry not found.") & "</pre>"
    zip.CloseZip 
    Response.End
End If

' ------------------------------------------------------------
' Inflate the ZIP entry directly into a StringBuilder.
' 
' The uncompressed text is appended to the StringBuilder.
' 
set sb = Server.CreateObject("Chilkat.StringBuilder")

' Leave line endings unchanged.
lineEndingBehavior = 0

' Interpret the uncompressed bytes as UTF-8 text.
srcCharset = "utf-8"

success = entry.UnzipToSb(lineEndingBehavior,srcCharset,sb)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( entry.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Uncompressed text:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sb.GetAsString()) & "</pre>"

zip.CloseZip 

Response.Write "<pre>" & Server.HTMLEncode( "Done.") & "</pre>"

%>
</body>
</html>