This is a package for Tcl on Windows that gives scripts access to structured storages. This package includes a Tcl virtual filesystem to simplify the use of these composite files. There is documentation for the storage package and for the virtual filesystem.
# storage access example set stg [storage open sample.doc r] ;# open the structured storage set chan [$stg open WordDocument r] ;# open a data stream as a tcl channel set data [read $chan] ;# read the data close $chan ;# close the tcl channel and stream $stg close ;# release the structured storage
Version 1.1.0 includes some support for accessing and modifying property sets within such storages. This includes the SummaryInformation that is available for Office documents.
# tclstorage property set example. set stg [storage open sample.doc r+] set props [$stg propertyset "\005SummaryInformation" r+] $props set author "$tcl_platform(user)" $props set title "Sample Document" $props close $stg close
|tclstorage110.zip (gpg)||c85b9deca63db5d0eeb40d433afdb551||binary release built against Tcl 8.4 stubs|
|tclstorage110src.zip (gpg)||82234b830e03891e8e036f4ed2850bb6||source code|
|tclstorage100.zip||ac7b83b1cb70b768856673277d26317a||binary release built against Tcl 8.4 stubs|