Comparing revisions for PLG-Csv
- [23717] 2019-09-17 20:14:24 by ThePLG (unregistered user)
- [23723] 2020-03-02 08:01:55 by ThePLG (unregistered user)
Additions:
~- 2019-09-03 Code clean-up, remove deprecated code, more features, fix bugs - ThePLG
~- text in quotes needs to be preserved e.g., whitespace, no splitting on semi-colons
~- text in quotes needs to be preserved e.g., whitespace, no splitting on semi-colons
Deletions:
<?php
// convert inline csv data into a 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";
?>
~- Sept-2019 Code clean-up, remove deprecated code, more features, fix bugs - ThePLG
~- Mar-2020 Upgrade code for PHP7, add some CSS formatting options.
