Gecko [ admjudic.com.br ]

Name	Size	Permission
datadict	[ DIR ]	drwxr-xr-x
drivers	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
perf	[ DIR ]	drwxr-xr-x
xsl	[ DIR ]	drwxr-xr-x
LICENSE.md	25.79 KB	-rw-r--r--
README.md	4.06 KB	-rw-r--r--
adodb-active-record.inc.php	28.18 KB	-rw-rw-r--
adodb-active-recordx.inc.php	37.74 KB	-rw-rw-r--
adodb-csvlib.inc.php	8.11 KB	-rw-rw-r--
adodb-datadict.inc.php	28.68 KB	-rw-rw-r--
adodb-error.inc.php	8.91 KB	-rw-rw-r--
adodb-errorhandler.inc.php	2.77 KB	-rw-rw-r--
adodb-errorpear.inc.php	2.29 KB	-rw-rw-r--
adodb-exceptions.inc.php	2.27 KB	-rw-rw-r--
adodb-iterator.inc.php	779 B	-rw-rw-r--
adodb-lib.inc.php	36.4 KB	-rw-rw-r--
adodb-loadbalancer.inc.php	24.56 KB	-rw-rw-r--
adodb-memcache.lib.inc.php	5.9 KB	-rw-rw-r--
adodb-pager.inc.php	7.93 KB	-rw-rw-r--
adodb-pear.inc.php	9.35 KB	-rw-rw-r--
adodb-perf.inc.php	30.52 KB	-rw-rw-r--
adodb-php4.inc.php	413 B	-rw-rw-r--
adodb-time.inc.php	42.53 KB	-rw-rw-r--
adodb-xmlschema.inc.php	53.26 KB	-rw-rw-r--
adodb-xmlschema03.inc.php	60.72 KB	-rw-rw-r--
adodb.inc.php	143.81 KB	-rw-rw-r--
index.html	0 B	-rw-r--r--
pivottable.inc.php	6.16 KB	-rw-rw-r--
readme_moodle.txt	936 B	-rw-rw-r--
rsfilter.inc.php	1.55 KB	-rw-rw-r--
toexport.inc.php	3.37 KB	-rw-rw-r--
tohtml.inc.php	5.53 KB	-rw-rw-r--
xmlschema.dtd	1.42 KB	-rw-r--r--
xmlschema03.dtd	1.64 KB	-rw-r--r--

Code Editor : toexport.inc.php

<?php

/**
 * @version   v5.21.0  2021-02-27
 * @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:
 *
 * 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);
 */

// returns a recordset as a csv string
function rs2csv(&$rs,$addtitles=true)
{
	return _adodb_export($rs,',',',',false,$addtitles);
}

// writes recordset to csv file
function rs2csvfile(&$rs,$fp,$addtitles=true)
{
	_adodb_export($rs,',',',',$fp,$addtitles);
}

// write recordset as csv string to stdout
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;
}

${this.title}

Code Editor : toexport.inc.php