(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

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

    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Open a .zip containing PEM files, among other things..
    success.i = CkZip::ckOpenZip(zip,"qa_data/certs/thawte-roots.zip")
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    entry.i = CkZip::ckFirstMatchingEntry(zip,"*.pem")
    If CkZip::ckLastMethodSuccess(zip) <> 1
        Debug "No PEM entries found."
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    nextEntry.i
    pemStr.s

    bContinue.i = 1
    While (bContinue = 1)

        Debug "Entry: " + CkZipEntry::ckFileName(entry)

        ; Get the uncommpressed contents of the entry:
        pemStr = CkZipEntry::ckUnzipToString(entry,0,"utf-8")
        Debug pemStr

        nextEntry = CkZipEntry::ckNextMatchingEntry(entry,"*.pem")
        bContinue = CkZipEntry::ckLastMethodSuccess(entry)
        CkZipEntry::ckDispose(entry)

        entry = nextEntry
    Wend


    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure