[2] | 1 | <?php |
---|
| 2 | |
---|
| 3 | /** |
---|
[34] | 4 | * @version V4.93 10 Oct 2006 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved. |
---|
[2] | 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); |
---|
[34] | 80 | $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); |
---|
[2] | 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++) { |
---|
[34] | 97 | $v = $rs->fields[$j]; |
---|
| 98 | if (!is_object($v)) $v = trim($v); |
---|
| 99 | else $v = 'Object'; |
---|
[2] | 100 | if ($escquote) $v = str_replace($quote,$escquotequote,$v); |
---|
[34] | 101 | $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); |
---|
[2] | 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)); |
---|
[34] | 109 | $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); |
---|
[2] | 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 | ?> |
---|