forena-8.x-1.x-dev/src/FrxPlugin/Document/Excel.php

<?php

namespace Drupal\forena\FrxPlugin\Document;

/**
 * Provides MS Excel Exports
 *
 * @FrxDocument(
 *   id= "xls",
 *   name="Excel Export",
 *   ext="xls"
 * )
 */
class Excel extends DocumentBase {
  public function __construct() {
    $this->content_type = 'application/msexcel';
  }

  public function header() {
    parent::header();

    $this->write($output);
  }

  public function flush() {
    $body = $this->write_buffer;
    $output = '<?xml version="1.0"?>' . "\n";
    $output .= '<?mso-application progid="Excel.Sheet"?>' . "\n";
    $output .= '<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"' . "\n";
    $output .= '  xmlns:o="urn:schemas-microsoft-com:office:office"' . "\n";
    $output .= '  xmlns:x="urn:schemas-microsoft-com:office:excel"' . "\n";
    $output .= '  xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"' . "\n";
    $output .= '  xmlns:html="http://www.w3.org/TR/REC-html40">' . "\n";
    $output .= '<Styles>' . "\n";
    $output .= '  <Style ss:ID="Default" ss:Name="Normal">' . "\n";
    $output .= '    <Alignment ss:Vertical="Bottom"/>' . "\n";
    $output .= '    <Borders/>' . "\n";
    $output .= '    <Font/>' . "\n";
    $output .= '    <Interior/>' . "\n";
    $output .= '    <NumberFormat/>' . "\n";
    $output .= '    <Protection/>' . "\n";
    $output .= '  </Style>' . "\n";
    $output .= '</Styles>' . "\n";
    $doc = new \DOMDocument();
    $doc->strictErrorChecking = FALSE;
    libxml_use_internal_errors(true);
    @$doc->loadHTML($body);
    libxml_clear_errors();
    $xml = simplexml_import_dom($doc);

    $tables = $xml ? $xml->xpath('//table') : array();
    $count = 1;
    if ($tables) foreach ($tables as $table) {
      $sheet_name = @(string)$table['data-caption'];
      if(!$sheet_name && @(string)$table->caption){
        $sheet_name = (string) $table->caption;
      }
      if (!$sheet_name) {
        $sheet_name = 'sheet' . ' ' . $count;
      }
      $output .= '<Worksheet ss:Name="' . $sheet_name . '">' . "\n";
      $count ++;
      $output .= '  <Table>' . "\n";

      $rows = $table->xpath('descendant::tr');
      if ($rows) foreach ($rows as $row) {
        $output .= '    <Row>' . "\n";
        foreach ($row as $column) {
          $class = @(string)$column['class'];
          $classes = explode(' ', $class);
          $text_class = array_search('XLSText', $classes)!==FALSE;
          $value = $column->asXML();
          $value = strip_tags($value);
          $tval = trim($value);
          // Find if it contains invalid number characters
          $non_numeric_chars = trim($value, ' +-.,0123456789');
          // Determine if it contains +- in the interior
          // Zero is ok here bu
          $inner_symbols = FALSE;
          if (strpos($tval, '+') || strpos($tval, '-') || strpos($tval, ' ')) $inner_symbols =  TRUE;
          if (substr_count($tval, '.') > 1) $inner_symbols = TRUE;
          if (empty($non_numeric_chars) && trim($value)!=='' && !$inner_symbols && !$text_class) {
            $output .= '      <Cell><Data ss:Type="Number">' . $tval . '</Data></Cell>' . "\n";
          }
          else {
            $output .= '      <Cell><Data ss:Type="String">' . $value . '</Data></Cell>' . "\n";
          }
        }
        $output .= '    </Row>' . "\n";
      }
      $output .= '  </Table>' . "\n";
      $output .= '  <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">' . "\n";
      $output .= '    <Selected/>' . "\n";
      $output .= '    <ProtectObjects>False</ProtectObjects>' . "\n";
      $output .= '    <ProtectScenarios>False</ProtectScenarios>' . "\n";
      $output .= '  </WorksheetOptions>' . "\n";
      $output .= '</Worksheet>' . "\n";
      $output .= '</Workbook>';
      $output = $this->convertCharset($output);
      return $output;
    }

    return $output;
  }


}