CSV読み取りセルの文字列中にスペースがある場合について (ID:149061)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。
以下の環境でちょっとした開発をしています。
Delphi 10.1 Berlin ENTERPRISE
Windows 10 Pro 64bit

CSVファイル（カンマ区切り）を下記のように読み取りListViewに表示させるアプリを作っています。
しかし、Excelのセルの文字列中にスペースがある場合
カンマとみなしてしまいます。
（セル例： 123 456 789）

文字列中にスペースがあっても分割されない方法はありますでしょうか。
現在のコードは以下の通りです。

row_list  := TStringList.Create;
    cell_list := TStringList.Create;
    try
      //ファイルを読み込み
      row_list.LoadFromFile(convF.Text);

//1行ずつ取り出す-------------------------------------------
      for iRow := 0 to row_list.Count - 1 do
      begin

//1行を各cellに分解
        cell_list.CommaText := row_list[iRow];

//リストビューの追加リストと、list_itemをリンクさせる
        list_item := ListView1.Items.Add;

//1列目
        if cell_list.Count > 0 then
          list_item.Caption := cell_list[0];

//2列目以降
        if cell_list.Count > 1 then
          for iCell := 1 to cell_list.Count - 1 do
          begin
            list_item.SubItems.Add(cell_list[iCell]);
          end;  //next iCell
      end;  //next iRow-----------------------------------------
    finally
      row_list.Free;
      cell_list.Free;
    end;

アドバイス頂けませんでしょうか。
よろしくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る