csvファイルのセル内のカンマを削除する方法を知りたい

Question

エクセルを利用して、下記のようなcsvファイルデータを作成して、
A列のセル内に含まれるカンマをプログラム内で削除する処理を行いたいのですが、どのようにすればよいでしょうか？
A列のセルに必ずカンマが含まれているかは不明という前提で、hoge.csvファイル自体には変更を加えないでカンマを削除したい次第です。
ご教示のほど、どうぞよろしくお願い申し上げます。

//hoge.csv

//csvデータはA列からK列まであり、A列以外にもカンマが含まれている列があったり、値がブランクのセルもランダムにある前提です。

A1セル : 1,000いろは|12000
B1セル : aaa
C1セル...

A2セル : 2000にほへ|100
B2セル : bbb
C2セル....

A3セル : 300とちり|1000
B3セル : ccc
C3セル....

A4セル : 4,000ぬるを|200
B4セル : ddd
C4セル....

csv読み込み用に作成したプログラムは下記です。

ini_set('auto_detect_line_endings',true);
$strFilePath = "./";
$strFileName = 'hoge.csv';

//--------------------------------------------------
// 文字コードを変換した一時ファイルの作成
//--------------------------------------------------
// ファイルの読み込み
$data = file_get_contents($strFilePath. $strFileName);
// 文字コードの変換（UTF-8 → SJIS-win）
$data = mb_convert_encoding($data, 'UTF-8', 'SJIS-win');
// 一時ファイルの作成
$temp = tmpfile();
// メタデータからファイルパスを取得して読み込み
$meta = stream_get_meta_data($temp);
// 一時ファイル書き込み
fwrite($temp, $data);
// ファイルポインタの位置を先頭に
rewind($temp);

//--------------------------------------------------
// ファイルの読み込み
//--------------------------------------------------
// CSVファイルの読み込み
$objFile = new SplFileObject($meta['uri'], 'rb');
$objFile->setFlags(SplFileObject::READ_CSV | SplFileObject::READ_AHEAD | SplFileObject::SKIP_EMPTY);
$objFile->setCsvControl("\t");

//--------------------------------------------------
// データの取得
//--------------------------------------------------

$list = [];
foreach ($objFile as $row){
  //Aセル内のカンマを削除したものを$listに格納したい
  var_dump($row);
  exit();
  /* $row[0]に１行分のデータがカンマ区切りで格納されている状態です。
  * array(1) {
  *   [0] => string(xxx) "1,000いろは|12000,aaa,....." 
  * }
  */
}

---

###csvデータをテキストエディタで読み込んだ場合

//カンマが入っているセルデータにはダブルクォテーションが入っていました。

1行目 : "1,000いろは|12000",aaa,.....
2行目 : 2000にほへ|100,bbb,......
3行目 : 300とちり|1000,ccc,.....
４行目 : "4,000ぬるを|200",ddd,.....

#追加で判明したこと
試しに、A列の前に一列足してみたところ、２番目の行データからカンマが含まれているとforeach内の$row[0]内でダブルクォーテーションで囲まれることがわかりました。
先頭行の場合は、カンマが含まれていてもダブルクォテーションでは囲まれませんでした。

一方、テキストエディタで読み込んだ場合は、先頭行かどうかに関わらず、カンマがあるデータはダブルクォテーションで囲まれていました。

####先頭行のセルデータにカンマがある場合

foreach ($objFile as $row){
  var_dump($row);
  exit();
  /* $row[0]に１行分のデータがカンマ区切りで格納されている状態です。
  * array(1) {
  *   [0] => string(xxx) "1,000いろは|12000,aaa,....." 
  * }
  */
}

先頭行以外のセルデータ内にカンマがある場合

foreach ($objFile as $row){
  var_dump($row);
  exit();
  /* 1,000いろは|12000がダブルクォーテーションで囲まれている。
  * array(1) {
  *   [0] => string(xxx) "100番目,"1,000いろは|12000",aaa,....." 
  * }
  */
}

Comments

[m.ts10806]

foreachでループされている$rowにどのように情報がおさめられているか確認すれば明白ではないでしょうか。

[k.t.est]

ご指摘ありがとう御座います。$rowのデータを事前に明記して質問をするべきで御座いました。
$row[0]に１行分のデータがカンマ区切りで格納されている為、どのようにすればA行のセル内にカンマが含まれていた場合でも正しくA行だけのデータを取り出せるのかがわからない次第で御座いました。
($row[0]のデータを見るだけでは、どこまでがA行のセルデータかがわからなかった次第です。)

Answer 1

$objFileにファイルから読み込んだ全行のデータが入っていて、
それをforeachループよって1行分ずつ$rowで処理するっていう流れになているのは理解できますか？

１つの行データ$rowの
1つ目のデータが$row[0]に
2つ目のデータが$row[1]にと分割されて納められているのだから、
PHP: str_replace - Manual
を使って、
$row[0] = str_replace(',', '', $row[0]); などとすれば「,」を探して「」にする、
つまりカンマ文字を削除するという意味になります。

文字列の置換処理については類似のものとして
PHP: preg_replace - Manualもありますが、
正規表現による高度で複雑な処理向けのものなので、今はstr_replace()が無難です。

置き換え処理後に
$list[] = $row;
とでもすれば配列$listの最後尾に追加されたりするわけで、
foreachループの終わりに $list[] = $row; を置くことで、
1行分のデータを逐一処理して全行分処理する繰り返し処理になります。

---

/* $row[0]に１行分のデータがカンマ区切りで格納されている状態です。

• array(1) {
• [0] => string(xxx) "1,000いろは|12000,aaa,....."
• }

*/

という様子から察すると、CSVファイルとして想定するフォーマットになってないために、
機械的な分割処理ができてない状況だろうと思います。

$objFile = new SplFileObject($meta['uri'], 'rb');
$objFile->setFlags(SplFileObject::READ_CSV | SplFileObject::READ_AHEAD | SplFileObject::SKIP_EMPTY);
$objFile->setCsvControl("\t");

の様子から察するに、CSVというよりもTSVなのですね？
タブで区切られているときの分割にはいいですが、「,」で区切られているときは $objFile->setCsvControl("\t"); が余計なコードになってます。
でもファイルではタブでは区切られておらず、「,」で区切られているから分割できていないのです。

じゃぁ$objFile->setCsvControl("\t");の行を削除すればいいかというと、
おそらく「,」を検出して機械的に分割してしまうため、
それも都合悪い話なのでしょう。

「,」が1つ目にしか現れないという前提なら、
まず $objFile->setCsvControl("\t"); の行を削除して、
こんなコードを足したらどうでしょう。

<?php

$csv_string = '1,000いろは|12000,aaa,bbb,ccc';  // 4つのセルがあると仮定する
$cells = explode(',', $csv_string);
if (count($cells) > 4) {  // 4つより多いと検出→1つ目と2つ目を再結合させる
    $cells[1] = $cells[0] . ',' . $cells[1];
    array_shift($cells);
}
print_r($cells);

結果は

Array
(
[0] => 1,000いろは|12000
[1] => aaa
[2] => bbb
[3] => ccc
)

となりますが、このやり方は1箇所の決まったセルでのみ余計に分割されるときにしか対応できません。

---

余計な分割を防げるよう「"」で囲ってあるデータなら、
$objFile->setCsvControl("\t"); の行だけ削除でいけます！

Comments

[k.t.est]

ご回答ありがとうございます。
質問内のforeachのループ内でvar_dumpした内容を追記させていただきました。
$rowのデータ構造がなぜか異なっておりまして、$row[0]に行内の全てのセルデータがカンマ区切りで格納されておりまして、その為A行のデータのみを取り出すことができずというもので御座います。
このようなcsvファイルデータの場合はどのように対応するのがよいのでしょうか？ご教示くださいますと誠にありがたく存じます。

[退会済みユーザー]

想定するCSV形式になっていないために、分割に失敗しているようです。
単にテキストエディタで読み込んだときの冒頭の数行を掲載していただけませんか、質問文中に。

[k.t.est]

追加のご回答ありがとう御座います。
しかしながら、読み込みデータにおいて、A列のデータだけでなく、どこのセルデータにカンマが含まれるかどうかがわからない為、ご教示いただいた方法が使えない次第で御座います。。。

[退会済みユーザー]

ダブルクォーテーションマークがついているなら、私が追記したコードは不要で、
$objFile->setCsvControl("\t");
だけ取っ払えばいいです。

[k.t.est]

ありがとうございます。
おっしゃられる通り、$objFile->setCsvControl("\t");を削除したところ、$rowの配列がセルデータ毎に分割されました！

Answer 2

fgetcsvで読んで、再帰処理で変更すればよいでしょう

array_walk_recursive($csv,function(&$x){
  $x=str_replace(",","",$x);
});
print_r($csv);

Comments

[k.t.est]

ご回答ありがとう御座います。
皆様のご回答を拝見して、そもそものcsvデータが少し特殊なものという気がして参りました。
$row[0]に行内全てのデータがカンマ区切りで入ってしまっている為、A行のみのデータを取り出すのが難しい次第で御座います。