There is a issue in Excel where it adds the phone numbers as a function +!-604-555-5555 thinking that it is
1
-604
-555
-5555
This code will solve this issue and also converts it to a .Tab file:
<?php^M

/**^M

 * Download file^M

 *^M

 * @author Paul Bukowski <pbukowski@telaxus.com>^M

 * @copyright Copyright &copy; 2006, Telaxus LLC^M

 * @version 1.0^M

 * @license MIT^M

 * @package epesi-utils^M

 * @subpackage RecordBrowser^M

 */^M

if(!isset($_REQUEST['cid']) || !isset($_REQUEST['path']) || !isset($_REQUEST['tab']) || !isset($_REQUEST['admin'])) die('Invalid usage - missing param');^M$cid = $_REQUEST['cid'];^M

$tab = $_REQUEST['tab'];^M$admin = $_REQUEST['admin'];^M

$path = $_REQUEST['path'];^M

^M

define('CID', $cid);^M

define('READ_ONLY_SESSION',true);

require_once('../../../include.php');^M

$crits = Module::static_get_module_variable($path, 'crits_stuff', null);^M

$order = Module::static_get_module_variable($path, 'order_stuff', null);^M

if ($crits===null || $order===null) {^M

        $crits = $order = array();^M

}^M

ModuleManager::load_modules();^M

if (!Utils_RecordBrowserCommon::get_access($tab, 'export') && !Base_AclCommon::i_am_admin())^M

        die('Access denied');^M

^M

set_time_limit(0);

$tab_info = Utils_RecordBrowserCommon::init($tab);^M

$records = Utils_RecordBrowserCommon::get_records($tab, $crits, array(), $order, array(), $admin);^M

^M

header('Content-Type: text/csv');^M

//header('Content-Length: '.strlen($buffer));^M

header('Content-disposition: attachement; filename="'.$tab.'_export_'.date('Y_m_d__h_i_s').'.tab"');^M

if (headers_sent())^M

    die('Some data has already been output to browser, can\'t send the file');^M

$cols = array('Record ID');^M

foreach ($tab_info as $v) {^M

        $cols[] = _V($v['name']);^M

        if ($v['style']=='currency') $cols[] = _V($v['name']).' - '.__('Currency');^M

}^M

$f = fopen('php://output','w');^M

//fwrite($f, "\xEF\xBB\xBF");^M

fputcsv($f, $cols, "\t");^M

$currency_codes = DB::GetAssoc('SELECT symbol, code FROM utils_currency');^M

^M

function rb_csv_export_format_currency_value($v, $symbol) {^M

        static $currency_decimal_signs=null;^M

        static $currency_thou_signs;^M

        if ($currency_decimal_signs===null) {^M

                $currency_decimal_signs = DB::GetAssoc('SELECT symbol, decimal_sign FROM utils_currency');^M

                $currency_thou_signs = DB::GetAssoc('SELECT symbol, thousand_sign FROM utils_currency');^M

        }^M

        $v = str_replace($currency_thou_signs[$symbol], '', $v);^M

        $v = str_replace($currency_decimal_signs[$symbol], '.', $v);^M

        return $v;^M

}^M

^M

foreach ($records as $r) {^M

        $rec = array($r['id']);^M

        foreach ($tab_info as $v) {^M

                ob_start();^M

                $val = Utils_RecordBrowserCommon::get_val($tab, str_replace('%%','%',$v['name']), $r, true, $v);^M

                ob_end_clean();^M

                $val = str_replace('&nbsp;',' ',htmlspecialchars_decode(strip_tags(preg_replace('/\<[Bb][Rr]\/?\>/',"\n",$val))));^M

                if ($v['style']=='currency') {^M

                        $val = str_replace(' ','_',$val);^M

                        $val = explode(';', $val);^M

                        if (isset($val[1])) {^M

                                $final = array();^M

                                foreach ($val as $v) {^M

                                        $v = explode('_',$v);^M

                                        if (isset($v[1])) ^M

                                                $final[] = rb_csv_export_format_currency_value($v[0], $v[1]).' '.$currency_codes[$v[1]];^M

                                } ^M

                                $rec[] = implode('; ',$final);^M

                                $rec[] = '---';^M

                                continue;^M

                        }^M

                        $val = explode('_', $val[0]);^M

                        if (!isset($val[1])) {^M

                                $rec[] = '0';^M

                                $rec[] = '---';^M

                                continue;^M

                        }^M

                        if(isset($currency_codes[$val[0]])) {

                                $tmp = $val[1];

                                $val[1] = $val[0];

                                $val[0] = $tmp;

                        } elseif(!isset($currency_codes[$val[0]])) { //there is no currency code? skip parsing

                                $rec[] = $val[0];^M

                                $rec[] = $val[1];^M

                                continue;

                        }

                        $rec[] = rb_csv_export_format_currency_value($val[0],$val[1]);^M

                        $rec[] = isset($currency_codes[$val[1]])?$currency_codes[$val[1]]:$val[1];^M

                } else {^M

                        $rec[] = $val;^M

                }^M

        }^M

        foreach($rec as & $entry)

        {

         $entry = "=LEFT(\"$entry\", 99)";

        }

        fputcsv($f, $rec, "\t");^M

}^M

?>^M
I hope you find it useful
I used this to replace modules/Utils/RecordBrowser/csv_export.php
Epesi ENS | Epesi Academy | epesi.cloud PaaS | GitHub

Help Me! | Download from SourceForge
