gacl/adodb/toexport.inc.php

   1 <?php
   2
   3 /**
   4  * @version V4.92a 29 Aug 2006 (c) 2000-2006 John Lim (jlim#natsoft.com.my). All rights reserved.
   5  * Released under both BSD license and Lesser GPL library license.
   6  * Whenever there is any discrepancy between the two licenses,
   7  * the BSD license will take precedence.
   8  *
   9  * Code to export recordsets in several formats:
  10  *
  11  * AS VARIABLE
  12  * $s = rs2csv($rs); # comma-separated values
  13  * $s = rs2tab($rs); # tab delimited
  14  *
  15  * TO A FILE
  16  * $f = fopen($path,'w');
  17  * rs2csvfile($rs,$f);
  18  * fclose($f);
  19  *
  20  * TO STDOUT
  21  * rs2csvout($rs);
  22  */
  23
  24 // returns a recordset as a csv string
  25 function rs2csv(&$rs,$addtitles=true)
  26 {
  27         return _adodb_export($rs,',',',',false,$addtitles);
  28 }
  29
  30 // writes recordset to csv file
  31 function rs2csvfile(&$rs,$fp,$addtitles=true)
  32 {
  33         _adodb_export($rs,',',',',$fp,$addtitles);
  34 }
  35
  36 // write recordset as csv string to stdout
  37 function rs2csvout(&$rs,$addtitles=true)
  38 {
  39         $fp = fopen('php://stdout','wb');
  40         _adodb_export($rs,',',',',true,$addtitles);
  41         fclose($fp);
  42 }
  43
  44 function rs2tab(&$rs,$addtitles=true)
  45 {
  46         return _adodb_export($rs,"\t",',',false,$addtitles);
  47 }
  48
  49 // to file pointer
  50 function rs2tabfile(&$rs,$fp,$addtitles=true)
  51 {
  52         _adodb_export($rs,"\t",',',$fp,$addtitles);
  53 }
  54
  55 // to stdout
  56 function rs2tabout(&$rs,$addtitles=true)
  57 {
  58         $fp = fopen('php://stdout','wb');
  59         _adodb_export($rs,"\t",' ',true,$addtitles);
  60         if ($fp) fclose($fp);
  61 }
  62
  63 function _adodb_export(&$rs,$sep,$sepreplace,$fp=false,$addtitles=true,$quote = '"',$escquote = '"',$replaceNewLine = ' ')
  64 {
  65         if (!$rs) return '';
  66         //----------
  67         // CONSTANTS
  68         $NEWLINE = "\r\n";
  69         $BUFLINES = 100;
  70         $escquotequote = $escquote.$quote;
  71         $s = '';
  72
  73         if ($addtitles) {
  74                 $fieldTypes = $rs->FieldTypesArray();
  75                 reset($fieldTypes);
  76                 while(list(,$o) = each($fieldTypes)) {
  77
  78                         $v = $o->name;
  79                         if ($escquote) $v = str_replace($quote,$escquotequote,$v);
  80                         $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
  81                         $elements[] = $v;
  82
  83                 }
  84                 $s .= implode($sep, $elements).$NEWLINE;
  85         }
  86         $hasNumIndex = isset($rs->fields[0]);
  87
  88         $line = 0;
  89         $max = $rs->FieldCount();
  90
  91         while (!$rs->EOF) {
  92                 $elements = array();
  93                 $i = 0;
  94
  95                 if ($hasNumIndex) {
  96                         for ($j=0; $j < $max; $j++) {
  97                                 $v = $rs->fields[$j];
  98                                 if (!is_object($v)) $v = trim($v);
  99                                 else $v = 'Object';
 100                                 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
 101                                 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
 102
 103                                 if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
 104                                 else $elements[] = $v;
 105                         }
 106                 } else { // ASSOCIATIVE ARRAY
 107                         foreach($rs->fields as $v) {
 108                                 if ($escquote) $v = str_replace($quote,$escquotequote,trim($v));
 109                                 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
 110
 111                                 if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
 112                                 else $elements[] = $v;
 113                         }
 114                 }
 115                 $s .= implode($sep, $elements).$NEWLINE;
 116                 $rs->MoveNext();
 117                 $line += 1;
 118                 if ($fp && ($line % $BUFLINES) == 0) {
 119                         if ($fp === true) echo $s;
 120                         else fwrite($fp,$s);
 121                         $s = '';
 122                 }
 123         }
 124
 125         if ($fp) {
 126                 if ($fp === true) echo $s;
 127                 else fwrite($fp,$s);
 128                 $s = '';
 129         }
 130
 131         return $s;
 132 }
 133 ?>