Search moodle.org's
Developer Documentation

See Release Notes

  • Bug fixes for general core bugs in 3.10.x will end 8 November 2021 (12 months).
  • Bug fixes for security issues in 3.10.x will end 9 May 2022 (18 months).
  • PHP version: minimum PHP 7.2.0 Note: minimum PHP version has increased since Moodle 3.8. PHP 7.3.x and 7.4.x are supported too.
<?php
<
/**
< * @version v5.20.16 12-Jan-2020 < * @copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved. < * @copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community < * Released under both BSD license and Lesser GPL library license. < * Whenever there is any discrepancy between the two licenses, < * the BSD license will take precedence. < * < * Code to export recordsets in several formats:
> * Export recordsets in several formats.
* * AS VARIABLE * $s = rs2csv($rs); # comma-separated values * $s = rs2tab($rs); # tab delimited * * TO A FILE * $f = fopen($path,'w'); * rs2csvfile($rs,$f); * fclose($f); * * TO STDOUT * rs2csvout($rs);
> * */ > * This file is part of ADOdb, a Database Abstraction Layer library for PHP. > * // returns a recordset as a csv string > * @package ADOdb function rs2csv(&$rs,$addtitles=true) > * @link https://adodb.org Project's web site and documentation { > * @link https://github.com/ADOdb/ADOdb Source code and issue tracker return _adodb_export($rs,',',',',false,$addtitles); > * } > * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause > * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option, // writes recordset to csv file > * any later version. This means you can use it in proprietary products. function rs2csvfile(&$rs,$fp,$addtitles=true) > * See the LICENSE.md file distributed with this source code for details. { > * @license BSD-3-Clause _adodb_export($rs,',',',',$fp,$addtitles); > * @license LGPL-2.1-or-later } > * > * @copyright 2000-2013 John Lim // write recordset as csv string to stdout > * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
function rs2csvout(&$rs,$addtitles=true) { $fp = fopen('php://stdout','wb'); _adodb_export($rs,',',',',true,$addtitles); fclose($fp); } function rs2tab(&$rs,$addtitles=true) { return _adodb_export($rs,"\t",',',false,$addtitles); } // to file pointer function rs2tabfile(&$rs,$fp,$addtitles=true) { _adodb_export($rs,"\t",',',$fp,$addtitles); } // to stdout function rs2tabout(&$rs,$addtitles=true) { $fp = fopen('php://stdout','wb'); _adodb_export($rs,"\t",' ',true,$addtitles); if ($fp) fclose($fp); } function _adodb_export(&$rs,$sep,$sepreplace,$fp=false,$addtitles=true,$quote = '"',$escquote = '"',$replaceNewLine = ' ') { if (!$rs) return ''; //---------- // CONSTANTS $NEWLINE = "\r\n"; $BUFLINES = 100; $escquotequote = $escquote.$quote; $s = ''; if ($addtitles) { $fieldTypes = $rs->FieldTypesArray(); reset($fieldTypes); $i = 0; $elements = array(); foreach ($fieldTypes as $o) { $v = ($o) ? $o->name : 'Field'.($i++); if ($escquote) $v = str_replace($quote,$escquotequote,$v); $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); $elements[] = $v; } $s .= implode($sep, $elements).$NEWLINE; } $hasNumIndex = isset($rs->fields[0]); $line = 0; $max = $rs->FieldCount(); while (!$rs->EOF) { $elements = array(); $i = 0; if ($hasNumIndex) { for ($j=0; $j < $max; $j++) { $v = $rs->fields[$j]; if (!is_object($v)) $v = trim($v); else $v = 'Object'; if ($escquote) $v = str_replace($quote,$escquotequote,$v); $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote"; else $elements[] = $v; } } else { // ASSOCIATIVE ARRAY foreach($rs->fields as $v) { if ($escquote) $v = str_replace($quote,$escquotequote,trim($v)); $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v)))); if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote"; else $elements[] = $v; } } $s .= implode($sep, $elements).$NEWLINE; $rs->MoveNext(); $line += 1; if ($fp && ($line % $BUFLINES) == 0) { if ($fp === true) echo $s; else fwrite($fp,$s); $s = ''; } } if ($fp) { if ($fp === true) echo $s; else fwrite($fp,$s); $s = ''; } return $s; }