CSV 2 Table formatter

See Also
NOT Included in any Wikka version yet
Last edited by ThePLG
Mon, 02 Mar 2020 09:59 UTC [diff]


This formatter converts inline csv data into a table.

Features



%%(csv)
;==/First Name/==;==\Last Name\==;==|Address|==;== Age ==
==Norwegian==;Sigurd;Nordmo;[[Viggo]] Hansteens allé 119\; 1524 MOSS; 38
==Swede==; Chanelle; Blomqvist; Överhogdal 95\; 282 02 HÖRJA; 61
==German==; Leah; Ackermann; Landhausstraße 73\; 15702 Königs Wusterhausen; 25
# Comments are possible. Yes, the following person is a Hobbit!
==Hobbit==;Celendine; "Gam gee"; ; 216
%%

 First NameLast NameAddress Age
Norwegian Sigurd Nordmo Viggo Hansteens allé 119; 1524 MOSS 38
Swede Chanelle Blomqvist Överhogdal 95; 282 02 HÖRJA 61
German Leah Ackermann "Landhausstraße 73; 15702 Königs Wusterhausen" 25
Hobbit Celendine "Gam gee"  216


Installation

Code
<?php
// convert inline csv data into a table.
// by OnegWR, May 2005, license GPL http://wikkawiki.org/OnegWRCsv
// by ThePLG, Mar 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["th"][""]= "background-color:#ccc; ";
$style["tr"]["even"]= "background-color:#ffe; ";
$style["tr"]["odd"]= "background-color:#eee; ";
$style["td"]["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*(t[hrd])\s*{/', $csv_line, $a_t) )
            if ( preg_match_all('/background-color-?([\w]*)\s*:\s*(#[0-9a-fA-F]{3,6})\s*;/', $csv_line, $a_bkcolors) )
                foreach ($a_bkcolors[0] as $n => $bkcolors)
                {
                    $style[ $a_t[1] ][ $a_bkcolors[1][$n] ]= "background-color:". $a_bkcolors[2][$n] ."; ";
                    // print "style[". $a_t[1] ."][". $a_bkcolors[1][$n] ."]=". $style[ $a_t[1] ][ $a_bkcolors[1][$n] ] ."<br/>";
                }

        $comments++;
        continue;
    }

    print (($csv_n+$comments)%2) ? "<tr style=\"". $style["tr"]["even"] ."\">" : "<tr style=\"". $style["tr"]["odd"] ."\">";

    // https://www.rexegg.com/regex-lookarounds.html
    // asserts what precedes the ; is not a backslash \\\\, doesn't account 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["th"][""] . $style[$csv_nn] ."\">". $this->htmlspecialchars_ent($title[$csv_nn]) ."</th>";
            continue;
        }

        // if a cell is blank, print &nbsp;
        //
        if (preg_match("/^\s*$/",$csv_cell))
        {
            print "<td style=\"". $style[$csv_nn] ."\">&nbsp;</td>";
            continue;
        }
        // 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>";

            continue;
        }

        print "<td style=\"". $style["td"]["error"] . $style[$csv_nn] ."\">ERROR!</td>"; // $this->htmlspecialchars_ent($csv_cell)

    }
    print "</tr>\n";

}
print "</tbody></table>\n";

?>


History

TODO


CategoryUserContributions
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki