B4X

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.

B4X

Dim success As Boolean = False

Dim zip As ChilkatZip
zip.Initialize("zip")

'  Open an existing ZIP archive.
success = zip.OpenZip("c:/temp/sample.zip")
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


'  ------------------------------------------------------------
'  Find the first ZIP entry matching the wildcard pattern:
'  
'      docs/*
'  
'  Matching is performed against the full stored ZIP path.
'  
Dim entry As ChilkatZipEntry
entry.Initialize("entry")

success = zip.EntryMatching("docs/*", entry)
If success = False Then
    Log("No matching entries found.")
    zip.CloseZip
    Return
End If


'  ------------------------------------------------------------
'  Iterate through all matching entries.
'  
'  GetNextMatch updates the same ZipEntry object so that
'  it represents the next matching entry.
'  
Do While (success = True)
    If entry.IsDirectory = True Then
        Log("[Directory] " & entry.FileName)
    Else
        Log("[File] " & entry.FileName)
    End If


    '  Advance to the next matching entry.
    success = entry.GetNextMatch("docs/*")
Loop

zip.CloseZip

Log("Done.")