Xbase++

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

See more Zip Examples

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

LOCAL nSuccess
LOCAL oHttp
LOCAL oZip
LOCAL cZipContentsXml
LOCAL nCount

nSuccess := 0

//  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
oHttp := CreateObject("Chilkat.Http")
nSuccess := oHttp:Download("http://www.example-code.com/data/test.zip", "qa_test/test.zip")
IF (nSuccess != 1)
    ? oHttp:LastErrorText
    oHttp:destroy()
    RETURN
ENDIF

oZip := CreateObject("Chilkat.Zip")

nSuccess := oZip:OpenZip("qa_test/test.zip")
IF (nSuccess != 1)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

//  Show what's in the .zip by getting the directory as XML.
cZipContentsXml := oZip:GetDirectoryAsXML()
IF (oZip:LastMethodSuccess != 1)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

? cZipContentsXml

//  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".
nCount := oZip:UnzipMatching("qa_output", "*.xml", 1)
IF (nCount < 0)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

? "unzipped " + Str(nCount) + " matching file(s)."

//  ------------------------------------------------------------------------
//  If we wish to unzip only files under the "123" directory, we can do this:
nCount := oZip:UnzipMatching("qa_output2", "*/123/*", 1)
IF (nCount < 0)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

? "unzipped " + Str(nCount) + " 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".
nCount := oZip:UnzipMatching("qa_output3", "test/hamlet.xml", 1)
IF (nCount < 0)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

? "unzipped " + Str(nCount) + " matching file(s)."

//  ------------------------------------------------------------------------
//  If we want to unzip any file named "hamlet.xml" found in any sub-directory...
nCount := oZip:UnzipMatching("qa_output4", "*/hamlet.xml", 1)
IF (nCount < 0)
    ? oZip:LastErrorText
    oHttp:destroy()
    oZip:destroy()
    RETURN
ENDIF

? "unzipped " + Str(nCount) + " matching file(s)."

oHttp:destroy()
oZip:destroy()