(Tcl) Replace/Update a FIle in a .zip

Demonstrates how to replace/update a file from a .zip. Note: This requires the entire .zip to be rewritten.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This requires the Chilkat Zip API to have been previously unlocked.
# See Unlock Chilkat Zip for sample code.

# First prepare a .zip and write it..
set zip [new_CkZip]

CkZip_NewZip $zip "qa_output/abc.zip"

# Add some files..
# entry is a CkZipEntry
set entry [CkZip_AppendString $zip "a.txt" "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"]
delete_CkZipEntry $entry

set entry [CkZip_AppendString $zip "b.txt" "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"]
delete_CkZipEntry $entry

set entry [CkZip_AppendString $zip "c.txt" "cccccccccccccccccccccccccccccccccccc"]
delete_CkZipEntry $entry

# Write to qa_output/abc.zip
# This .zip contains three files: a.txt, b.txt, and c.txt
set success [CkZip_WriteZipAndClose $zip]

# -------------------------------------------------------------------
# Open abc.zip, replace the content of the "b.txt" entry with something else, and re-write.
set zip2 [new_CkZip]

CkZip_OpenZip $zip2 "qa_output/abc.zip"

set entry [CkZip_GetEntryByName $zip2 "b.txt"]
CkZipEntry_ReplaceString $entry "This is the new content.  bbbbbbbbbbbbbbbbbbbbbb" "utf-8"
delete_CkZipEntry $entry

# Write the modified .zip back to "abc.zip"
set success [CkZip_WriteZipAndClose $zip2]

puts "success."

delete_CkZip $zip
delete_CkZip $zip2