Overview
| Comment: | Added snippets to txtdb that disentangle bits n pieces of xml from gnumeric file |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
d5b4f70c2bd9fcad9920504154233290 |
| User & Date: | matt on 2013-07-14 00:10:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-14
| ||
| 00:45 | Added snippets to txtdb that disentangle bits n pieces of xml from gnumeric file check-in: b8bf0ef6c4 user: matt tags: dev | |
| 00:10 | Added snippets to txtdb that disentangle bits n pieces of xml from gnumeric file check-in: d5b4f70c2b user: matt tags: dev | |
|
2013-07-13
| ||
| 00:01 | Some exporatory stuff for refdat editor check-in: c5231b3ac8 user: matt tags: dev | |
Changes
Modified txtdb/txtdb.scm from [edb776d98f] to [890ea3efe1].
| ︙ | ︙ | |||
45 46 47 48 49 50 51 | (if (eq? hed section) tal (if (null? tal) #f (loop (car tal)(cdr tal))))))) (find-section x 'http://www.gnumeric.org/v10.dtd:Workbook) | > > > > > > > > > > > > > > > > > | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | (if (eq? hed section) tal (if (null? tal) #f (loop (car tal)(cdr tal))))))) (find-section x 'http://www.gnumeric.org/v10.dtd:Workbook) (define sheets (find-section x 'http://www.gnumeric.org/v10.dtd:Sheets)) (define sheet1 (car sheets)) (define cells-sheet1 (find-section sheet1 'http://www.gnumeric.org/v10.dtd:Cells)) (map (lambda (c)(find-section c 'Row)) cells-sheet1) (for-each (lambda (cell) (let* ((len (length cell)) (row (car (find-section cell 'Row))) (col (car (find-section cell 'Col))) (val (let ((res (cdr (filter (lambda (x)(not (list? x))) cell)))) (if (null? res) "" (car res))))) (print "Row=" row " col=" col " val=" val))) cells-sheet1) (map (lambda (c)(filter (lambda (x)(not (list? x))) c)) cells-sheet1) |