(Xojo Plugin) Iterate over Matching Filenames

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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim zip As New Chilkat.Zip

// Open a .zip containing PEM files, among other things..
Dim success As Boolean
success = zip.OpenZip("qa_data/certs/thawte-roots.zip")
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

Dim entry As Chilkat.ZipEntry
entry = zip.FirstMatchingEntry("*.pem")
If (zip.LastMethodSuccess <> True) Then
    System.DebugLog("No PEM entries found.")
    Return
End If

Dim nextEntry As Chilkat.ZipEntry
Dim pemStr As String

Dim bContinue As Boolean
bContinue = True
While (bContinue = True)

    System.DebugLog("Entry: " + entry.FileName)

    // Get the uncommpressed contents of the entry:
    pemStr = entry.UnzipToString(0,"utf-8")
    System.DebugLog(pemStr)

    nextEntry = entry.NextMatchingEntry("*.pem")
    bContinue = entry.LastMethodSuccess

    entry = nextEntry
Wend