Artifact 0f8f51f54f5079c857a504d66b30caf6a2425ba892936d3421dfba3027d295cb:
- Executable file examples/sample7.tcl — part of check-in [e9e11493c1] at 2018-08-17 08:17:52 on branch trunk — fix examples 6-8 (user: alex size: 303) [more...]
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 5c 0a 65 78 65 #!/bin/sh.#\.exe 0010: 63 20 74 63 6c 73 68 38 2e 36 20 22 24 30 22 20 c tclsh8.6 "$0" 0020: 22 24 40 22 0a 0a 23 70 61 63 6b 61 67 65 20 72 "$@"..#package r 0030: 65 71 75 69 72 65 20 6f 6f 78 6d 6c 0a 73 6f 75 equire ooxml.sou 0040: 72 63 65 20 2e 2e 2f 6f 6f 78 6d 6c 2e 74 63 6c rce ../ooxml.tcl 0050: 0a 0a 61 72 72 61 79 20 73 65 74 20 77 6f 72 6b ..array set work 0060: 62 6f 6f 6b 20 5b 6f 6f 78 6d 6c 3a 3a 78 6c 5f book [ooxml::xl_ 0070: 72 65 61 64 20 6f 72 69 67 69 6e 61 6c 5f 65 78 read original_ex 0080: 63 65 6c 2e 78 6c 73 78 5d 0a 0a 73 65 74 20 73 cel.xlsx]..set s 0090: 70 72 65 61 64 73 68 65 65 74 20 5b 3a 3a 6f 6f preadsheet [::oo 00a0: 78 6d 6c 3a 3a 78 6c 5f 77 72 69 74 65 20 6e 65 xml::xl_write ne 00b0: 77 5d 0a 24 73 70 72 65 61 64 73 68 65 65 74 20 w].$spreadsheet 00c0: 70 72 65 73 65 74 73 74 79 6c 65 73 20 77 6f 72 presetstyles wor 00d0: 6b 62 6f 6f 6b 0a 24 73 70 72 65 61 64 73 68 65 kbook.$spreadshe 00e0: 65 74 20 70 72 65 73 65 74 73 68 65 65 74 73 20 et presetsheets 00f0: 77 6f 72 6b 62 6f 6f 6b 0a 24 73 70 72 65 61 64 workbook.$spread 0100: 73 68 65 65 74 20 77 72 69 74 65 20 65 78 70 6f sheet write expo 0110: 72 74 37 2e 78 6c 73 78 0a 24 73 70 72 65 61 64 rt7.xlsx.$spread 0120: 73 68 65 65 74 20 64 65 73 74 72 6f 79 0a 0a sheet destroy..