Comparing revisions for PLG-Csv
- [23706] 2019-09-03 06:48:23 by ThePLG (unregistered user)
- [23723] 2020-03-02 08:01:55 by ThePLG (unregistered user)
Additions:
==Example==
~- The code:
~~%%(csv)
~~;***a***;"***b***";***c***
~~***1***;d;"e";f
~~#test
~~
~~***2***;g;;h
~~***3***;I;J;"K"
~~%%
~- Would give this as result:
~~""<div><table cellpadding="5" cellspacing="1"><tbody>
<tr bgcolor="#eeeeee"><td> </td><td bgcolor="#cccccc">a</td><td bgcolor="#cccccc">b</td><td bgcolor="#cccccc">c</td></tr>
<tr bgcolor="#ffffee"><td bgcolor="#cccccc">1</td><td>d</td><td>e</td><td>f</td></tr>
<tr bgcolor="#eeeeee"><td bgcolor="#cccccc">2</td><td>g</td><td> </td><td>h</td></tr>
<tr bgcolor="#ffffee"><td bgcolor="#cccccc">3</td><td>I</td><td>J</td><td>K</td></tr>
</tbody></table>
</div>""
// by OnegWR, may 2005, license GPL
$csv_printheader=0;
foreach(split("\n", $text) as $csv_n => $csv_line){
if(preg_match("/^#|^\s*$/",$csv_line)) continue;
if( $csv_printheader == 0){ print "<table cellpadding=\"5\" cellspacing=\"1\"><tbody>\n"; $csv_printheader=1; }
print ($csv_n%2) ? "<tr bgcolor=\"#ffffee\">" : "<tr bgcolor=\"#eeeeee\">";
foreach(split(";", $csv_line) as $csv_nn => $csv_cell){
if(preg_match("/^\s*$/",$csv_cell)){
print "<td> </td>";
}elseif(preg_match("/^(\"?)\*\*\*(.*?)\*\*\*(\"?)$/",$csv_cell,$matches)){
print "<td bgcolor=\"#cccccc\">".
$this->htmlspecialchars_ent($matches[2])."</td>";
}elseif(preg_match("/^(\"?)(.*?)(\"?)$/",$csv_cell,$matches)){
print "<td>".$this->htmlspecialchars_ent($matches[2])."</td>";
}else{
print "<td>".$this->htmlspecialchars_ent($csv_cell)."</td>";
print "</tr>\n";
if( $csv_printheader == 1) print "</tbody></table>\n";
?>%%
~- Published on main site (2005-05-09) - OnegWR
~- text in quotes needs to be preserved e.g., whitespace, no splitting on semi-colons
~- Add more cell formatting options: alignment, bold, italic, ...
~- The code:
~~%%(csv)
~~;***a***;"***b***";***c***
~~***1***;d;"e";f
~~#test
~~
~~***2***;g;;h
~~***3***;I;J;"K"
~~%%
~- Would give this as result:
~~""<div><table cellpadding="5" cellspacing="1"><tbody>
<tr bgcolor="#eeeeee"><td> </td><td bgcolor="#cccccc">a</td><td bgcolor="#cccccc">b</td><td bgcolor="#cccccc">c</td></tr>
<tr bgcolor="#ffffee"><td bgcolor="#cccccc">1</td><td>d</td><td>e</td><td>f</td></tr>
<tr bgcolor="#eeeeee"><td bgcolor="#cccccc">2</td><td>g</td><td> </td><td>h</td></tr>
<tr bgcolor="#ffffee"><td bgcolor="#cccccc">3</td><td>I</td><td>J</td><td>K</td></tr>
</tbody></table>
</div>""
// by OnegWR, may 2005, license GPL
$csv_printheader=0;
foreach(split("\n", $text) as $csv_n => $csv_line){
if(preg_match("/^#|^\s*$/",$csv_line)) continue;
if( $csv_printheader == 0){ print "<table cellpadding=\"5\" cellspacing=\"1\"><tbody>\n"; $csv_printheader=1; }
print ($csv_n%2) ? "<tr bgcolor=\"#ffffee\">" : "<tr bgcolor=\"#eeeeee\">";
foreach(split(";", $csv_line) as $csv_nn => $csv_cell){
if(preg_match("/^\s*$/",$csv_cell)){
print "<td> </td>";
}elseif(preg_match("/^(\"?)\*\*\*(.*?)\*\*\*(\"?)$/",$csv_cell,$matches)){
print "<td bgcolor=\"#cccccc\">".
$this->htmlspecialchars_ent($matches[2])."</td>";
}elseif(preg_match("/^(\"?)(.*?)(\"?)$/",$csv_cell,$matches)){
print "<td>".$this->htmlspecialchars_ent($matches[2])."</td>";
}else{
print "<td>".$this->htmlspecialchars_ent($csv_cell)."</td>";
print "</tr>\n";
if( $csv_printheader == 1) print "</tbody></table>\n";
?>%%
~- Published on main site (2005-05-09) - OnegWR
~- text in quotes needs to be preserved e.g., whitespace, no splitting on semi-colons
~- Add more cell formatting options: alignment, bold, italic, ...
Deletions:
|!|{border: 0px solid white;}||
||{border: 0px solid white;}##""%%(csv)""##||
||{border: 0px solid white;}##"";""##||{border: 0px solid white;}##""==/First Name/==;""##||{border: 0px solid white;}##""==\Last Name\==;""##||{border: 0px solid white;}##""==|Address|==;""##||{border: 0px solid white;}##""== Age ==""##||
||{border: 0px solid white;}##""==Norwegian==;""##||{border: 0px solid white;}##""Sigurd;""##||{border: 0px solid white;}##""Nordmo;""##||{border: 0px solid white;}##""[[Viggo]] Hansteens allé 119\; 1524 MOSS;""##||{border: 0px solid white;}##"" 38""##||
||{border: 0px solid white;}##""==Swede==;""##||{border: 0px solid white;}##"" Chanelle;""##||{border: 0px solid white;}##"" Blomqvist;""##||{border: 0px solid white;}##"" Överhogdal 95\; 282 02 HÖRJA;""##||{border: 0px solid white;}##"" 61""##||
||{border: 0px solid white;}##""==German==;""##||{border: 0px solid white;}##"" Leah;""##||{border: 0px solid white;}##"" Ackermann;""##||{border: 0px solid white;}##"" Landhausstraße 73\; 15702 Königs Wusterhausen;""##||{border: 0px solid white;}##"" 25""##||
||(x:5){border: 0px solid white;}##""# Comments are possible. Yes, the following person is a Hobbit!""##||
||{border: 0px solid white;}##""==Hobbit==;""##||{border: 0px solid white;}##""Celendine;""##||{border: 0px solid white;}##"" "Gam gee";""##||{border: 0px solid white;}##"" ;""##||{border: 0px solid white;}##"" 216""##||
||{border: 0px solid white;}##""%%""##||
""<table><tbody>
<tr bgcolor="#eeeeee"><td> </td><th style="background-color:#ccc;padding: 1px 10px 1px 10px; text-align:right; ">First Name</th><th style="background-color:#ccc;padding: 1px 10px 1px 10px; text-align:left; ">Last Name</th><th style="background-color:#ccc;padding: 1px 10px 1px 10px; text-align:center; ">Address</th><th style="background-color:#ccc;padding: 1px 10px 1px 10px; "> Age </th></tr>
<tr bgcolor="#ffffee"><th style="background-color:#ccc;padding: 1px 10px 1px 10px; ">Norwegian</th><td style="padding: 1px 10px 1px 10px; text-align:right; "> Sigurd</td><td style="padding: 1px 10px 1px 10px; text-align:left; "> Nordmo</td><td style="padding: 1px 10px 1px 10px; text-align:center; "> Viggo Hansteens allé 119; 1524 MOSS</td><td style="padding: 1px 10px 1px 10px; "> 38</td></tr>
<tr bgcolor="#eeeeee"><th style="background-color:#ccc;padding: 1px 10px 1px 10px; ">Swede</th><td style="padding: 1px 10px 1px 10px; text-align:right; "> Chanelle</td><td style="padding: 1px 10px 1px 10px; text-align:left; "> Blomqvist</td><td style="padding: 1px 10px 1px 10px; text-align:center; "> Överhogdal 95; 282 02 HÖRJA</td><td style="padding: 1px 10px 1px 10px; "> 61</td></tr>
<tr bgcolor="#ffffee"><th style="background-color:#ccc;padding: 1px 10px 1px 10px; ">German</th><td style="padding: 1px 10px 1px 10px; text-align:right; "> Leah</td><td style="padding: 1px 10px 1px 10px; text-align:left; "> Ackermann</td><td style="padding: 1px 10px 1px 10px; text-align:center; "> "Landhausstraße 73; 15702 Königs Wusterhausen"</td><td style="padding: 1px 10px 1px 10px; "> 25</td></tr>
<tr bgcolor="#eeeeee"><th style="background-color:#ccc;padding: 1px 10px 1px 10px; ">Hobbit</th><td style="padding: 1px 10px 1px 10px; text-align:right; "> Celendine</td><td style="padding: 1px 10px 1px 10px; text-align:left; "> "Gam gee"</td><td> </td><td style="padding: 1px 10px 1px 10px; "> 216</td></tr>
</tbody></table>""
// by OnegWR, May 2005, license GPL http://wikkawiki.org/OnegWRCsv
// by ThePLG, Feb 2020, license GPL http://wikkawiki.org/PLG-Csv
// Copy the code below into a file named formatters/csv.php
// And give it the same file permissions as the other files in that directory.
$comments= 0;
$style_header="background-color:#ccc; ";
$style_even="background-color:#ffe; ";
$style_odd="background-color:#eee; ";
$style_error="background-color:#d30; ";
print "<table><tbody>\n";
foreach ($array_csv_lines= preg_split("/[\n]/", $text) as $csv_n => $csv_line)
{
if (preg_match("/^#|^\s*$/",$csv_line))
{
if (preg_match("/^#!\s*th\s*{\s*background-color:\s*([^\s;]*)\s*;\s*}$/", $csv_line, $color)) {
$style_header= "background-color:". $color[1] ."; ";
else
{
if (preg_match("/^#!\s*td\s*{.*background-color-even\s*:\s*([^\s;]*)\s*;.*}$/", $csv_line, $color))
$style_even= "background-color:". $color[1] ."; ";
if (preg_match("/^#!\s*td\s*{.*background-color-odd\s*:\s*([^\s;]*)\s*;.*}$/", $csv_line, $color))
$style_odd= "background-color:". $color[1] ."; ";
if (preg_match("/^#!\s*td\s*{.*background-color-error\s*:\s*([^\s;]*)\s*;.*}$/", $csv_line, $color))
$style_error= "background-color:". $color[1] ."; ";
$comments++;
continue;
}
print (($csv_n+$comments)%2) ? "<tr style=\"". $style_even ."\">" : "<tr style=\"". $style_odd ."\">";
// https://www.rexegg.com/regex-lookarounds.html
// asserts what precedes the ; is not a backslash \\\\, doesn't accoutn for \\; (escaped backslash semicolon)
// OMFG! https://stackoverflow.com/questions/40479546/how-to-split-on-white-spaces-not-between-quotes
//
foreach (preg_split("/(?<!\\\\);(?=(?:[^\"]*([\"])[^\"]*\\1)*[^\"]*$)/", $csv_line) as $csv_nn => $csv_cell)
{
// https://www.phpliveregex.com
// https://www.regular-expressions.info/quickstart.html
if ($csv_n == $comments) {
$style[$csv_nn]= "padding: 1px 10px 1px 10px; ";
if (preg_match("/^\"?\s*==(.*)==\s*\"?$/", $csv_cell, $header))
{
$title[$csv_nn]= $header[1];
if (preg_match("/([\/\\\\|])([^\/\\\\|]*)\\1$/", $title[$csv_nn], $align))
{
switch ($align[1]) {
case "/" : $style[$csv_nn].= "text-align:right; "; break;
case "\\" : $style[$csv_nn].= "text-align:left; "; break;
case "|" : $style[$csv_nn].= "text-align:center; "; break;
$title[$csv_nn]= $align[2];
}
print "<th style=\"". $style_header . $style[$csv_nn] ."\">". $this->htmlspecialchars_ent($title[$csv_nn]) ."</th>";
continue;
// if a cell is blank, print
//
if (preg_match("/^\s*$/",$csv_cell)) {
print "<td style=\"". $style[$csv_nn] ."\"> </td>";
// extract the cell out of it's quotes
//
elseif (preg_match("/^\s*(\"?)(.*)\\1\s*$/", $csv_cell, $matches))
{
if ($matches[1] == "\"")
{
$style[$csv_nn]= "white-space:pre; ". $style[$csv_nn];
$cell= $matches[2];
}
else
$cell= preg_replace('/\\\\;/', ';', $matches[2]);
// test for CamelLink
//
if (preg_match_all("/\[\[([[:alnum:]-]+)\]\]/", $cell, $all_links))
{
$linked= $cell;
foreach ($all_links[1] as $n => $camel_link)
$linked = preg_replace("/\[\[". $camel_link ."\]\]/", $this->Link($camel_link), $linked);
print "<td style=\"". $style[$csv_nn] ."\">". $linked ."</td>"; // no htmlspecialchars_ent()
}
else
print "<td style=\"". $style[$csv_nn] ."\">". $this->htmlspecialchars_ent($cell) ."</td>";
else
print "<td style=\"". $style_error . $style[$csv_nn] ."\">ERROR!</td>"; // $this->htmlspecialchars_ent($csv_cell)
}
print "</tr>\n";
print "</tbody></table>\n";
?>
%%
~- 2005-05-09 Published on main site - OnegWR
~- Sept-2019 Code clean-up, remove deprecated code, more features, fix bugs - ThePLG
~- Mar-2020 Upgrade code for PHP7, add some CSS formatting options.
~- Add more cell formatting options: text/background color, alignment, bold, italic, ...
