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)
}
|