Tcl

Iterate Through Matching ZIP Entries Using EntryMatching and ZipEntry.GetNextMatch

See more Zip Examples

This example demonstrates how to iterate through ZIP entries matching a wildcard pattern using:

• Zip.EntryMatching to obtain the first matching entry
• ZipEntry.GetNextMatch to advance to subsequent matching entries

The wildcard character * matches zero or more characters. Matching is performed against the full stored ZIP entry path.

The example searches for all entries beneath the docs/ directory.

Suppose the ZIP archive contains:

docs/
docs/readme.txt
docs/manual.pdf
docs/sub1/notes.txt
images/logo.png
hello.txt

The wildcard pattern:

docs/*

Matches:

docs/
docs/readme.txt
docs/manual.pdf
docs/sub1/notes.txt

Note that ZIP archives may optionally contain separate directory entries. Therefore, the first matching entry may be the directory entry docs/ rather than a file entry.

Tcl

load ./chilkat.dll

set success 0

set zip [new_CkZip]

# Open an existing ZIP archive.
set success [CkZip_OpenZip $zip "c:/temp/sample.zip"]
if {$success == 0} then {
    puts [CkZip_lastErrorText $zip]
    delete_CkZip $zip
    exit
}

# ------------------------------------------------------------
# Find the first ZIP entry matching the wildcard pattern:
# 
#     docs/*
# 
# Matching is performed against the full stored ZIP path.
# 
set entry [new_CkZipEntry]

set success [CkZip_EntryMatching $zip "docs/*" $entry]
if {$success == 0} then {
    puts "No matching entries found."
    CkZip_CloseZip $zip
    delete_CkZip $zip
    delete_CkZipEntry $entry
    exit
}

# ------------------------------------------------------------
# Iterate through all matching entries.
# 
# GetNextMatch updates the same ZipEntry object so that
# it represents the next matching entry.
# 
while {$success == 1} {
    if {[CkZipEntry_get_IsDirectory $entry] == 1} then {
        puts "{[Directory] }[CkZipEntry_fileName $entry]"
    }     else {
        puts "{[File] }[CkZipEntry_fileName $entry]"
    }

    # Advance to the next matching entry.
    set success [CkZipEntry_GetNextMatch $entry "docs/*"]
}

CkZip_CloseZip $zip

puts "Done."

delete_CkZip $zip
delete_CkZipEntry $entry