www/plugins/spip-bonux-3/inc/exporter_csv.php

   1 <?php
   2 /**
   3  * Plugin Spip-Bonux
   4  * Le plugin qui lave plus SPIP que SPIP
   5  * (c) 2008 Mathieu Marcillaud, Cedric Morin, Tetue
   6  * Licence GPL
   7  *
   8  * Fonctions d'export d'une requete sql ou d'un tableau
   9  * au format CSV
  10  * Merge du plugin csv_import et spip-surcharges
  11  *
  12  */
  13
  14 if (!defined('_ECRIRE_INC_VERSION')) return;
  15
  16 include_spip('inc/charsets');
  17 include_spip('inc/filtres');
  18 include_spip('inc/texte');
  19
  20 /**
  21  * Exporter un champ pour un export CSV : pas de retour a la ligne,
  22  * et echapper les guillements par des doubles guillemets
  23  * @param string $champ
  24  * @return string
  25  */
  26 function exporter_csv_champ($champ) {
  27         #$champ = str_replace("\r", "\n", $champ);
  28         #$champ = preg_replace(",[\n]+,ms", "\n", $champ);
  29         #$champ = str_replace("\n", ", ", $champ);
  30         $champ = preg_replace(',[\s]+,ms', ' ', $champ);
  31         $champ = str_replace('"', '""', $champ);
  32         return '"'.$champ.'"';
  33 }
  34
  35 /**
  36  * Exporter une ligne complete au format CSV, avec delimiteur fourni
  37  * @param array $ligne
  38  * @param string $delim
  39  * @return string
  40  */
  41 function exporter_csv_ligne($ligne, $delim = ',', $importer_charset = null) {
  42         $output = join($delim, array_map('exporter_csv_champ', $ligne))."\r\n";
  43         if ($importer_charset){
  44                 $output = str_replace('’', '\'', $output);
  45     $output = unicode2charset(html2unicode(charset2unicode($output)), $importer_charset);
  46         }
  47         return $output;
  48 }
  49
  50
  51 function inc_exporter_csv_dist($titre, $resource, $delim=',', $entetes = null,$envoyer = true){
  52
  53         $filename = preg_replace(',[^-_\w]+,', '_', translitteration(textebrut(typo($titre))));
  54
  55         if ($delim == 'TAB') $delim = "\t";
  56         if (!in_array($delim,array(',',';',"\t")))
  57                 $delim = ",";
  58
  59         $charset = $GLOBALS['meta']['charset'];
  60         $importer_charset = null;
  61         if ($delim == ',')
  62                 $extension = 'csv';
  63         else {
  64                 $extension = 'xls';
  65                 # Excel n'accepte pas l'utf-8 ni les entites html... on transcode tout ce qu'on peut
  66                 $importer_charset = $charset = 'iso-8859-1';
  67         }
  68         $filename = "$filename.$extension";
  69
  70         if ($entetes AND is_array($entetes) AND count($entetes))
  71                 $output = exporter_csv_ligne($entetes,$delim,$importer_charset);
  72
  73         // on passe par un fichier temporaire qui permet de ne pas saturer la memoire
  74         // avec les gros exports
  75         $fichier = sous_repertoire(_DIR_CACHE,"export") . $filename;
  76         $fp = fopen($fichier, 'w');
  77         $length = fwrite($fp, $output);
  78
  79         while ($row=is_array($resource)?array_shift($resource):sql_fetch($resource)){
  80                 $output = exporter_csv_ligne($row,$delim,$importer_charset);
  81                 $length += fwrite($fp, $output);
  82         }
  83         fclose($fp);
  84
  85         if ($envoyer) {
  86                 Header("Content-Type: text/comma-separated-values; charset=$charset");
  87                 Header("Content-Disposition: attachment; filename=$filename");
  88                 //non supporte
  89                 //Header("Content-Type: text/plain; charset=$charset");
  90                 Header("Content-Length: $length");
  91                 ob_clean();
  92     flush();
  93     readfile($fichier);
  94         }
  95
  96         return $fichier;
  97 }
  98
  99 ?>