4 * Le plugin qui lave plus SPIP que SPIP
5 * (c) 2008 Mathieu Marcillaud, Cedric Morin, Tetue
8 * Fonctions d'export d'une requete sql ou d'un tableau
10 * Merge du plugin csv_import et spip-surcharges
14 if (!defined('_ECRIRE_INC_VERSION')) {
18 include_spip('inc/charsets');
19 include_spip('inc/filtres');
20 include_spip('inc/texte');
23 * Exporter un champ pour un export CSV : pas de retour a la ligne,
24 * et echapper les guillements par des doubles guillemets
25 * @param string $champ
28 function exporter_csv_champ($champ) {
29 #$champ = str_replace("\r", "\n", $champ);
30 #$champ = preg_replace(",[\n]+,ms", "\n", $champ);
31 #$champ = str_replace("\n", ", ", $champ);
32 $champ = preg_replace(',[\s]+,ms', ' ', $champ);
33 $champ = str_replace('"', '""', $champ);
34 return '"'.$champ.'"';
38 * Exporter une ligne complete au format CSV, avec delimiteur fourni
40 * @param string $delim
43 function exporter_csv_ligne($ligne, $delim = ',', $importer_charset = null) {
44 $output = join($delim, array_map('exporter_csv_champ', $ligne))."\r\n";
45 if ($importer_charset) {
46 $output = str_replace('’', '\'', $output);
47 $output = unicode2charset(html2unicode(charset2unicode($output)), $importer_charset);
53 function inc_exporter_csv_dist($titre, $resource, $delim = ',', $entetes = null, $envoyer = true) {
55 $filename = preg_replace(',[^-_\w]+,', '_', translitteration(textebrut(typo($titre))));
57 if ($delim == 'TAB') {
60 if (!in_array($delim, array(',', ';', "\t"))) {
64 $charset = $GLOBALS['meta']['charset'];
65 $importer_charset = null;
70 # Excel n'accepte pas l'utf-8 ni les entites html... on transcode tout ce qu'on peut
71 $importer_charset = $charset = 'iso-8859-1';
73 $filename = "$filename.$extension";
76 if ($entetes and is_array($entetes) and count($entetes)) {
77 $output = exporter_csv_ligne($entetes, $delim, $importer_charset);
80 // on passe par un fichier temporaire qui permet de ne pas saturer la memoire
81 // avec les gros exports
82 $fichier = sous_repertoire(_DIR_CACHE
, 'export') . $filename;
83 $fp = fopen($fichier, 'w');
84 $length = fwrite($fp, $output);
86 while ($row = is_array($resource) ?
array_shift($resource) : sql_fetch($resource)) {
87 $output = exporter_csv_ligne($row, $delim, $importer_charset);
88 $length +
= fwrite($fp, $output);
93 Header("Content-Type: text/comma-separated-values; charset=$charset");
94 Header("Content-Disposition: attachment; filename=$filename");
96 //Header("Content-Type: text/plain; charset=$charset");
97 Header("Content-Length: $length");