CSVファイルの改行の削除について

改行のあるカンマ区切りのCSVファイルから、 改行をすべて削除するプログラムを作りたいのですが、 改行が削除できません。
checkfile	="test.csv"
fid= FOPEN(checkfile,F_READ or F_WRITE8)
FOR col = 1 to FGET(fid, -1) //行数分
	linestr= FGET(fid, col)
	linestr= TRIM(linestr,TRUE)
	linestr= REPLACE(linestr, "<#CR>", "") 
	FPUT(fid,linestr,col)
NEXT
FCLOSE(fid)
改行コードは以外にもあるようですが、 、も試してみましたが、 削除できませんでした。 方法はありますでしょうか? よろしくお願い致します。

関連情報:

  1. 部分的にダブルクォーテーションで括られたCSVファイルを整形したい
  2. まとめて特定の組合わせの文字列をつくりたい。

このエントリーを含むはてなブックマーク Buzzurlにブックマーク Yahoo!ブックマークに登録

コメント

  1. mak より:

    最後の行の一部が消えてしまったので、追記です。

    改行コードは

    <#CR>

    以外にもあるようですが、

    <#CR+LF>、<#LF>

    も試してみましたが、
    削除できませんでした。

    方法はありますでしょうか?

    よろしくお願い致します。

  2. bowchann より:

    このスクリプトだと、1行づつ取得・書込みになるので、
    テキスト内容をすべて取ってきて、改行コードを削除すれば良いかと思います。
     ※サンプル通りUTF8の書込みになっています

    checkfile	="test.csv"
    fid= FOPEN(checkfile,F_READ or F_WRITE8)
    	linestr= FGET(fid, F_ALLTEXT)
    	linestr= TRIM(linestr,TRUE)
    	linestr= REPLACE(linestr, "<#CR>", "")
    	PRINT linestr
    FCLOSE(fid)
    fid= FOPEN(checkfile,F_WRITE8)
    	FPUT(fid,linestr)
    FCLOSE(fid)
    
  3. mak より:

    ご丁寧にありがとうございます。
    無事すべての改行を削除することが出来ました


このページの先頭へ