25 function rs2csv(&$rs,$addtitles=
true)
39 $fp = fopen(
'php://stdout',
'wb');
44 function rs2tab(&$rs,$addtitles=
true)
58 $fp = fopen(
'php://stdout',
'wb');
63 function _adodb_export(&$rs,$sep,$sepreplace,$fp=
false,$addtitles=
true,$quote =
'"',$escquote =
'"',$replaceNewLine =
' ')
70 $escquotequote = $escquote.$quote;
74 $fieldTypes = $rs->FieldTypesArray();
77 while(list(,$o) = each($fieldTypes)) {
79 $v = ($o) ? $o->name :
'Field'.($i++);
80 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
81 $v = strip_tags(str_replace(
"\n", $replaceNewLine, str_replace(
"\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
85 $s .= implode($sep, $elements).$NEWLINE;
87 $hasNumIndex = isset($rs->fields[0]);
90 $max = $rs->FieldCount();
97 for ($j=0; $j < $max; $j++) {
99 if (!is_object($v)) $v = trim($v);
101 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
102 $v = strip_tags(str_replace(
"\n", $replaceNewLine, str_replace(
"\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
104 if (strpos($v,$sep) !==
false || strpos($v,$quote) !==
false) $elements[] =
"$quote$v$quote";
105 else $elements[] = $v;
108 foreach($rs->fields as $v) {
109 if ($escquote) $v = str_replace($quote,$escquotequote,trim($v));
110 $v = strip_tags(str_replace(
"\n", $replaceNewLine, str_replace(
"\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
112 if (strpos($v,$sep) !==
false || strpos($v,$quote) !==
false) $elements[] =
"$quote$v$quote";
113 else $elements[] = $v;
116 $s .= implode($sep, $elements).$NEWLINE;
119 if ($fp && ($line % $BUFLINES) == 0) {
120 if ($fp ===
true) echo $s;
127 if ($fp ===
true) echo $s;