PowerBuilder

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.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Zip
oleobject loo_Entry

li_Success = 0

loo_Zip = create oleobject
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")
if li_rc < 0 then
    destroy loo_Zip
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Open an existing ZIP archive.
li_Success = loo_Zip.OpenZip("c:/temp/sample.zip")
if li_Success = 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Zip
    return
end if

// ------------------------------------------------------------
// Find the first ZIP entry matching the wildcard pattern:
// 
//     docs/*
// 
// Matching is performed against the full stored ZIP path.
// 
loo_Entry = create oleobject
li_rc = loo_Entry.ConnectToNewObject("Chilkat.ZipEntry")

li_Success = loo_Zip.EntryMatching("docs/*",loo_Entry)
if li_Success = 0 then
    Write-Debug "No matching entries found."
    loo_Zip.CloseZip()
    destroy loo_Zip
    destroy loo_Entry
    return
end if

// ------------------------------------------------------------
// Iterate through all matching entries.
// 
// GetNextMatch updates the same ZipEntry object so that
// it represents the next matching entry.
// 
do while (li_Success = 1)
    if loo_Entry.IsDirectory = 1 then
        Write-Debug "[Directory] " + loo_Entry.FileName
    else
        Write-Debug "[File] " + loo_Entry.FileName
    end if

    // Advance to the next matching entry.
    li_Success = loo_Entry.GetNextMatch("docs/*")
loop

loo_Zip.CloseZip()

Write-Debug "Done."


destroy loo_Zip
destroy loo_Entry