| 1 |
kdziedzi |
1.1 |
<?php
|
| 2 |
|
|
|
| 3 |
|
|
/**
|
| 4 |
|
|
* @version V4.93 10 Oct 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 |
|
|
?> |
