改行されたでーたを改行せずにCSVデータを作成するには?

解決


初心者A  2004-06-22 14:04:20  No: 114129  IP: [192.*.*.*]

VB6+MDBでシステムを作っています。
VB6で作った画面から入力し、MDBのテーブルに保存していくといった感じです(当たり前か。。。)

さて、入力画面にはMultilineで設定されているテキストボックスがあり、
そこに入力されたデータは、テーブルのメモ型のフィールドに書き込まれるようになっています。
このテーブルのデータでCSVデータを作成したいのですが、
メモ型フィールドのデータ内で改行があった場合、CSVデータでも改行が発生してしまいます。

これを、改行せず1行にしてCSVを作りたいのですが、どうすればよいのでしょうか?
VB初心者ですので、簡単でしたら申し訳ありません。
教えてください。

編集 削除
S.S  2004-06-22 14:31:45  No: 114130  IP: [192.*.*.*]

DB更新前にその文字列を編集してやるしかないかな・・・?
下記のような感じでラインフィードとキャリッジリターンを取り除くってのはどうでしょう?

    Dim intCnt      As Integer
    Dim strConChar  As String
    
    strConChar = ""
    For intCnt = 1 To Len(strPreData)
        If Mid$(strPreData, intCnt, 1) <> Chr$(10) And Mid$(strPreData, intCnt, 1) <> Chr$(13) Then
            strConChar = strConChar & Mid$(strPreData, intCnt, 1)
        End If
    Next intCnt

strPreDataが元文字列、strConCharが変換後文字列です。

編集 削除
nanashi  2004-06-22 14:44:43  No: 114131  IP: [192.*.*.*]

取り除くだけならReplaceの方が速いよ。

編集 削除
初心者A  2004-06-22 16:50:53  No: 114132  IP: [192.*.*.*]

両方とも試してみて、両方ともうまくいきました。
なんとかなりそうです。
S.Sさん、nanashiさん、どうもありがとうございます!

編集 削除