Over the last days, the script has become more complex and unreadable but also more powerfull.... It is unlikely yet that someone ever will understand the code. But for now, it works!
Here are three examples of what it's all about:
With this CGI script your are able to edit predefined standard csv files over the web, using your web browser. It is not possible to add or delete columns (what means: the file structure is fix), but to add new rows, delete rows, edit cells and sort in ascending or descending order. As an addition, two cool javascripts are used to choose date from a popup calendar (see the noted web references for more details) and to implement tooltips. To declare a field as a date field, simply add @date as the last word in it and the see what happens after klicking edit again... To generate a Link in a cell, use LinkName url @link-notation. To show it bold, add @bold (other gimmicks not to mention...).
To install the script and make it work:
The scripts create a file.bak before each write access and stores deleted and overwritten records to a "transaction"-log named after the csv file.
I implemented a simple todo-list with this script... (that's the original reason I started to wrote it).
#=============================================================================== # CSVEdit 0.9 (c) M.Hoffmann, DAK 2006 # 19.05.2006 - http://wiki.tcl.tk/15676 # ToDo/Bugs: # - CACHING? # - Beim Abschneiden von Text wird nach <numChars> vorgegangen, eigentlich # müsste je nach Font und Pixelbreite vorgegangen werden... # - Bei Refresh: ACHTUNG DIE SEITE ENTHÄLT POSTDATEN ??? # - ToolTips für Abgeschnittenes momentan nicht bei ReqDel sichtbar... # - CSS für EditElemente (Input, Button) werden vom IE ignoriert... # - evtl. Bubble-Help für Vollanzeige benutzen, oder Klick auf Details ganz # rechts zeigt VollText unten etc. # - Statt input type=text immer textarea verwenden; Anzeige wahlweise EXPANDen # = nowrap entfernen o.ä.; NOWRAP konfigurierbar machen + WIDTH # - Mehrere Sortierfelder (Datum, PRIO) - aber nicht per Interface (geht nicht # von Haus aus mit LSORT, daher komplex) # - Bei EDIT POSITIONIEREN; IST DAS MÖGLICH?! # geht nicht in CGI-URLs!? evtl. # über JS:focus (aber: welches Ziel?) # - NOSCRIPT-Auswertung! # - LfdNr als eigene Spalte mitführen/nur anzeigen? # - Wahlweise später: Insert_Before, _After, MoveUp/Dn etc. - ein ganzes Muster # an Befehlen ist in der rechten Spalte denkbar! (aber nur mit Sequenz-Vor- # haltung) # - Reset()-Button? # - ALLE Farben konfigurierbar # - Auch deforder über .rc vorgebbar (geht wg. Parsingreihenfolge nicht...) # - Alternatives Editieren im 'FullScreen/Dialog'-Modus # - Diese Idee für einen generischen INIEditor nutzen (iA für PackageTool) # - Bug: Zurück-Link in History # - Evtl. UNDO/Redo/Restore in History... # ------------------------------------------------------------------------------ # - Löschen MUSS indirekt erfolgen, damit POS gesetzt ist! #=============================================================================== package require ncgi; # tcllib package require html; # tcllib package require csv; # tcllib package require lock; # http://wiki.tcl.tk/15173 M.Hoffmann package require readprof; # http://wiki.tcl.tk/12647 M.Hoffmann #------------------------------------------------------------------------------- # Wo befinden sich die JavaScripts? set jsRoot "/js"; # evtl. aus env() lesen, sollte dann bei WebServerstart über /custom-code gesetzt sein! if {![file isdirectory $jsRoot]} { set jsRoot "" } #------------------------------------------------------------------------------- # Einträge für <head> proc addToHead {} { puts { <style type="text/css"> <!-- @media screen { body { font-family:Tahoma,"Trebuchet Ms",Verdana,"Lucida Sans Unicode","MS Sans Serif",Arial; font-size:8pt; line-height:10pt; color: #000; margin-left: 1%; margin-right: 1%; margin-top: 1%; } } @media print { body { font-family:"Trebuchet Ms",Verdana,Tahoma,"Lucida Sans Unicode","MS Sans Serif",Arial; font-size:7pt; line-height:9pt; color: #000; margin-left: 1%; margin-right: 1%; margin-top: 1%; } } a:link { text-decoration:none; font-weight:bold; color:blue; } a:visited { text-decoration:none; font-weight:bold; color:purple; } a:hover { text-decoration:none; font-weight:bold; color:white; background-color:blue; } a:active { text-decoration:none; font-weight:bold; color:purple; } a:focus { text-decoration:none; font-weight:bold; color:purple; } td { font-family:Tahoma,"Trebuchet Ms",Verdana,"Lucida Sans Unicode","MS Sans Serif",Arial; font-size:8pt; line-height:10pt; color: #000; margin-left: 1%; margin-right: 1%; margin-top: 1%; } th { font-family:Tahoma,"Trebuchet Ms",Verdana,"Lucida Sans Unicode","MS Sans Serif",Arial; font-size:8pt; line-height:10pt; font-weight: bold; color: #000; margin-left: 1%; margin-right: 1%; margin-top: 1%; } input { font-size:7pt; background-color:lightpink; font-family:Courier; } /* IE 6 erkennt die Attribut-Selektoren nicht! */ /* daher werden button-styles weiter unten INLINE überschrieben! */ input[type=submit], input[type=reset], input[type=button] { font-size:7pt; font-weight:bold; background-color:#DCDCDC; font-family:Verdana,Tahoma; } input[type=text] { font-family:Courier; font-size:8pt; background-color:lightpink; } select { font-family:Courier; font-size:8pt; background-color:antiquewhite; } --> </style> } set ::bStyle {font-size:7pt; font-weight:bold; background-color:#DCDCDC; font-family:Verdana,Tahoma;} # NoScript-Handling? # Siehe http://dynarch.com/mishoo/ if {$::cmd == "edit"} { puts " <!-- --------------------------------- --> <!-- Einbindung der Kalenderfunktionen --> <!-- --------------------------------- --> <!-- calendar stylesheet --> <link rel=\"stylesheet\" type=\"text/css\" media=\"all\" href=\"$::jsRoot/jscalendar-1.0/calendar-tas.css\" title=\"tas\" /> <!-- main calendar program --> <script type=\"text/javascript\" src=\"$::jsRoot/jscalendar-1.0/calendar.js\"></script> <!-- language for the calendar --> <script type=\"text/javascript\" src=\"$::jsRoot/jscalendar-1.0/lang/calendar-de.js\"></script> <!-- the following script defines the Calendar.setup helper function, which makes adding a calendar a matter of 1 or 2 lines of code. --> <script type=\"text/javascript\" src=\"$::jsRoot/jscalendar-1.0/calendar-setup.js\"></script> " } } # Baut Argumentliste für Links auf: link?var1=value1&var2=value2... proc makeLink {title args} { lappend args file $::file sort $::sort order $::order back $::back readonly $::readonly mtime $::mtime filter $::filter foreach {p v} $args {lappend ret $p=[ncgi::encode $v]} return "<a href=\"[ncgi::urlStub]?[join $ret &]\">$title</a>" } # dito, aber ohne <a href="..."></a> # später dies beides Verschachteln, um doppelten Code zu sparen! proc makeLink1 args { lappend args file $::file sort $::sort order $::order back $::back readonly $::readonly mtime $::mtime filter $::filter foreach {p v} $args {lappend ret $p=[ncgi::encode $v]} return [ncgi::urlStub]?[join $ret &] } # Baut Argumentliste für Links auf: link?var1=value1&var2=value2..., aber OHNE ORDER UND SORT proc makeLink2 {title args} { lappend args file $::file back $::back readonly $::readonly mtime $::mtime $::filter foreach {p v} $args {lappend ret $p=[ncgi::encode $v]} return "<a href=\"[ncgi::urlStub]?[join $ret &]\">$title</a>" } # Setzt globale Variablen aus gleichnamigen CGI-Vars, falls fehlend mit Vorgaben # es fehlt: Range-Check! proc readVars args { foreach {varname default} $args { set temp [ncgi::value $varname] set ::$varname [expr {[string length $temp] ? $temp : $default}] } } # Hidden-Inputfelder erzeugen (muss $value ESCAPEd werden???) proc makeHidden args { foreach {varname value} $args { puts "<input type=\"hidden\" name=\"$varname\" value=\"[quote $value]\">" } } # (einige) HTML-Sonderzeichen umsetzen, siehe auch http://wiki.tcl.tk/13008 proc quote in { return [string map \ {ä ä Ä Ä ö ö Ö Ö ü ü Ü Ü ß ß} \ [html::quoteFormValue $in]] } # Special-quoting for tooltips (see http://www.walterzorn.de) proc quotett in { if {[lindex $in end] == "@bold"} { set bPos [string last " @bold" $in]; incr bPos -1 set in [string range $in 0 $bPos] } return [string map \ {ä ä Ä Ä ö ö Ö Ö ü ü Ü Ü ß ß \\ \\\\ ' \\' & "& amp;" < "& lt;" > "& gt;"} \ [html::quoteFormValue $in]] } # "überlange" Anzeigen b.a.W. abkürzen, später optional expandable! I.d.Z.: kann CSV \n speichern? proc shortenCell {ix cellIn} { if {$::debug == 1} { puts "shortenCell " } set mW $::opts(maxDisplayWidth_$ix) if {$::debug == 1} { puts "mw := $mW | actLen := [string length $cellIn]<br>" } if {[string length $cellIn] > $mW} { incr mW -4; # Achtung: bedingt mindestwert > 4! set ::truncated 1 return "[string range $cellIn 0 $mW]..." } else { return $cellIn } } # ggF. Spezialcodes in Zellen umsetzen, 1. Versuch proc formatCell {ix cellIn} { set ::truncated 0 if {[lindex $cellIn end] == {@link}} { # name ziel [name ziel [...]] @link set temp {} foreach {name ref} [lrange $cellIn 0 end-1] { append temp "<a href=\"$ref\">[quote [shortenCell $ix $name]]</a> " } return $temp } elseif {[lindex $cellIn end] == {@date}} { # ACHTUNG: dieser Code ist abgestimmt auf das 'ifFormat'!!! foreach {Y m d} [split [lindex $cellIn 0] .] {} set temp "$d.$m.$Y" if {[string range $temp 0 1] == ".."} { return [lindex $cellIn 0] } elseif {$::opts(isTermin_$ix)} { set tmp [clock format [clock seconds] -format {%Y%m%d}] if {"$Y$m$d" == "$tmp"} { return "<span style=\"color: red;\">$temp</span>" } elseif {"$Y$m$d" < "$tmp"} { return "<span style=\"color: white; background: red\">$temp</span>" } else { return $temp } } else { return $temp } } elseif {[lindex $cellIn end] == "@bold"} { set bPos [string last " @bold" $cellIn]; incr bPos -1 return "<b>[quote [shortenCell $ix [string range $cellIn 0 $bPos]]]</b>" } else { return [quote [shortenCell $ix $cellIn]] } } # Javascriptcode für Datumsauswahlbutton erzeugen/stacken, siehe http://dynarch.com/mishoo/ proc pushJSDate id { # durch eigene onSelect-Funktion könnte Feld zeitgleich aktualisiert werden! append ::jsCode " <script type=\"text/javascript\"> Calendar.setup({ inputField : '$id', ifFormat : '%Y.%m.%d @date', showsTime : false, button : '${id}_b', singleClick: true, cache : true, showOthers : true, step : 1 }); </script> \n" } # Farbe zeilenweise umschalten, Test proc toggleColor {} { global lineColor if {$lineColor == "#fffacd"} { set lineColor "white" } else { set lineColor "#fffacd" } return $lineColor } # Some important security feature: don't allow editing arbitrary files! # prevent from leaving the http-root! Paths are always relative to script's # [pwd], but can contain dir(s). Don't note error if spec is absolute. proc relFile file { if {[string range $file 1 1] == ":"} {set file [string replace $file 0 1]}; # MS-Win set file [string trimleft $file {./\\}]; # remove problematic chars return $file } # primitive AbortHandler (don't care about open html-tags...) proc abort {args} { _puts "<p><table align=\"center\" bgcolor=\"silver\" border=\"3\" width=\"50%\" \ cellpadding=\"5\" frame=\"box\" height=\"30%\">\n <tr><th align=\"left\" height=\"10%\">Fehler:</th></tr>\n <tr><td align=\"left\" valign=\"top\">[join $args]</td></tr>\n <tr><td align=\"right\" height=\"10%\">(Programm-Abbruch)\n </th></tr></table><p></body></html>" exit 1; } # transactionLog (save overwritten or deleted records and opcode in csv-format) proc tranLog {file op hdr rec} { if {[catch { set f [open [file rootname $file].log a] if {[tell $f] == 0} { puts $f [csv::join [lappend hdr op Zeit]] } puts $f [csv::join [lappend rec $op [clock format [clock seconds] -format {%d.%m.%Y %H:%M:%S}]]] close $f } rc]} { puts "<font color=\"red\">Fehler beim Schreiben des Transaktions-Logs: $rc" puts "<b>Die Operation <b>$op</b> wird verworfen!</b></font>" ncgi::setValue cmd ""; set ::cmd ""; # ausnahmsweise hier... ncgi::setValue pos ""; set ::pos ""; # GLOBALE Vars setzen! return 0 } else { return 1 } } #------------------------------------------------------------------------------- # for later easier implemention of caching, without too much source changes, # overload the puts-command # based on http://wiki.tcl.tk/15945, http://wiki.tcl.tk/8502 # (siehe auch extend_puts in winbkcrm.exe) set pageBuf {} rename puts ::tcl::puts proc puts args { set la [llength $args] if {$la < 1 || $la > 3} { catch {::tcl::puts} rc; # read original helptxt error [string map {::tcl:: ""} $rc]; # trigger error/SyntaxHelp } set nl \n if {[lindex $args 0]=="-nonewline"} { set nl "" set args [lrange $args 1 end] } if {[llength $args]==1} { set args [list stdout [join $args]] } foreach {channel s} $args break if {$channel == "stdout"} { # either explicite or implicite write to STDOUT requested append ::pageBuf $s$nl } else { set cmd ::tcl::puts if {$nl==""} {lappend cmd -nonewline} lappend cmd $channel $s uplevel $cmd } } #------------------------------------------------------------------------------- set lineColor "#fffacd" ncgi::reset ncgi::parse ncgi::header # pos zuvor 0 readVars file data/demo.dat sort -1 cmd "" pos "" order increasing back "" debug 0 readonly 0 mtime 0 filter "" set file [relFile $file] set cacheFile [file rootname $::file].html if {[string length $back] == 0} { set uri {}; catch {set uri $::env(REQUEST_URI)} set ref {}; catch {set ref $::env(HTTP_REFERER)} if {$uri != $ref} { set back $ref } } puts {<html><head><title>CSVEdit 0.9</title>} addToHead puts {</head><body>} puts "Tabelle: <b>$file</b> " if {[string length $cmd]} {puts "Modus: <b>$cmd</b>"} puts {<div align="right">} puts [makeLink Refresh] if {[string length $back]} {puts " <a href=\"$back\">Zurück</a>"} puts {</div>} puts {<hr><p>} set jsCode {} set hdr {} set rows {} if {[catch { set f [open $file r] gets $f hdr set hdr [csv::split $hdr] set cols [llength $hdr] while {[gets $f rec] > -1} { lappend rows [csv::split $rec] } close $f } rc]} then { abort $rc } # Profile-Handling: set prf [file rootname $file].rc set defopts {} for {set i 0} {$i < [llength $hdr]} {incr i} { lappend defopts default_$i {} lappend defopts select_$i {} lappend defopts maxDisplayWidth_$i 12; # mindestens erforderlich für Datum! lappend defopts isTermin_$i 0; # wenn true, wird dieses Datum bei Überschreiten rot markiert lappend defopts isHidden_$i 0; # wenn true, wird diese Spalte übersprungen } lappend defopts defsort $sort readonly $readonly array set opts [readprof::readprof1 $prf $defopts]; unset defopts if {$sort == -1} { set sort $opts(defsort) } set rows [lsort -dictionary -$order -index $sort $rows]; # vor Edit/Repl, damit 'pos' stimmt! for {set i 0} {$i < [llength $hdr]} {incr i} { if {$opts(default_$i) == "@date"} { set opts(default_$i) [clock format [clock seconds] -format {%Y.%m.%d @date}]; # Achtung: Format muss passen! } if {$opts(maxDisplayWidth_$i) < 10} { set opts(maxDisplayWidth_$i) 10 } } if {$debug == 1} { foreach x [array names opts] {puts "$x := $opts($x)<br>"}; # DEBUG <<<<<<<<<< } set saveFile 0 if {$readonly == 0} { if {($cmd == "save" || $cmd == "add" || $cmd == "del!" || $cmd == "edit" || $cmd == "reqdel") && $mtime != [file mtime $file]} { puts "<font color=\"red\">Operation abgebrochen, Datei wurde zwischenzeitlich geändert!" puts "Bitte die Operation <b>wiederholen!</b></font>" ncgi::setValue cmd ""; set cmd "" ncgi::setValue pos ""; set pos "" } elseif {$cmd == "save"} { # wird gerufen über SUBMIT-Button nach Feld-Änderungen for {set i 0} {$i < $cols} {incr i} {lappend newRow [ncgi::value f$i]} if {[tranLog $file $cmd $hdr [lindex $rows $pos]]} { lset rows $pos $newRow set rows [lsort -dictionary -$order -index $sort $rows] set saveFile 1 } } elseif {$cmd == "add"} { for {set i 0} {$i < [llength $hdr]} {incr i} { lappend newRow [join $opts(default_$i)] } lappend rows $newRow set rows [lsort -dictionary -$order -index $sort $rows] set saveFile 1 } elseif {$cmd == "del!"} { if {[tranLog $file $cmd $hdr [lindex $rows $pos]]} { set rows [lreplace $rows $pos $pos] set saveFile 1 } } # Fehler hier noch auswerten! if {$saveFile} { ######## schlecht: CSV wird SORTIERT abgespeichert, ist das ein Problem? ## ggF. Satznummer mitführen, und immer vor Speichern nach Satz# sortieren if {[catch {lock::withLock { file copy -force $file $file.bak set f [open $file w] puts $f [csv::join $hdr] foreach row $rows { puts $f [csv::join [string map {\n \\n} $row]] } close $f set mtime [file mtime $file] } 5000 [file join $::env(temp) _gentable.lock]} rc]} { puts "<font color=\"red\">Timeout beim Schreibzugriff: $rc<br>Editkonflikt!?</font>" } ncgi::setValue cmd ""; # Kommando zurücksetzen!! nützt nichts für Browser URL, Back!!! set cmd "" ncgi::setValue pos ""; # Kommando zurücksetzen!! nützt nichts für Browser URL, Back!!! set pos "" # ncgi::redirect [makeLink1]; # URL-Zeile um Parameter bereinigen!!! Klappt nicht! } } set mtime [file mtime $file] puts "<form name=\"frm1\" action=\"[ncgi::urlStub]\" method=\"post\"" # puts { onreset="return confirm('Wirklich alle Eingaben zurücksetzen?');"} puts { onsubmit="return confirm('Operation durchführen?');">} puts {<table border="1"><colgroup>} foreach h $hdr {puts -nonewline {<col>}} puts {<col>} puts {</colgroup><thead><tr bgcolor="silver" align="left" nowrap>} set i 0 foreach h $hdr { if {!$opts(isHidden_$i)} { if {$i == $sort} {puts {<th nowrap bgcolor="#DCDCDC">}} else {puts {<th nowrap>}} # IE kann die dicken Pfeile ⇓ und ⇑ nicht! puts "[makeLink2 &darr\; sort $i order increasing] $h [makeLink2 &uarr\; sort $i order decreasing]</th>" } incr i } if {$readonly == 0} { puts "<th align=\"center\" nowrap><input type=\"submit\" style=\"$bStyle\" value=\"add\" name=\"cmd\" /></th></tr>" } else { puts {</tr>} } puts {</thead><tbody>} set rowIx 0 set focus "" foreach row $rows { if {([string length $::filter] == 0) || ([string match -nocase *$::filter* $row] == 1)} { puts "<tr bgcolor=\"[toggleColor]\" id=\"z$rowIx\">" set cellIx 0 if {$cmd == "edit" && $pos == $rowIx && $readonly == 0} { foreach cell $row { if {!$opts(isHidden_$cellIx)} { puts "<td nowrap><input type=\"text\" name=\"f$cellIx\" id=\"f$cellIx\" value=\"[quote $cell]\" size=\"$opts(maxDisplayWidth_$cellIx)\" />" if {[lindex $cell end] == "@date"} { puts "<button type=\"reset\" style=\"$bStyle\" id=\"f${cellIx}_b\">...</button>" pushJSDate f$cellIx } if {[llength $opts(select_$cellIx)]} { puts "<select size=\"1\" name=\"s$cellIx\" onCHange=\"this.form.f$cellIx.value = this.form.s$cellIx.options\[this.form.s$cellIx.selectedIndex\].value;\">" puts "<option>[quote $cell]</option>" foreach o [join $opts(select_$cellIx)] { puts "<option>$o</option>" } puts {</select>} } puts </td> if {$focus == ""} { append ::jsCode " <script type=\"text/javascript\"> document.frm1.f$cellIx.focus(); </script> \n" set focus done } } incr cellIx } puts "<td nowrap>[makeLink cancel] <input type=\"submit\" style=\"$bStyle\" value=\"save\" name=\"cmd\" /></td>" } elseif {$cmd == "reqdel" && $pos == $rowIx && $readonly == 0} { foreach cell $row { if {!$opts(isHidden_$cellIx)} { if {![string length $cell]} { puts {<td> </td>} ; # dafür sorgen, daß der Rahmen bei leeren Felder erscheint } else { puts "<td nowrap><strike>[formatCell $cellIx $cell]</strike></td>" } } incr cellIx } puts "<td nowrap>[makeLink cancel] <input type=\"submit\" value=\"del!\" name=\"cmd\" /></td>" } else { foreach cell $row { if {!$opts(isHidden_$cellIx)} { if {![string length $cell]} { puts {<td> </td>} ; # dafür sorgen, daß der Rahmen bei leeren Felder erscheint } else { set buffer [formatCell $cellIx $cell] if {$::truncated == 1} { # leider gelingt hier aus unbekannten Gründen noch nicht die indirekte Einbindung über # eine Funktion! puts "<td nowrap onmouseover=\"this.T_BGCOLOR='#FFA500'; \ this.T_BORDERWIDTH=1; this.T_DELAY=250; this.T_OFFSETY=0; this.T_OPACITY=85; this.T_SHADOWCOLOR='#000000'; return escape('[quotett $cell]');\">" } else { puts {<td nowrap>} } puts "$buffer</td>" } } incr cellIx } if {$readonly == 0} { puts "<td nowrap>[makeLink edit cmd edit pos $rowIx] [makeLink del cmd reqdel pos $rowIx]</td>" } } puts "</tr>" } incr rowIx } makeHidden sort $sort file $file pos $pos order $order back $back readonly $readonly mtime $mtime puts {</tbody></table>} puts "<p>Filter: <input type=\"text\" size=\"40\" name=\"filter\" id=\"filter\" value=\"[quote $filter]\" style=\"background-color:white;\"/>" puts "<input type=\"submit\" style=\"$bStyle\" name=\"cmd\" value=\"Setzen\" />" puts {</form>} puts "<p>Letzte Dateiänderung: <b>[clock format $mtime -format {%d.%m.%Y %H:%M:%S}]</b>," puts " <b>[llength $rows]</b> Zeile(n)" # dies später nur einblenden, wenn nicht bereits im Journal!! puts "<a href=\"[ncgi::urlStub]?file=[file rootname $::file].log\">History/Journal</a>" puts {<p><hr><div align="right">} puts [makeLink Refresh] if {[string length $back]} { puts " <a href=\"$back\">Zurück</a>" } puts {</div>} puts $jsCode # müsste eigentlich nur erfolgen, wenn tatsächlich welche erzeugt wurden! puts " <!-- Einbindung der ToolTips ------------------- --> <!-- http://www.walterzorn.de --> <script type=\"text/javascript\" src=\"$::jsRoot/wz_tooltip.js\"> </script> <noscript> </noscript> " puts {</body></html>} # set cache [open $::cacheFile w] # puts $cache [string range $pageBuf [string first \n $pageBuf] end] # close $cache ::tcl::puts $pageBuf exit 0
Here's an example .rc-file; with such file it is possible to control the layout and behaviour of the table beyond the possibilities to include some control-codes directly in the fields of the CSV-file:
defsort 6 default_2 @date default_4 HMK default_5 3 default_6 offen @date default_8 neu select_1 FEHLER Klärung Betrieb NetInstall Kommunizieren Testen Projekt Doku Idee Entwicklung Kunde Orga Meeting Persönlich Überwachen Prüfen/Sichten select_4 DAK HMK HEK select_5 1 2 3 select_8 neu inArbeit wartet ausgesetzt QS Abnahme AV-Transfer Produktion erledigt maxDisplayWidth_0 55 isTermin_6 1 # Soll/IST-Zeiterfassung ausgeblendet, da eh nicht gepflegt isHidden_10 1 isHidden_11 1
What can be specified is a thing that needs to be documented....
Bug's:
ToDo's and Ideas:
History:
JMN 2007-10-25 This code is a nice starting point that has saved me some time - thanks. There are a few problems related to the fact that the code attempts to treat arbitrary field data as a Tcl list. I'd suggest using regexp, or wrapping your 'lindex $cell end' calls in a catch when testing for @date @bold etc. e.g - here is an updated quotett:
proc quotett in { regexp {(.*) @bold$} $in _match in ;#'in' only updated if the regexp matches return [string map \ {ä ä Ä Ä ö ö Ö Ö ü ü Ü Ü ß ß \\ \\\\ ' \\' & "& amp;" < "& lt;" > "& gt;"} \ [html::quoteFormValue $in]] }
Also - csvedit crashed on data where fields had embedded newlines. Try replacing the csv::split while loop with something like this:
set partial "" while {[gets $f rec] > -1} { if {[csv::iscomplete $partial$rec]} { lappend rows [csv::split $partial$rec] set partial "" } else { set partial $partial$rec } }
MHo 2007-10-25: Many thanks for your detailed enhancements. I'll merge them in as soon as possible! Additionally I have to say that the code presented here is not the latest code available. On my harddisk I have a 0.96 available... So I better first refresh everything and then add your code. Thanks again!