(Tcl) Unzip Files Matching a Pattern (such as *.xml)

Example code to unzip Files Matching a Pattern (such as *.xml)

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example works with the .zip located at http://www.example-code.com/data/test.zip

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

# First, let's download the .zip
set http [new_CkHttp]

set success [CkHttp_Download $http "http://www.example-code.com/data/test.zip" "qa_test/test.zip"]
if {$success != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

set zip [new_CkZip]

set success [CkZip_OpenZip $zip "qa_test/test.zip"]
if {$success != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

# Show what's in the .zip by getting the directory as XML.
set zipContentsXml [CkZip_getDirectoryAsXML $zip]
if {[CkZip_get_LastMethodSuccess $zip] != 1} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

puts "$zipContentsXml"

# In this case, the contents of our .zip look like this:
# <?xml version="1.0" encoding="utf-8" ?>
# <zip_contents>
#     <dir name="test">
#         <dir name="abc">
#             <dir name="123">
#                 <file>ecc_public.pem</file>
#                 <file>starfish.jpg</file>
#             </dir>
#             <file>comodo-certificates.pem</file>
#             <file>pigs.xml</file>
#         </dir>
#         <file>COMODORSACertificationAuthority.crt</file>
#         <file>hamlet.xml</file>
#     </dir>
# </zip_contents>

# ------------------------------------------------------------------------
# If we wish to unzip only .xml files, use "*.xml" for the pattern\
# Unzip to the "qa_output" directory relative to our current working directory.
# (You may unzip to an absolute path by passing an absolute path, such as "/someDir" or
# "C:/someDir", etc.)
# This will unzip only the .xml files.  The relative directory structure within
# the .zip will be created in the local filesystem under the unzip directory
# path passed in the first argument, which in this case is "qa_output".
set count [CkZip_UnzipMatching $zip "qa_output" "*.xml" 1]
if {$count < 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

puts "unzipped $count matching file(s)."

# ------------------------------------------------------------------------
# If we wish to unzip only files under the "123" directory, we can do this:
set count [CkZip_UnzipMatching $zip "qa_output2" "*/123/*" 1]
if {$count < 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

puts "unzipped $count matching file(s)."

# ------------------------------------------------------------------------
# If no asterisk character is used, then the match must be exact.
# For example, to unzip "test/hamlet.xml" we must pass the exact path
# as it is in the .zip.  We cannot just pass "hamlet.xml".
set count [CkZip_UnzipMatching $zip "qa_output3" "test/hamlet.xml" 1]
if {$count < 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

puts "unzipped $count matching file(s)."

# ------------------------------------------------------------------------
# If we want to unzip any file named "hamlet.xml" found in any sub-directory...
set count [CkZip_UnzipMatching $zip "qa_output4" "*/hamlet.xml" 1]
if {$count < 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkHttp $http
    delete_CkZip $zip
    exit
}

puts "unzipped $count matching file(s)."

delete_CkHttp $http
delete_CkZip $zip