最終行の改行について

質問

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

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

回答No.2

tsukasa-12r · ベストアンサー

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
のようにするしかないと思います。

お礼

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

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

回答No.3

Hayashi_Trek

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

お礼

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

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

回答No.1

ara_ara

write #1,i;j;
のように最後にもセミコロンを付けられませんか？

お礼

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