Xbase++

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.

Xbase++

LOCAL nSuccess
LOCAL oZip
LOCAL oEntry

nSuccess := 0

oZip := CreateObject("Chilkat.Zip")

//  Open an existing ZIP archive.
nSuccess := oZip:OpenZip("c:/temp/sample.zip")
IF (nSuccess == 0)
    ? oZip:LastErrorText
    oZip:destroy()
    RETURN
ENDIF

//  ------------------------------------------------------------
//  Find the first ZIP entry matching the wildcard pattern:
//  
//      docs/*
//  
//  Matching is performed against the full stored ZIP path.
//  
oEntry := CreateObject("Chilkat.ZipEntry")

nSuccess := oZip:EntryMatching("docs/*", oEntry)
IF (nSuccess == 0)
    ? "No matching entries found."
    oZip:CloseZip()
    oZip:destroy()
    oEntry:destroy()
    RETURN
ENDIF

//  ------------------------------------------------------------
//  Iterate through all matching entries.
//  
//  GetNextMatch updates the same ZipEntry object so that
//  it represents the next matching entry.
//  
DO WHILE (nSuccess == 1)
    IF (oEntry:IsDirectory == 1)
        ? "[Directory] " + oEntry:FileName
    ELSE
        ? "[File] " + oEntry:FileName
    ENDIF

    //  Advance to the next matching entry.
    nSuccess := oEntry:GetNextMatch("docs/*")
ENDDO

oZip:CloseZip()

? "Done."

oZip:destroy()
oEntry:destroy()