最終行の改行について

CSVで出力しようとしてるのですが、
write ＃１,i；j
などのように書くと、最終行の最後に改行が入ってしまいます。
これを解消する方法はないでしょうか。

よろしくおねがいします。

No.2 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/01/25 03:37

Open "FileName.csv" For Output As #FileNo

ではなく
Open "FileName.csv" For Binary As #FileNo
で開いて、
For i = 0 To n
　　Write #FileNo, a(i); b(i)
Next i
の代わりに
For i = 0 To n
　　If i <> n Then
　　　　Put #FileNo, , a(i) & "," & b(i) & "," & vbCrLf
　　Else
　　　　Put #FileNo, , a(i) & "," & b(i)
　　End If
Next i
のようにするしかないと思います。

この回答へのお礼

詳しいコードまでありがとうございました。
バイナリで書くのはやったことなかったのですが、
　簡単そうなので試してみたいと思います。

ありがとうございました。

お礼日時：2004/01/26 16:58

No.3 回答者： Hayashi_Trek 回答日時： 2004/01/25 15:05

write ＃１,i；j

を
Print #1, i; ","; j;
のようにすれば良いでしょう。
ただし、このようにすると改行が入らないので
最終行以外の場合はこの後に
Print #1, ""
として改行を追加する必要があります。

この回答へのお礼

回答ありがとうございました。
こういう方法もあるのですね。
No2.の人の方法と、試してみます。

ありがとうございました。

お礼日時：2004/01/26 17:02

No.1 回答者： ara_ara 回答日時： 2004/01/24 23:39

write #1,i;j;

のように最後にもセミコロンを付けられませんか？

この回答へのお礼

すばやい回答ありがとうございました。
しかし、改行がはいらずCSVとして使えなくなってしまいました。

お礼日時：2004/01/26 16:56