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
FilenameMD5 checksum (gpg) c85b9deca63db5d0eeb40d433afdb551 binary release built against Tcl 8.4 stubs (gpg) 82234b830e03891e8e036f4ed2850bb6 source code ac7b83b1cb70b768856673277d26317a binary release built against Tcl 8.4 stubs c30e3b98515419bb05ca2f4d52d39e25 source code


Valid XHTML 1.0! Valid CSS! Viewable with any browser