tclstorage

What: Storage

 Where: http://www.patthoyts.tk/tclstorage/
        http://msdn.microsoft.com/library/en-us/stg/stg/structured_storage_start_page.asp
 Description: 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.
        Currently at version 0.0 .
 Updated: 03/2007
 Contact: See web site

See TclVFS

 package require Storage
 # 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

  package require Storage
  set f [storage open "word.doc" "r"]
  set p [$f propertyset \005SummaryInformation r]
  set title [$p get title]
  foreach item [$p names] { puts "$item [$p get $item]" }