Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | added sample9.tcl and timestamp correction doc core |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
4a610b3601a841929204c4f95cde85ff |
User & Date: | alex 2019-08-10 09:33:08 |
Context
2019-08-20
| ||
08:00 | Version-1.3 check-in: 3e16defd13 user: alex tags: trunk, release, version-1.3 | |
2019-08-15
| ||
13:09 | Merged from trunk check-in: 0c057761f8 user: rolf tags: populationspeed | |
2019-08-10
| ||
09:33 | added sample9.tcl and timestamp correction doc core check-in: 4a610b3601 user: alex tags: trunk | |
09:21 | merged new constructor options check-in: 86cfba6df0 user: alex tags: trunk | |
Changes
Added examples/sample9.tcl.
> > > > > > > > > > > > > > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
#!/bin/sh #\ exec tclsh8.6 "$0" "$@" set auto_path [linsert $auto_path 0 ..] if {[catch {package require ooxml}]} { source ../ooxml.tcl } set spreadsheet [::ooxml::xl_write new -creator {User A} -created {2019-08-10 10:01:30} -modifiedby {User B} -modified {2019-08-10 12:30:01} -application {Tcl Example Script 9}] set wrap [$spreadsheet style -wrap] if {[set sheet [$spreadsheet worksheet {Sheet 1}]] > -1} { $spreadsheet cell $sheet {my text the will be automatically wrapped by excel} -index A1 -style $wrap $spreadsheet write export9.xlsx } $spreadsheet destroy |
Changes to ooxml.tcl.
1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 |
set obj(creator) {unknown} } else { set obj(creator) $opts(creator) } if {[string trim $opts(created)] eq {} || [catch {clock scan $opts(created)}]} { set obj(created) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } else { set obj(created) $opts(created) } if {[string trim $opts(modifiedby)] eq {}} { set obj(lastModifiedBy) $opts(creator) } else { set obj(lastModifiedBy) $opts(modifiedby) } if {[string trim $opts(modified)] eq {} || [catch {clock scan $opts(modified)}]} { set obj(modified) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } else { set obj(modified) $opts(modified) } if {[string trim $opts(application)] eq {}} { set obj(application) {Tcl - Office Open XML - Spreadsheet} } else { set obj(application) $opts(application) } |
| | |
1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 |
set obj(creator) {unknown} } else { set obj(creator) $opts(creator) } if {[string trim $opts(created)] eq {} || [catch {clock scan $opts(created)}]} { set obj(created) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } else { set obj(created) [clock format [clock scan $opts(created) -gmt 1] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } if {[string trim $opts(modifiedby)] eq {}} { set obj(lastModifiedBy) $opts(creator) } else { set obj(lastModifiedBy) $opts(modifiedby) } if {[string trim $opts(modified)] eq {} || [catch {clock scan $opts(modified)}]} { set obj(modified) [clock format [clock seconds] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } else { set obj(modified) [clock format [clock scan $opts(modified) -gmt 1] -format %Y-%m-%dT%H:%M:%SZ -gmt 1] } if {[string trim $opts(application)] eq {}} { set obj(application) {Tcl - Office Open XML - Spreadsheet} } else { set obj(application) $opts(application) } |