| 36 |
kaklik |
1 |
<?php
|
|
|
2 |
|
|
|
3 |
/**
|
|
|
4 |
* @version V4.80 8 Mar 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 |
?>
|