(PureBasic) Unzip Files Matching a Pattern (such as *.xml)

Example code to unzip Files Matching a Pattern (such as *.xml)

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    ; This example works with the .zip located at http://www.example-code.com/data/test.zip

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

    ; First, let's download the .zip
    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkHttp::ckDownload(http,"http://www.example-code.com/data/test.zip","qa_test/test.zip")
    If success <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

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

    success = CkZip::ckOpenZip(zip,"qa_test/test.zip")
    If success <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Show what's in the .zip by getting the directory as XML.
    zipContentsXml.s = CkZip::ckGetDirectoryAsXML(zip)
    If CkZip::ckLastMethodSuccess(zip) <> 1
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug zipContentsXml

    ; In this case, the contents of our .zip look like this:
    ; <?xml version="1.0" encoding="utf-8" ?>
    ; <zip_contents>
    ;     <dir name="test">
    ;         <dir name="abc">
    ;             <dir name="123">
    ;                 <file>ecc_public.pem</file>
    ;                 <file>starfish.jpg</file>
    ;             </dir>
    ;             <file>comodo-certificates.pem</file>
    ;             <file>pigs.xml</file>
    ;         </dir>
    ;         <file>COMODORSACertificationAuthority.crt</file>
    ;         <file>hamlet.xml</file>
    ;     </dir>
    ; </zip_contents>

    ; ------------------------------------------------------------------------
    ; If we wish to unzip only .xml files, use "*.xml" for the pattern\
    ; Unzip to the "qa_output" directory relative to our current working directory.
    ; (You may unzip to an absolute path by passing an absolute path, such as "/someDir" or
    ; "C:/someDir", etc.)
    ; This will unzip only the .xml files.  The relative directory structure within
    ; the .zip will be created in the local filesystem under the unzip directory
    ; path passed in the first argument, which in this case is "qa_output".
    count.i = CkZip::ckUnzipMatching(zip,"qa_output","*.xml",1)
    If count < 0
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "unzipped " + Str(count) + " matching file(s)."

    ; ------------------------------------------------------------------------
    ; If we wish to unzip only files under the "123" directory, we can do this:
    count = CkZip::ckUnzipMatching(zip,"qa_output2","*/123/*",1)
    If count < 0
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "unzipped " + Str(count) + " matching file(s)."

    ; ------------------------------------------------------------------------
    ; If no asterisk character is used, then the match must be exact.
    ; For example, to unzip "test/hamlet.xml" we must pass the exact path
    ; as it is in the .zip.  We cannot just pass "hamlet.xml".
    count = CkZip::ckUnzipMatching(zip,"qa_output3","test/hamlet.xml",1)
    If count < 0
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "unzipped " + Str(count) + " matching file(s)."

    ; ------------------------------------------------------------------------
    ; If we want to unzip any file named "hamlet.xml" found in any sub-directory...
    count = CkZip::ckUnzipMatching(zip,"qa_output4","*/hamlet.xml",1)
    If count < 0
        Debug CkZip::ckLastErrorText(zip)
        CkHttp::ckDispose(http)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    Debug "unzipped " + Str(count) + " matching file(s)."


    CkHttp::ckDispose(http)
    CkZip::ckDispose(zip)


    ProcedureReturn
EndProcedure