4 * @version v5.20.16 12-Jan-2020
5 * @copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved.
6 * @copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community
7 * Released under both BSD license and Lesser GPL library license.
8 * Whenever there is any discrepancy between the two licenses,
9 * the BSD license will take precedence.
11 * Code to export recordsets in several formats:
14 * $s = rs2csv($rs); # comma-separated values
15 * $s = rs2tab($rs); # tab delimited
18 * $f = fopen($path,'w');
26 // returns a recordset as a csv string
27 function rs2csv(&$rs,$addtitles=true)
29 return _adodb_export($rs,',',',',false,$addtitles);
32 // writes recordset to csv file
33 function rs2csvfile(&$rs,$fp,$addtitles=true)
35 _adodb_export($rs,',',',',$fp,$addtitles);
38 // write recordset as csv string to stdout
39 function rs2csvout(&$rs,$addtitles=true)
41 $fp = fopen('php://stdout','wb');
42 _adodb_export($rs,',',',',true,$addtitles);
46 function rs2tab(&$rs,$addtitles=true)
48 return _adodb_export($rs,"\t",',',false,$addtitles);
52 function rs2tabfile(&$rs,$fp,$addtitles=true)
54 _adodb_export($rs,"\t",',',$fp,$addtitles);
58 function rs2tabout(&$rs,$addtitles=true)
60 $fp = fopen('php://stdout','wb');
61 _adodb_export($rs,"\t",' ',true,$addtitles);
65 function _adodb_export(&$rs,$sep,$sepreplace,$fp=false,$addtitles=true,$quote = '"',$escquote = '"',$replaceNewLine = ' ')
72 $escquotequote = $escquote.$quote;
76 $fieldTypes = $rs->FieldTypesArray();
80 foreach ($fieldTypes as $o) {
82 $v = ($o) ?
$o->name
: 'Field'.($i++
);
83 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
84 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
88 $s .= implode($sep, $elements).$NEWLINE;
90 $hasNumIndex = isset($rs->fields
[0]);
93 $max = $rs->FieldCount();
100 for ($j=0; $j < $max; $j++
) {
101 $v = $rs->fields
[$j];
102 if (!is_object($v)) $v = trim($v);
104 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
105 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
107 if (strpos($v,$sep) !== false ||
strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
108 else $elements[] = $v;
110 } else { // ASSOCIATIVE ARRAY
111 foreach($rs->fields
as $v) {
112 if ($escquote) $v = str_replace($quote,$escquotequote,trim($v));
113 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
115 if (strpos($v,$sep) !== false ||
strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
116 else $elements[] = $v;
119 $s .= implode($sep, $elements).$NEWLINE;
122 if ($fp && ($line %
$BUFLINES) == 0) {
123 if ($fp === true) echo $s;
130 if ($fp === true) echo $s;