B4X Requires Chilkat v11.0.0+

Iterate over Matching Filenames

See more Zip Examples

Iterates over files within a .zip that match a pattern. In this case, the pattern is "*.pem". This example will open a .zip containing files of type .txt, .cer, .pem, and possibly others, and will iterate over only the .pem files. B4X

Dim success As Boolean = False

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

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

'  Open a .zip containing PEM files, among other things..
success = zip.OpenZip("qa_data/certs/thawte-roots.zip")
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


Dim entry As ChilkatZipEntry
entry.Initialize("entry")
Dim pemStr As String
Dim pattern As String = "*.pem"

Dim bHasMoreMatches As Boolean = zip.EntryMatching(pattern, entry)
Do While bHasMoreMatches = True

    Log("Entry: " & entry.FileName)

    '  Get the uncommpressed contents of the entry:
    pemStr = entry.UnzipToString(0, "utf-8")
    Log(pemStr)

    bHasMoreMatches = entry.GetNextMatch(pattern)
Loop