VB6+MDBでシステムを作っています。
VB6で作った画面から入力し、MDBのテーブルに保存していくといった感じです(当たり前か。。。)
さて、入力画面にはMultilineで設定されているテキストボックスがあり、
そこに入力されたデータは、テーブルのメモ型のフィールドに書き込まれるようになっています。
このテーブルのデータでCSVデータを作成したいのですが、
メモ型フィールドのデータ内で改行があった場合、CSVデータでも改行が発生してしまいます。
これを、改行せず1行にしてCSVを作りたいのですが、どうすればよいのでしょうか?
VB初心者ですので、簡単でしたら申し訳ありません。
教えてください。
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が変換後文字列です。
取り除くだけならReplaceの方が速いよ。
編集 削除両方とも試してみて、両方ともうまくいきました。
なんとかなりそうです。
S.Sさん、nanashiさん、どうもありがとうございます!