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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Http
integer li_Success
oleobject loo_Zip
string ls_ZipContentsXml
integer li_Count

// 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
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Http.Download("http://www.example-code.com/data/test.zip","qa_test/test.zip")
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

loo_Zip = create oleobject
// Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0
li_rc = loo_Zip.ConnectToNewObject("Chilkat.Zip")

li_Success = loo_Zip.OpenZip("qa_test/test.zip")
if li_Success <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

// Show what's in the .zip by getting the directory as XML.
ls_ZipContentsXml = loo_Zip.GetDirectoryAsXML()
if loo_Zip.LastMethodSuccess <> 1 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

Write-Debug ls_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".
li_Count = loo_Zip.UnzipMatching("qa_output","*.xml",1)
if li_Count < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

Write-Debug "unzipped " + string(li_Count) + " matching file(s)."

// ------------------------------------------------------------------------
// If we wish to unzip only files under the "123" directory, we can do this:
li_Count = loo_Zip.UnzipMatching("qa_output2","*/123/*",1)
if li_Count < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

Write-Debug "unzipped " + string(li_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".
li_Count = loo_Zip.UnzipMatching("qa_output3","test/hamlet.xml",1)
if li_Count < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

Write-Debug "unzipped " + string(li_Count) + " matching file(s)."

// ------------------------------------------------------------------------
// If we want to unzip any file named "hamlet.xml" found in any sub-directory...
li_Count = loo_Zip.UnzipMatching("qa_output4","*/hamlet.xml",1)
if li_Count < 0 then
    Write-Debug loo_Zip.LastErrorText
    destroy loo_Http
    destroy loo_Zip
    return
end if

Write-Debug "unzipped " + string(li_Count) + " matching file(s)."


destroy loo_Http
destroy loo_Zip