[903] | 1 | <?php
|
---|
| 2 |
|
---|
| 3 | /**
|
---|
| 4 | * @version V4.93 10 Oct 2006 (c) 2000-2007 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 | ?> |
---|