library/csv_like_join.php

   1 <?php
   2 function csv_like_join($array, $quote_all = false)
   3 {
   4     $result = '';
   5     $first = true;
   6
   7     foreach ($array as $value) {
   8         if ($first) {
   9             $first = false;
  10         } else {
  11             $result .= ',';
  12         }
  13         if ($quote_all) {
  14             $result .= csv_quote($value);
  15         } else {
  16             $result .= maybe_csv_quote($value);
  17         }
  18     }
  19
  20     return $result;
  21 }
  22
  23 function csv_quote($string)
  24 {
  25     return '"' . str_replace($string, '"', '""') . '"';
  26 }
  27
  28 function maybe_csv_quote($string)
  29 {
  30     if (need_csv_quote($string)) {
  31         return csv_quote($string);
  32     }
  33
  34     return $string;
  35 }
  36
  37 function need_csv_quote($string)
  38 {
  39     if (strpos($string, ',') === false
  40      && strpos($string, '"') === false
  41      && strpos($string, "\r") === false
  42      && strpos($string, "\n") === false)
  43     {
  44         return false;
  45     }
  46
  47     return true;
  48 }
  49
  50 function split_csv_line($record)
  51 {
  52     $first = null;
  53
  54     if (strlen($record) == 0) {
  55         return array('');
  56     }
  57
  58     if ($record[0] === '"') {
  59         $first = '';
  60         $start = 1;
  61
  62         while ($start < strlen($record)
  63             && ($end = strpos($record, '"', $start)) !== false
  64             && $end < strlen($record) - 1
  65             && $record[$end + 1] !== ',')
  66         {
  67             if ($record[$end + 1] !== '"') {
  68                 die("Found characters between double-quoted field and comma.");
  69             }
  70
  71             $first .= substr($record, $start, $end - $start - 1);
  72             $start = $end + 2;
  73         }
  74
  75         if ($start < strlen($record) || $end === false) {
  76             die("Could not find end-quote for double-quoted field");
  77         }
  78
  79         $first .= substr($record, $start, $end - $start - 1);
  80
  81         if ($end >= strlen($record) - 1) {
  82             return array($first);
  83         }
  84
  85         /* Assertion: $record[$end + 1] == ',' */
  86         $rest = substr($record, $end + 2);
  87     } else {
  88         $end = strpos($record, ',');
  89
  90         if ($end === false) {
  91             return array($record);
  92         }
  93
  94         /* Assertion: $end < strlen($record) */
  95
  96         $first = substr($record, 0, $end);
  97         $rest = substr($record, $end + 1);
  98     }
  99
 100     $fields = split_csv_line($rest);
 101     array_unshift($fields, $first);
 102     return $fields;
 103 }
 104 ?>