Usuario:Sanbec/html2wiki tables.php

De Wikipedia, la enciclopedia libre

<?php
#
#  HTML to Wiki Converter - tables
#  converts the HTML table tags into their wiki equivalents,
#  which were developed by Magnus Manske and are used in MediaWiki
#
#  Copyright (C) 2004 Borislav Manolov
#
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License
#  as published by the Free Software Foundation; either version 2
#  of the License, or (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License along
#  with this program; if not, write to the Free Software Foundation, Inc.,
#  59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#  http://www.gnu.org/copyleft/gpl.html
#
#  Author: Borislav Manolov <b.manolov at web.de>
#          http://purl.oclc.org/NET/manolov/
#############################################################################


# $str - the HTML markup
# $row_delim - number of dashes used for a row
# $oneline - use one-line markup for cells - ||
function html2wiki_tables($str, $row_delim = 1, $oneline = false) {

        $str = str_replace("\r", '', $str);

        $my_nl = '=N=';
        $html_tags = array(
                # since PHP 5 str_ireplace() can be used for the end tags
                "/\n/",
                '/>\s+</',         # spaces between tags
                '/<\/table>/i',    # table end
                '/<\/caption>/i',  # caption end
                '/<\/tr>/i',       # rows end
                '/<\/th>/i',       # headers end
                '/<\/td>/i',       # cells end
                # e - replacement string gets evaluated before the replacement
                '/<table([^>]*)>/ie', # table start
                '/<caption>/i',    # caption start
                '/<tr(.*)>/Uie', # row start
                '/<th(.*)>/Uie', # header start
                '/<td(.*)>/Uie', # cell start
                "/\n$my_nl/",
                "/$my_nl/",
                "/\n */",          # spaces at beginning of a line
        );

        $wiki_tags = array(
                " \n",
                '><',        # remove spaces between tags
                "$my_nl|}",      # table end
                '', '', '', '',  # caption, rows, headers & cells end
                "'$my_nl{| '.trim(strip_newlines('$1'))",     # table start
                "$my_nl|+",      # caption
                "'$my_nl|'.str_repeat('-', $row_delim).' '.trim(strip_newlines('$1'))", # rows
                "'$my_nl! '.trim(strip_newlines('$1')).' | '", # headers
                "'$my_nl| '.trim(strip_newlines('$1')).' | '", # cells
                "\n",
                "\n",
                "\n",
        );

        # replace html tags with wiki equivalents
        $str = preg_replace($html_tags, $wiki_tags, $str);

        # remove table row after table start
        $str = preg_replace("/\{\|(.*)\n\|-+ *\n/", "{|$1\n", $str);

        # clear phase
        $s = array('!  |', '|  |', '\\"');
        $r = array('!'   , '|'   ,   '"');
        $str = str_replace($s, $r, $str);

        # use one-line markup for cells
        if ($oneline) {
                $prevcell = false; # the previous row is a table cell
                $prevhead = false; # the previous row is a table header
                $pos = -1;
                while ( ($pos = strpos($str, "\n", $pos+1)) !== false ) { #echo "\n$str\n";
                switch ($str{$pos+1}) {
                        case '|': # cell start
                                if ($prevcell && $str{$pos+2} == ' ') {
                                        $str = substr_replace($str, ' |', $pos, 1); # s/\n/ |/
                                } else if ($str{$pos+2} == ' ') {
                                        $prevcell = true;
                                } else {
                                        $prevcell = false;
                                }
                                $prevhead = false;
                                break;
                        case '!': # header cell start
                                if ($prevhead) {
                                        $str = substr_replace($str, ' !', $pos, 1); # s/\n/ !/
                                } else {
                                        $prevhead = true;
                                }
                                $prevcell = false;
                                break;
                        case '{': # possible table start
                                if ($str{$pos+2} == '|') { # table start
                                        $prevcell = $prevhead = false;
                                } else {
                                        $str{$pos} = ' ';
                                }
                                break;
                        default: $str{$pos} = ' ';
                }
                }
        }
        return $str;
}

function strip_newlines($str) {
        return str_replace("\n", '', $str);
}
?>