Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch nodecmd Excluding Merge-Ins
This is equivalent to a diff from 95744c5775 to a617380752
|
2018-08-17
| ||
| 20:46 | merged nodecmd check-in: b8bfdabfdb user: alex tags: trunk | |
| 20:27 | fixed some errors serializing with nodecmd Closed-Leaf check-in: a617380752 user: alex tags: nodecmd | |
| 08:17 | fix examples 6-8 check-in: e9e11493c1 user: alex tags: trunk | |
|
2018-08-16
| ||
| 09:04 | changing xml generation to nodecmd check-in: 7d9fd78ad4 user: alex tags: nodecmd | |
|
2018-08-15
| ||
| 09:17 | merged languages check-in: 95744c5775 user: alex tags: trunk | |
|
2018-08-14
| ||
| 12:31 | fix tools processing instruction check-in: 82a2b34025 user: alex tags: trunk | |
| 12:17 | adding language support Closed-Leaf check-in: 32d02e7be1 user: alex tags: languages | |
Changes to examples/sample6.tcl.
1 2 3 4 5 | #!/bin/sh #\ exec tclsh8.6 "$0" "$@" #package require ooxml | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
#!/bin/sh
#\
exec tclsh8.6 "$0" "$@"
#package require ooxml
source ../ooxml.tcl
set spreadsheet [::ooxml::xl_write new -creator {Alexander Schöpe}]
if {[set sheet [$spreadsheet worksheet {Blatt 1}]] > -1} {
set bold [$spreadsheet style -font [$spreadsheet font -bold]]
set italic [$spreadsheet style -font [$spreadsheet font -italic]]
set underline [$spreadsheet style -font [$spreadsheet font -underline]]
|
| ︙ | ︙ |
Changes to examples/sample7.tcl.
1 2 3 4 5 | #!/bin/sh #\ exec tclsh8.6 "$0" "$@" #package require ooxml | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | #!/bin/sh #\ exec tclsh8.6 "$0" "$@" #package require ooxml source ../ooxml.tcl array set workbook [ooxml::xl_read original_excel.xlsx] set spreadsheet [::ooxml::xl_write new] $spreadsheet presetstyles workbook $spreadsheet presetsheets workbook $spreadsheet write export7.xlsx $spreadsheet destroy |
Changes to examples/sample8.tcl.
1 2 3 4 5 | #!/bin/sh #\ exec tclsh8.6 "$0" "$@" #package require ooxml | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 |
#!/bin/sh
#\
exec tclsh8.6 "$0" "$@"
#package require ooxml
source ../ooxml.tcl
array set workbook [ooxml::xl_read form8.xlsx]
set data(NAME) {Erika Mustermann}
set data(ANSCHRIFT) {Heidestrasse 17}
set data(PLZORT) {51147 Köln}
set data(positionen) 3
|
| ︙ | ︙ |
Changes to ooxml.tcl.
| ︙ | ︙ | |||
2161 2162 2163 2164 2165 2166 2167 |
}
}
unset -nocomplain n v
# _rels/.rels
set doc [set obj(doc,_rels/.rels) [dom createDocument Relationships]]
set root [$doc documentElement]
| < | | | < | < | | > | < < < < < | > | | | | | < < < | | | < < < < < < < | | < < | < | < < | | < | < < | | < < | | | < < < > > > > > > > > > > > > > > > > > | | > > > > > > | < > | | < < | < < < < < < < < < | | < | > | < | | | < | < < | < > | | | < > | < < > > > > > > > | < | | < | < | < | < < < > > > > | < < | < | | < < < | < < < < | < < | < < | < | < | < < | < > > > > > > | > > | < < > | > > | > > | | > | < < > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | < | | < | | | < > | | | | < > | | < > | | < > | < < | < < > | < > | < | < | | | > | < | | | < | | | | < | | | | | | > > | < | | | | > | | | | | > | < | | | | | | < > > | < | < < < | < | | | | | | | | | | | | > > | > | > > > > | | | > | < | | < > | < | < < | | | | < < > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | | < | > | < | > | < | > | < | > | < | > | < < < < < < | > > > > > | > | < | > | < | > | < | < < < < < < < < < < < < < < > | > > > > > > > > > | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | > | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | < | > > > > > > > > > > > > > > > > > > > | | | | | | < < > > | | | | < < > > | | | | < < < > > > | < < < > < < < < < < | | < | < | | | < | < > > | < | | | < | < > > > | > > > > > < | < | > | > > > | < < > > | < < < < < | < > | < < < < < < < < > > < < < < < < < < < < < | < | < < < < > | > > > > > > | < < < < | > > > > > < < < < < < < < < < < | < | < | < | > > > > | | < | < | < | < < < < < < < < > > > | < | < | < > > | < | > > > | < | > > > | | < | < > | | < | < | < | < | < > > | < | < | < | < | < > > | < | < | < | < > > > | < | < > > | | < | < | < | < | < > > | < | < | < | < > > > | < | | > > > > | | | | | | < | < | < > | < | < > | < | < > | < | > > > | | | | | < | < | < > | < | > | < < | < > | < | | > > > | > > > > > > > > > > > > > | | < < | | < < | | | | < | < < | | | | < | < | | < | > > > > > > > > > > > > > > > > > > | | | < < | | | < | | | < < | > | < | | | > > > > | | < | < | | | | > | < | < > > > > | < | < < | | | | | | | > | | | < | | > | < | < | | | > > | < | | < | < | | < | | | | < | | > > | | | | | | | | | > | > > | 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 2780 2781 2782 2783 2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 2865 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 |
}
}
unset -nocomplain n v
# _rels/.rels
set doc [set obj(doc,_rels/.rels) [dom createDocument Relationships]]
set root [$doc documentElement]
set rId 0
dom createNodeCmd -tagName Relationship elementNode Tag_Relationship
$root setAttribute xmlns http://schemas.openxmlformats.org/package/2006/relationships
$root appendFromScript {
Tag_Relationship Id rId1 Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument Target xl/workbook.xml {}
Tag_Relationship Id rId2 Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties Target docProps/app.xml {}
Tag_Relationship Id rId3 Type http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties Target docProps/core.xml {}
}
# [Content_Types].xml
set doc [set obj(doc,\[Content_Types\].xml) [dom createDocument Types]]
set root [$doc documentElement]
dom createNodeCmd -tagName Default elementNode Tag_Default
dom createNodeCmd -tagName Override elementNode Tag_Override
$root setAttribute xmlns http://schemas.openxmlformats.org/package/2006/content-types
$root appendFromScript {
Tag_Default Extension xml ContentType application/xml {}
Tag_Default Extension rels ContentType application/vnd.openxmlformats-package.relationships+xml {}
Tag_Override PartName /xl/workbook.xml ContentType application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml {}
Tag_Override PartName /xl/worksheets/sheet1.xml ContentType application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml {}
for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
Tag_Override PartName /xl/theme/theme${ws}.xml ContentType application/vnd.openxmlformats-officedocument.theme+xml {}
}
Tag_Override PartName /xl/styles.xml ContentType application/vnd.openxmlformats-officedocument.spreadsheetml.styles+xml {}
if {$obj(sharedStrings) > 0} {
Tag_Override PartName /xl/sharedStrings.xml ContentType application/vnd.openxmlformats-officedocument.spreadsheetml.sharedStrings+xml {}
}
if {$obj(calcChain)} {
Tag_Override PartName /xl/calcChain.xml ContentType application/vnd.openxmlformats-officedocument.spreadsheetml.calcChain+xml {}
}
Tag_Override PartName /docProps/core.xml ContentType application/vnd.openxmlformats-package.core-properties+xml {}
Tag_Override PartName /docProps/app.xml ContentType application/vnd.openxmlformats-officedocument.extended-properties+xml {}
}
# docProps/app.xml
set doc [set obj(doc,docProps/app.xml) [dom createDocument Properties]]
set root [$doc documentElement]
dom createNodeCmd textNode Text
dom createNodeCmd -tagName AppVersion elementNode Tag_AppVersion
dom createNodeCmd -tagName Application elementNode Tag_Application
dom createNodeCmd -tagName Company elementNode Tag_Company
dom createNodeCmd -tagName DocSecurity elementNode Tag_DocSecurity
dom createNodeCmd -tagName HeadingPairs elementNode Tag_HeadingPairs
dom createNodeCmd -tagName HyperlinksChanged elementNode Tag_HyperlinksChanged
dom createNodeCmd -tagName LinksUpToDate elementNode Tag_LinksUpToDate
dom createNodeCmd -tagName ScaleCrop elementNode Tag_ScaleCrop
dom createNodeCmd -tagName SharedDoc elementNode Tag_SharedDoc
dom createNodeCmd -tagName TitlesOfParts elementNode Tag_TitlesOfParts
dom createNodeCmd -tagName vt:i4 elementNode Tag_vt:i4
dom createNodeCmd -tagName vt:lpstr elementNode Tag_vt:lpstr
dom createNodeCmd -tagName vt:variant elementNode Tag_vt:variant
dom createNodeCmd -tagName vt:vector elementNode Tag_vt:vector
$root setAttribute xmlns http://schemas.openxmlformats.org/officeDocument/2006/extended-properties
$root setAttribute xmlns:vt http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes
$root appendFromScript {
Tag_Application { Text {Tcl - Office Open XML - Spreadsheet} }
Tag_DocSecurity { Text 0 }
Tag_ScaleCrop { Text false }
Tag_HeadingPairs {
Tag_vt:vector size 2 baseType variant {
Tag_vt:variant {
Tag_vt:lpstr { Text [msgcat::mc Worksheets] }
}
Tag_vt:variant {
Tag_vt:i4 { Text 3 }
}
}
}
Tag_TitlesOfParts {
Tag_vt:vector size $obj(sheets) baseType lpstr {
Tag_vt:lpstr {
for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
Text [msgcat::mc Sheet]$ws
}
}
}
}
Tag_Company {}
Tag_LinksUpToDate { Text false }
Tag_SharedDoc { Text false }
Tag_HyperlinksChanged { Text false }
Tag_AppVersion { Text 1.0 }
}
# docProps/core.xml
set doc [set obj(doc,docProps/core.xml) [dom createDocument cp:coreProperties]]
set root [$doc documentElement]
dom createNodeCmd textNode Text
dom createNodeCmd -tagName cp:lastModifiedBy elementNode Tag_cp:lastModifiedBy
dom createNodeCmd -tagName dc:creator elementNode Tag_dc:creator
dom createNodeCmd -tagName dcterms:created elementNode Tag_dcterms:created
dom createNodeCmd -tagName dcterms:modified elementNode Tag_dcterms:modified
$root setAttribute xmlns:cp http://schemas.openxmlformats.org/package/2006/metadata/core-properties
$root setAttribute xmlns:dc http://purl.org/dc/elements/1.1/
$root setAttribute xmlns:dcterms http://purl.org/dc/terms/
$root setAttribute xmlns:dcmitype http://purl.org/dc/dcmitype/
$root setAttribute xmlns:xsi http://www.w3.org/2001/XMLSchema-instance
$root appendFromScript {
Tag_dc:creator { Text $obj(creator) }
Tag_cp:lastModifiedBy { Text $obj(creator) }
Tag_dcterms:created xsi:type dcterms:W3CDTF { Text $obj(created) }
Tag_dcterms:modified xsi:type dcterms:W3CDTF { Text $obj(created) }
}
# xl/_rels/workbook.xml.rels
set doc [set obj(doc,xl/_rels/workbook.xml.rels) [dom createDocument Relationships]]
set root [$doc documentElement]
dom createNodeCmd -tagName Relationship elementNode Tag_Relationship
$root setAttribute xmlns http://schemas.openxmlformats.org/package/2006/relationships
$root appendFromScript {
for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
Tag_Relationship Id rId$ws Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet Target worksheets/sheet${ws}.xml {}
}
set rId [incr ws -1]
Tag_Relationship Id rId[incr rId] Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/theme Target theme/theme1.xml {}
Tag_Relationship Id rId[incr rId] Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/styles Target styles.xml {}
if {$obj(sharedStrings) > 0} {
Tag_Relationship Id rId[incr rId] Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/sharedStrings Target sharedStrings.xml {}
}
if {$obj(calcChain)} {
Tag_Relationship Id rId[incr rId] Type http://schemas.openxmlformats.org/officeDocument/2006/relationships/calcChain Target calcChain.xml {}
}
}
# xl/sharedStrings.xml
if {$obj(sharedStrings) > 0} {
set doc [set obj(doc,xl/sharedStrings.xml) [dom createDocument sst]]
set root [$doc documentElement]
dom createNodeCmd textNode Text
dom createNodeCmd -tagName si elementNode Tag_si
dom createNodeCmd -tagName t elementNode Tag_t
$root setAttribute xmlns http://schemas.openxmlformats.org/spreadsheetml/2006/main
$root setAttribute count [llength $sharedStrings]
$root setAttribute uniqueCount [llength $sharedStrings]
$root appendFromScript {
foreach string $sharedStrings {
Tag_si {
Tag_t { Text $string }
}
}
}
}
# xl/calcChain.xml
if {$obj(calcChain)} {
set doc [set obj(doc,xl/calcChain.xml) [dom createDocument calcChain]]
set root [$doc documentElement]
dom createNodeCmd -tagName c elementNode Tag_c
$root setAttribute xmlns http://schemas.openxmlformats.org/spreadsheetml/2006/main
$root appendFromScript {
Tag_c r C1 i 3 l 1 {}
Tag_c r A3 i 2 {}
}
}
# xl/styles.xml
set doc [set obj(doc,xl/styles.xml) [dom createDocument styleSheet]]
set root [$doc documentElement]
dom createNodeCmd -tagName alignment elementNode Tag_alignment
dom createNodeCmd -tagName b elementNode Tag_b
dom createNodeCmd -tagName bgColor elementNode Tag_bgColor
dom createNodeCmd -tagName border elementNode Tag_border
dom createNodeCmd -tagName borders elementNode Tag_borders
dom createNodeCmd -tagName bottom elementNode Tag_bottom
dom createNodeCmd -tagName cellStyle elementNode Tag_cellStyle
dom createNodeCmd -tagName cellStyleXfs elementNode Tag_cellStyleXfs
dom createNodeCmd -tagName cellStyles elementNode Tag_cellStyles
dom createNodeCmd -tagName cellXfs elementNode Tag_cellXfs
dom createNodeCmd -tagName color elementNode Tag_color
dom createNodeCmd -tagName diagonal elementNode Tag_diagonal
dom createNodeCmd -tagName dxfs elementNode Tag_dxfs
dom createNodeCmd -tagName family elementNode Tag_family
dom createNodeCmd -tagName fgColor elementNode Tag_fgColor
dom createNodeCmd -tagName fill elementNode Tag_fill
dom createNodeCmd -tagName fills elementNode Tag_fills
dom createNodeCmd -tagName font elementNode Tag_font
dom createNodeCmd -tagName fonts elementNode Tag_fonts
dom createNodeCmd -tagName i elementNode Tag_i
dom createNodeCmd -tagName left elementNode Tag_left
dom createNodeCmd -tagName name elementNode Tag_name
dom createNodeCmd -tagName numFmt elementNode Tag_numFmt
dom createNodeCmd -tagName numFmts elementNode Tag_numFmts
dom createNodeCmd -tagName patternFill elementNode Tag_patternFill
dom createNodeCmd -tagName right elementNode Tag_right
dom createNodeCmd -tagName scheme elementNode Tag_scheme
dom createNodeCmd -tagName sz elementNode Tag_sz
dom createNodeCmd -tagName tableStyles elementNode Tag_tableStyles
dom createNodeCmd -tagName top elementNode Tag_top
dom createNodeCmd -tagName u elementNode Tag_u
dom createNodeCmd -tagName xf elementNode Tag_xf
$root setAttribute xmlns http://schemas.openxmlformats.org/spreadsheetml/2006/main
$root setAttribute xmlns:mc http://schemas.openxmlformats.org/markup-compatibility/2006
$root setAttribute xmlns:x14ac http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac
$root setAttribute mc:Ignorable x14ac
$root appendFromScript {
if {$obj(numFmts) > $::ooxml::defaults(numFmts,start)} {
Tag_numFmts count [llength [array names numFmts]] {
foreach idx [lsort -integer [array names numFmts]] {
Tag_numFmt numFmtId $idx formatCode $numFmts($idx) {}
}
}
}
Tag_fonts count $obj(fonts) x14ac:knownFonts 1 {
foreach idx [lsort -integer [array names fonts]] {
Tag_font {
if {[dict get $fonts($idx) color] ne {}} {
Tag_color [lindex [dict get $fonts($idx) color] 0] [lindex [dict get $fonts($idx) color] 1]
}
if {[dict get $fonts($idx) bold] == 1} {
Tag_b {}
}
if {[dict get $fonts($idx) italic] == 1} {
Tag_i {}
}
if {[dict get $fonts($idx) underline] == 1} {
Tag_u {}
}
Tag_sz val [dict get $fonts($idx) size] {}
Tag_name val [dict get $fonts($idx) name] {}
Tag_family val [dict get $fonts($idx) family] {}
Tag_scheme val [dict get $fonts($idx) scheme] {}
}
}
}
if {$obj(fills) > 0} {
Tag_fills count $obj(fills) {
foreach idx [lsort -integer [array names fills]] {
Tag_fill {
Tag_patternFill patternType [dict get $fills($idx) patterntype] {
foreach tag {fgColor bgColor} {
set key [string tolower $tag]
if {[dict get $fills($idx) $key] ne {}} {
Tag_$tag [lindex [dict get $fills($idx) $key] 0] [lindex [dict get $fills($idx) $key] 1] {}
}
}
}
}
}
}
}
if {$obj(borders) > 0} {
Tag_borders count $obj(borders) {
foreach idx [lsort -integer [array names borders]] {
set attr {}
if {[dict exists $borders($idx) diagonal direction] && [dict get $borders($idx) diagonal direction] ne {}} {
lappend attr [string map {up diagonalUp down diagonalDown} [dict get $borders($idx) diagonal direction]] 1
}
Tag_border {*}$attr {
foreach item {left right top bottom diagonal} {
set attr {}
if {[dict exists $borders($idx) $item style] && [dict get $borders($idx) $item style] ne {}} {
lappend attr style [dict get $borders($idx) $item style]
}
Tag_$item {*}$attr {
if {[dict exists $borders($idx) $item color] && [dict get $borders($idx) $item color] ne {}} {
Tag_color [lindex [dict get $borders($idx) $item color] 0] [lindex [dict get $borders($idx) $item color] 1] {}
}
}
}
}
}
}
}
Tag_cellStyleXfs count 1 {
Tag_xf numFmtId 0 fontId 0 fillId 0 borderId 0 {}
}
Tag_cellXfs count $obj(styles) {
foreach idx [lsort -integer [array names styles]] {
set attr {}
lappend attr numFmtId [dict get $styles($idx) numfmt]
lappend attr fontId [dict get $styles($idx) font]
lappend attr fillId [dict get $styles($idx) fill]
lappend attr borderId [dict get $styles($idx) border]
lappend attr xfId [dict get $styles($idx) xf]
if {[dict get $styles($idx) numfmt] > 0} {
lappend attr applyNumberFormat 1
}
if {[dict get $styles($idx) font] > 0} {
lappend attr applyFont 1
}
if {[dict get $styles($idx) fill] > 0} {
lappend attr applyFill 1
}
if {[dict get $styles($idx) border] > 0} {
lappend attr applyBorder 1
}
# lappend attr applyProtection 1 quotePrefix 1
if {[dict get $styles($idx) horizontal] ne {} || [dict get $styles($idx) vertical] ne {} || [dict get $styles($idx) rotate] ne {}} {
lappend attr applyAlignment 1
set alignment 1
} else {
set alignment 0
}
Tag_xf {*}$attr {
set attr {}
if {$alignment} {
if {[dict get $styles($idx) horizontal] ne {}} {
lappend attr horizontal [dict get $styles($idx) horizontal]
}
if {[dict get $styles($idx) vertical] ne {}} {
lappend attr vertical [dict get $styles($idx) vertical]
}
if {[dict get $styles($idx) rotate] ne {}} {
lappend attr textRotation [dict get $styles($idx) rotate]
}
Tag_alignment {*}$attr {}
}
}
}
}
Tag_cellStyles count 1 {
Tag_cellStyle name Standard xfId 0 builtinId 0 {}
}
Tag_dxfs count 0 {}
Tag_tableStyles count 0 {}
}
# xl/theme/theme1.xml
set doc [set obj(doc,xl/theme/theme1.xml) [dom createDocument a:theme]]
set root [$doc documentElement]
dom createNodeCmd -tagName a:accent1 elementNode Tag_a:accent1
dom createNodeCmd -tagName a:accent2 elementNode Tag_a:accent2
dom createNodeCmd -tagName a:accent3 elementNode Tag_a:accent3
dom createNodeCmd -tagName a:accent4 elementNode Tag_a:accent4
dom createNodeCmd -tagName a:accent5 elementNode Tag_a:accent5
dom createNodeCmd -tagName a:accent6 elementNode Tag_a:accent6
dom createNodeCmd -tagName a:alpha elementNode Tag_a:alpha
dom createNodeCmd -tagName a:bevelT elementNode Tag_a:bevelT
dom createNodeCmd -tagName a:bgFillStyleLst elementNode Tag_a:bgFillStyleLst
dom createNodeCmd -tagName a:bodyPr elementNode Tag_a:bodyPr
dom createNodeCmd -tagName a:camera elementNode Tag_a:camera
dom createNodeCmd -tagName a:clrScheme elementNode Tag_a:clrScheme
dom createNodeCmd -tagName a:cs elementNode Tag_a:cs
dom createNodeCmd -tagName a:dk1 elementNode Tag_a:dk1
dom createNodeCmd -tagName a:dk2 elementNode Tag_a:dk2
dom createNodeCmd -tagName a:ea elementNode Tag_a:ea
dom createNodeCmd -tagName a:effectLst elementNode Tag_a:effectLst
dom createNodeCmd -tagName a:effectRef elementNode Tag_a:effectRef
dom createNodeCmd -tagName a:effectStyle elementNode Tag_a:effectStyle
dom createNodeCmd -tagName a:effectStyleLst elementNode Tag_a:effectStyleLst
dom createNodeCmd -tagName a:extraClrSchemeLst elementNode Tag_a:extraClrSchemeLst
dom createNodeCmd -tagName a:fillRef elementNode Tag_a:fillRef
dom createNodeCmd -tagName a:fillStyleLst elementNode Tag_a:fillStyleLst
dom createNodeCmd -tagName a:fillToRect elementNode Tag_a:fillToRect
dom createNodeCmd -tagName a:fmtScheme elementNode Tag_a:fmtScheme
dom createNodeCmd -tagName a:folHlink elementNode Tag_a:folHlink
dom createNodeCmd -tagName a:font elementNode Tag_a:font
dom createNodeCmd -tagName a:fontRef elementNode Tag_a:fontRef
dom createNodeCmd -tagName a:fontScheme elementNode Tag_a:fontScheme
dom createNodeCmd -tagName a:gradFill elementNode Tag_a:gradFill
dom createNodeCmd -tagName a:gs elementNode Tag_a:gs
dom createNodeCmd -tagName a:gsLst elementNode Tag_a:gsLst
dom createNodeCmd -tagName a:hlink elementNode Tag_a:hlink
dom createNodeCmd -tagName a:latin elementNode Tag_a:latin
dom createNodeCmd -tagName a:lightRig elementNode Tag_a:lightRig
dom createNodeCmd -tagName a:lin elementNode Tag_a:lin
dom createNodeCmd -tagName a:ln elementNode Tag_a:ln
dom createNodeCmd -tagName a:lnDef elementNode Tag_a:lnDef
dom createNodeCmd -tagName a:lnRef elementNode Tag_a:lnRef
dom createNodeCmd -tagName a:lnStyleLst elementNode Tag_a:lnStyleLst
dom createNodeCmd -tagName a:lstStyle elementNode Tag_a:lstStyle
dom createNodeCmd -tagName a:lt1 elementNode Tag_a:lt1
dom createNodeCmd -tagName a:lt2 elementNode Tag_a:lt2
dom createNodeCmd -tagName a:majorFont elementNode Tag_a:majorFont
dom createNodeCmd -tagName a:minorFont elementNode Tag_a:minorFont
dom createNodeCmd -tagName a:objectDefaults elementNode Tag_a:objectDefaults
dom createNodeCmd -tagName a:outerShdw elementNode Tag_a:outerShdw
dom createNodeCmd -tagName a:path elementNode Tag_a:path
dom createNodeCmd -tagName a:prstDash elementNode Tag_a:prstDash
dom createNodeCmd -tagName a:rot elementNode Tag_a:rot
dom createNodeCmd -tagName a:satMod elementNode Tag_a:satMod
dom createNodeCmd -tagName a:scene3d elementNode Tag_a:scene3d
dom createNodeCmd -tagName a:schemeClr elementNode Tag_a:schemeClr
dom createNodeCmd -tagName a:shade elementNode Tag_a:shade
dom createNodeCmd -tagName a:solidFill elementNode Tag_a:solidFill
dom createNodeCmd -tagName a:sp3d elementNode Tag_a:sp3d
dom createNodeCmd -tagName a:spDef elementNode Tag_a:spDef
dom createNodeCmd -tagName a:spPr elementNode Tag_a:spPr
dom createNodeCmd -tagName a:srgbClr elementNode Tag_a:srgbClr
dom createNodeCmd -tagName a:style elementNode Tag_a:style
dom createNodeCmd -tagName a:sysClr elementNode Tag_a:sysClr
dom createNodeCmd -tagName a:themeElements elementNode Tag_a:themeElements
dom createNodeCmd -tagName a:tint elementNode Tag_a:tint
$root setAttribute xmlns:a http://schemas.openxmlformats.org/drawingml/2006/main
$root setAttribute name Office-Design
$root appendFromScript {
Tag_a:themeElements {
Tag_a:clrScheme name Office {
Tag_a:dk1 {
Tag_a:sysClr val windowText lastClr 000000 {}
}
Tag_a:lt1 {
Tag_a:sysClr val window lastClr FFFFFF {}
}
Tag_a:dk2 {
Tag_a:srgbClr val 1F497D {}
}
Tag_a:lt2 {
Tag_a:srgbClr val EEECE1 {}
}
Tag_a:accent1 {
Tag_a:srgbClr val 4F81BD {}
}
Tag_a:accent2 {
Tag_a:srgbClr val C0504D {}
}
Tag_a:accent3 {
Tag_a:srgbClr val 9BBB59 {}
}
Tag_a:accent4 {
Tag_a:srgbClr val 8064A2 {}
}
Tag_a:accent5 {
Tag_a:srgbClr val 4BACC6 {}
}
Tag_a:accent6 {
Tag_a:srgbClr val F79646 {}
}
Tag_a:hlink {
Tag_a:srgbClr val 0000FF {}
}
Tag_a:folHlink {
Tag_a:srgbClr val 800080 {}
}
}
Tag_a:fontScheme name Office {
Tag_a:majorFont {
Tag_a:latin typeface Cambria {}
Tag_a:ea typeface {} {}
Tag_a:cs typeface {} {}
Tag_a:font script Jpan typeface \uFF2D\uFF33\u0020\uFF30\u30B4\u30B7\u30C3\u30AF {}
Tag_a:font script Hang typeface \uB9D1\uC740\u0020\uACE0\uB515 {}
Tag_a:font script Hans typeface \u5B8B\u4F53 {}
Tag_a:font script Hant typeface \u65B0\u7D30\u660E\u9AD4 {}
Tag_a:font script Arab typeface {Times New Roman} {}
Tag_a:font script Hebr typeface {Times New Roman} {}
Tag_a:font script Thai typeface Tahoma {}
Tag_a:font script Ethi typeface Nyala {}
Tag_a:font script Beng typeface Vrinda {}
Tag_a:font script Gujr typeface Shruti {}
Tag_a:font script Khmr typeface MoolBoran {}
Tag_a:font script Knda typeface Tunga {}
Tag_a:font script Guru typeface Raavi {}
Tag_a:font script Cans typeface Euphemia {}
Tag_a:font script Cher typeface {Plantagenet Cherokee} {}
Tag_a:font script Yiii typeface {Microsoft Yi Baiti} {}
Tag_a:font script Tibt typeface {Microsoft Himalaya} {}
Tag_a:font script Thaa typeface {MV Boli} {}
Tag_a:font script Deva typeface Mangal {}
Tag_a:font script Telu typeface Gautami {}
Tag_a:font script Taml typeface Latha {}
Tag_a:font script Syrc typeface {Estrangelo Edessa} {}
Tag_a:font script Orya typeface Kalinga {}
Tag_a:font script Mlym typeface Kartika {}
Tag_a:font script Laoo typeface DokChampa {}
Tag_a:font script Sinh typeface {Iskoola Pota} {}
Tag_a:font script Mong typeface {Mongolian Baiti} {}
Tag_a:font script Viet typeface {Times New Roman} {}
Tag_a:font script Uigh typeface {Microsoft Uighur} {}
Tag_a:font script Geor typeface Sylfaen {}
}
Tag_a:minorFont {
Tag_a:latin typeface Calibri {}
Tag_a:ea typeface {} {}
Tag_a:cs typeface {} {}
Tag_a:font script Jpan typeface \uFF2D\uFF33\u0020\uFF30\u30B4\u30B7\u30C3\u30AF {}
Tag_a:font script Hang typeface \uB9D1\uC740\u0020\uACE0\uB515 {}
Tag_a:font script Hans typeface \u5B8B\u4F53 {}
Tag_a:font script Hant typeface \u65B0\u7D30\u660E\u9AD4 {}
Tag_a:font script Arab typeface Arial {}
Tag_a:font script Hebr typeface Arial {}
Tag_a:font script Thai typeface Tahoma {}
Tag_a:font script Ethi typeface Nyala {}
Tag_a:font script Beng typeface Vrinda {}
Tag_a:font script Gujr typeface Shruti {}
Tag_a:font script Khmr typeface DaunPenh {}
Tag_a:font script Knda typeface Tunga {}
Tag_a:font script Guru typeface Raavi {}
Tag_a:font script Cans typeface Euphemia {}
Tag_a:font script Cher typeface {Plantagenet Cherokee} {}
Tag_a:font script Yiii typeface {Microsoft Yi Baiti} {}
Tag_a:font script Tibt typeface {Microsoft Himalaya} {}
Tag_a:font script Thaa typeface {MV Boli} {}
Tag_a:font script Deva typeface Mangal {}
Tag_a:font script Telu typeface Gautami {}
Tag_a:font script Taml typeface Latha {}
Tag_a:font script Syrc typeface {Estrangelo Edessa} {}
Tag_a:font script Orya typeface Kalinga {}
Tag_a:font script Mlym typeface Kartika {}
Tag_a:font script Laoo typeface DokChampa {}
Tag_a:font script Sinh typeface {Iskoola Pota} {}
Tag_a:font script Mong typeface {Mongolian Baiti} {}
Tag_a:font script Viet typeface Arial {}
Tag_a:font script Uigh typeface {Microsoft Uighur} {}
Tag_a:font script Geor typeface Sylfaen {}
}
}
Tag_a:fmtScheme name Office {
Tag_a:fillStyleLst {
Tag_a:solidFill {
Tag_a:schemeClr val phClr {}
}
Tag_a:gradFill rotWithShape 1 {
Tag_a:gsLst {
Tag_a:gs pos 0 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 50000 {}
Tag_a:satMod val 300000 {}
}
}
Tag_a:gs pos 35000 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 37000 {}
Tag_a:satMod val 300000 {}
}
}
Tag_a:gs pos 100000 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 15000 {}
Tag_a:satMod val 350000 {}
}
}
}
Tag_a:lin ang 16200000 scaled 1 {}
}
Tag_a:gradFill rotWithShape 1 {
Tag_a:gsLst {
Tag_a:gs pos 0 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 100000 {}
Tag_a:shade val 100000 {}
Tag_a:satMod val 130000 {}
}
}
Tag_a:gs pos 100000 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 50000 {}
Tag_a:shade val 100000 {}
Tag_a:satMod val 350000 {}
}
}
}
Tag_a:lin ang 16200000 scaled 0 {}
}
}
Tag_a:lnStyleLst {
Tag_a:ln w 9525 cap flat cmpd sng algn ctr {
Tag_a:solidFill {
Tag_a:schemeClr val phClr {
Tag_a:shade val 95000 {
}
Tag_a:satMod val 105000 {
}
}
}
Tag_a:prstDash val solid {}
}
Tag_a:ln w 25400 cap flat cmpd sng algn ctr {
Tag_a:solidFill {
Tag_a:schemeClr val phClr {}
}
Tag_a:prstDash val solid {}
}
Tag_a:ln w 38100 cap flat cmpd sng algn ctr {
Tag_a:solidFill {
Tag_a:schemeClr val phClr {}
}
Tag_a:prstDash val solid {}
}
}
Tag_a:effectStyleLst {
Tag_a:effectStyle {
Tag_a:effectLst {
Tag_a:outerShdw blurRad 40000 dist 20000 dir 5400000 rotWithShape 0 {
Tag_a:srgbClr val 000000 {
Tag_a:alpha val 38000 {}
}
}
}
}
Tag_a:effectStyle {
Tag_a:effectLst {
Tag_a:outerShdw blurRad 40000 dist 23000 dir 5400000 rotWithShape 0 {
Tag_a:srgbClr val 000000 {
Tag_a:alpha val 35000 {}
}
}
}
}
Tag_a:effectStyle {
Tag_a:effectLst {
Tag_a:outerShdw blurRad 40000 dist 23000 dir 5400000 rotWithShape 0 {
Tag_a:srgbClr val 000000 {
Tag_a:alpha val 35000 {}
}
}
}
Tag_a:scene3d {
Tag_a:camera prst orthographicFront {
Tag_a:rot lat 0 lon 0 rev 0 {
}
}
Tag_a:lightRig rig threePt dir t {
Tag_a:rot lat 0 lon 0 rev 1200000 {
}
}
}
Tag_a:sp3d {
Tag_a:bevelT w 63500 h 25400 {}
}
}
}
Tag_a:bgFillStyleLst {
Tag_a:solidFill {
Tag_a:schemeClr val phClr {}
}
Tag_a:gradFill rotWithShape 1 {
Tag_a:gsLst {
Tag_a:gs pos 0 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 40000 {}
Tag_a:satMod val 350000 {}
}
}
Tag_a:gs pos 40000 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 45000 {}
Tag_a:shade val 99000 {}
Tag_a:satMod val 350000 {}
}
}
Tag_a:gs pos 100000 {
Tag_a:schemeClr val phClr {
Tag_a:shade val 20000 {}
Tag_a:satMod val 255000 {}
}
}
}
Tag_a:path path circle {
Tag_a:fillToRect l 50000 t -80000 r 50000 b 180000 {}
}
}
Tag_a:gradFill rotWithShape 1 {
Tag_a:gsLst {
Tag_a:gs pos 0 {
Tag_a:schemeClr val phClr {
Tag_a:tint val 80000 {}
Tag_a:satMod val 300000 {}
}
}
Tag_a:gs pos 100000 {
Tag_a:schemeClr val phClr {
Tag_a:shade val 30000 {}
Tag_a:satMod val 200000 {}
}
}
}
Tag_a:path path circle {
Tag_a:fillToRect l 50000 t 50000 r 50000 b 50000 {}
}
}
}
}
}
Tag_a:objectDefaults {
Tag_a:spDef {
Tag_a:spPr {}
Tag_a:bodyPr {}
Tag_a:lstStyle {}
Tag_a:style {
Tag_a:lnRef idx 1 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:fillRef idx 3 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:effectRef idx 2 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:fontRef idx minor {
Tag_a:schemeClr val lt1 {}
}
}
}
Tag_a:lnDef {
Tag_a:spPr {}
Tag_a:bodyPr {}
Tag_a:lstStyle {}
Tag_a:style {
Tag_a:lnRef idx 2 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:fillRef idx 0 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:effectRef idx 1 {
Tag_a:schemeClr val accent1 {}
}
Tag_a:fontRef idx minor {
Tag_a:schemeClr val tx1 {}
}
}
}
}
Tag_a:extraClrSchemeLst {}
}
# xl/workbook.xml
set doc [set obj(doc,xl/workbook.xml) [dom createDocument workbook]]
set root [$doc documentElement]
dom createNodeCmd textNode Text
dom createNodeCmd -tagName bookViews elementNode Tag_bookViews
dom createNodeCmd -tagName calcPr elementNode Tag_calcPr
dom createNodeCmd -tagName definedName elementNode Tag_definedName
dom createNodeCmd -tagName definedNames elementNode Tag_definedNames
dom createNodeCmd -tagName fileVersion elementNode Tag_fileVersion
dom createNodeCmd -tagName sheet elementNode Tag_sheet
dom createNodeCmd -tagName sheets elementNode Tag_sheets
dom createNodeCmd -tagName workbookPr elementNode Tag_workbookPr
dom createNodeCmd -tagName workbookView elementNode Tag_workbookView
$root setAttribute xmlns http://schemas.openxmlformats.org/spreadsheetml/2006/main
$root setAttribute xmlns:r http://schemas.openxmlformats.org/officeDocument/2006/relationships
$root appendFromScript {
Tag_fileVersion appName xl lastEdited 5 lowestEdited 5 rupBuild 5000 {}
Tag_workbookPr showInkAnnotation 0 autoCompressPictures 0 {}
Tag_bookViews {
Tag_workbookView activeTab 1 {}
}
Tag_sheets {
for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
Tag_sheet name $obj(sheet,$ws) sheetId $ws r:id rId$ws {}
}
}
if {0} {
Tag_definedNames {
Tag_definedName name _xlnm._FilterDatabase localSheetId 0 hidden 1 { Text Blatt1!$A$1:$C$1 }
}
}
Tag_calcPr calcId 140000 concurrentCalc 0 {}
# fullCalcOnLoad 1
}
# xl/worksheets/sheet1.xml SHEET
dom createNodeCmd textNode Text
dom createNodeCmd -tagName autoFilter elementNode Tag_autoFilter
dom createNodeCmd -tagName c elementNode Tag_c
dom createNodeCmd -tagName col elementNode Tag_col
dom createNodeCmd -tagName cols elementNode Tag_cols
dom createNodeCmd -tagName dimension elementNode Tag_dimension
dom createNodeCmd -tagName mergeCell elementNode Tag_mergeCell
dom createNodeCmd -tagName mergeCells elementNode Tag_mergeCells
dom createNodeCmd -tagName pageMargins elementNode Tag_pageMargins
dom createNodeCmd -tagName pane elementNode Tag_pane
dom createNodeCmd -tagName row elementNode Tag_row
dom createNodeCmd -tagName sheetData elementNode Tag_sheetData
dom createNodeCmd -tagName sheetFormatPr elementNode Tag_sheetFormatPr
dom createNodeCmd -tagName sheetView elementNode Tag_sheetView
dom createNodeCmd -tagName sheetViews elementNode Tag_sheetViews
dom createNodeCmd -tagName v elementNode Tag_v
for {set ws 1} {$ws <= $obj(sheets)} {incr ws} {
set doc [set obj(doc,xl/worksheets/sheet$ws.xml) [dom createDocument worksheet]]
set root [$doc documentElement]
$root setAttribute xmlns http://schemas.openxmlformats.org/spreadsheetml/2006/main
$root setAttribute xmlns:r http://schemas.openxmlformats.org/officeDocument/2006/relationships
$root setAttribute xmlns:mc http://schemas.openxmlformats.org/markup-compatibility/2006
$root setAttribute xmlns:x14ac http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac
$root setAttribute mc:Ignorable x14ac
$root appendFromScript {
Tag_dimension ref [::ooxml::RowColumnToString $obj(dminrow,$ws),$obj(dmincol,$ws)]:[::ooxml::RowColumnToString $obj(dmaxrow,$ws),$obj(dmaxcol,$ws)] {}
Tag_sheetViews {
Tag_sheetView workbookViewId 0 {
if {$obj(freeze,$ws) ne {}} {
lassign [split [::ooxml::StringToRowColumn $obj(freeze,$ws)] ,] row col
Tag_pane xSplit $col ySplit $row topLeftCell $obj(freeze,$ws) state frozen {}
}
}
}
Tag_sheetFormatPr baseColWidth 10 defaultRowHeight 16 x14ac:dyDescent 0.2 {}
if {[info exists obj($ws,cols)] && $obj($ws,cols) > 0} {
Tag_cols {}
}
Tag_sheetData {
set lastRow -1
set rows {}
foreach idx [lsort -dictionary [array names cells $ws,*,*]] {
lassign [split $idx ,] sheet row col
lappend rows $row
}
foreach row [lsort -unique -integer $rows] {
set maxCol $col
if {$row != $lastRow} {
set lastRow $row
set minCol $col
}
set attr {}
if {[dict exists $obj(rowHeight,$ws) $row]} {
lappend attr ht [dict get $obj(rowHeight,$ws) $row] customHeight 1
}
# lappend attr spans [expr {$minCol + 1}]:[expr {$maxCol + 1}]
Tag_row r [expr {$row + 1}] {*}$attr {
foreach idx [lsort -dictionary [array names cells $ws,$row,*]] {
lassign [split $idx ,] sheet row col
if {([dict exists $cells($idx) v] && [string trim [dict get $cells($idx) v]] ne {}) || ([dict exists $cells($idx) f] && [string trim [dict get $cells($idx) f]] ne {})} {
set attr {}
if {[dict exists $cells($idx) s] && [dict get $cells($idx) s] > 0} {
lappend attr s [dict get $cells($idx) s]
}
if {[dict exists $cells($idx) t] && [dict get $cells($idx) t] ne {n}} {
lappend attr t [dict get $cells($idx) t]
}
Tag_c r [::ooxml::RowColumnToString $row,$col] {*}$attr {
if {[dict exists $cells($idx) v] && [dict get $cells($idx) v] ne {}} {
Tag_v { Text [dict get $cells($idx) v] }
}
if {[dict exists $cells($idx) f] && [dict get $cells($idx) f] ne {}} {
Tag_f { Text [dict get $cells($idx) f] }
}
}
} elseif {[dict exists $cells($idx) s] && [string is integer -strict [dict get $cells($idx) s]] && [dict get $cells($idx) s] > 0} {
Tag_c r [::ooxml::RowColumnToString $row,$col] s [dict get $cells($idx) s] {}
}
}
}
}
}
if {$obj(autofilter,$ws) ne {}} {
Tag_autoFilter ref $obj(autofilter,$ws) {}
}
if {[info exists obj(merge,$ws)] && $obj(merge,$ws) ne {}} {
Tag_mergeCells count [llength $obj(merge,$ws)] {
foreach item $obj(merge,$ws) {
Tag_mergeCell ref $item {}
}
}
}
Tag_pageMargins left 0.75 right 0.75 top 1 bottom 1 header 0.5 footer 0.5 {}
}
if {[set colsNode [$root selectNodes {/worksheet/cols}]] ne {}} {
if {[info exists obj($ws,cols)] && $obj($ws,cols) > 0} {
$colsNode appendFromScript {
foreach idx [lsort -dictionary [array names cols $ws,*]] {
set attr {}
lappend attr min [expr {[dict get $cols($idx) min] + 1}] max [expr {[dict get $cols($idx) max] + 1}]
if {[dict get $cols($idx) width] ne {}} {
lappend attr width [dict get $cols($idx) width]
if {[dict get $cols($idx) width] != $::ooxml::defaults(cols,width)} {
dict set $cols($idx) customwidth 1
}
}
if {[dict get $cols($idx) style] ne {} && [dict get $cols($idx) style] > 0} {
lappend attr style [dict get $cols($idx) style]
}
if {[dict get $cols($idx) bestfit] == 1} {
lappend attr bestFit [dict get $cols($idx) bestfit]
}
if {[dict get $cols($idx) customwidth] == 1} {
lappend attr customWidth [dict get $cols($idx) customwidth]
}
Tag_col {*}$attr {}
}
}
}
}
}
# Content-Type application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
set file [string trim $file]
if {$file eq {}} {
set file {spreadsheetml.xlsx}
|
| ︙ | ︙ |