VBScript

Unzip One File to a Stream

See more Zip Examples

Demonstrates how to unzip a particular file contained within a .zip archive to a Chilkat stream. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set zip = CreateObject("Chilkat.Zip")

' First open a .zip.
success = zip.OpenZip("qa_data/hamlet.zip")
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' Find the entry to be unzipped to a stream..
set entry = CreateObject("Chilkat.ZipEntry")
success = zip.EntryMatching("*hamlet.xml",entry)
If (success = 0) Then
    outFile.WriteLine(zip.LastErrorText)
    WScript.Quit
End If

' There are three ways we can unzip (inflate) to a stream.
' 
' 1) Set a sink file on the stream object and call UnzipToStream synchronously.
'    This unzips to the stream's sink (which is to simply unzip to a file in the filesystem).
' 
' 2) Create a stream object and call UnzipToStreamAsync.  This starts the unzip in a background
'    thread (after Task.Run is called).  Your application can then read the unzipped (inflated) file
'    directly from the stream.
' 
' 3) (not shown in this example) Unzip to a stream object that is the source of something else.
'    

' ----------------------------------------------------------------
' Case 1: Unzip to a file by setting the sink of streamA to a file.
set streamA = CreateObject("Chilkat.Stream")
streamA.SinkFile = "qa_output/hamletA.xml"

success = entry.UnzipToStream(streamA)
If (success <> 1) Then
    outFile.WriteLine(entry.LastErrorText)
    WScript.Quit
End If

' Close the stream to close the output file.
success = streamA.WriteClose()

' ----------------------------------------------------------------
' Case 2a: Uzip to a stream asynchronously. 
set streamB = CreateObject("Chilkat.Stream")

' unzipTask is a Chilkat.Task
Set unzipTask = entry.UnzipToStreamAsync(streamB)
If (entry.LastMethodSuccess <> 1) Then
    outFile.WriteLine(entry.LastErrorText)
    WScript.Quit
End If

' Start the background unzip thread.
success = unzipTask.Run()

' Read the stream.  (this is reading the unzipped file data)
set sb = CreateObject("Chilkat.StringBuilder")
Do While streamB.EndOfStream <> 1
    ' Each call to ReadSb appends to the contents of sb.
    success = streamB.ReadSb(sb)
Loop
success = sb.WriteFile("qa_output/hamletB.xml","utf-8",0)

outFile.WriteLine("Success.")

' ----------------------------------------------------------------
' Case 2b: Uzip to a stream asynchronously and emit output while reading. 
set streamC = CreateObject("Chilkat.Stream")

' unzipTask is a Chilkat.Task
Set unzipTask = entry.UnzipToStreamAsync(streamC)
If (entry.LastMethodSuccess <> 1) Then
    outFile.WriteLine(entry.LastErrorText)
    WScript.Quit
End If

success = unzipTask.Run()

Do While streamC.EndOfStream <> 1
    s = streamC.ReadString()
    outFile.WriteLine(s)
Loop

outFile.WriteLine("Success.")

outFile.Close