OS:Windows2000
VB6.0 SP4

こちらのサイトにあるサンプルを元に、CSVを作成するプログラムを
作ったのですが、全ての項目に""が付いてしまいます。

サンプルプログラム

　　Dim lngCount As Long
　　intFileNo = FreeFile
　　'シーケンシャル書込みモードで　sample.csv　をオープン
　　Open "sample_01.csv" For Output As #intFileNo
　　For lngCount = 1 To lngDatN
　　　　Write #intFileNo, strYubin(lngCount), _
　　　　　　　　　　　　　strAddre(lngCount), strNamae(lngCount)
　　Next lngCount
　　Close #intFileNo

データ

"1234567","あああああ","いいいいい","2468101","ううううう","えええええ",〜

という具合です。

実際には

1234567,あああああ,いいいいい,2468101,ううううう,えええええ,〜

こういうデータを作りたいのですが、良い方法はないでしょうか?。

Print #ステートメントについて調べてみましょう。

> Print #ステートメントについて調べてみましょう。

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

早速試してみました。

12345678      あああああ       いいいいい      2468101      〜

こんな結果になりましたので、任意で","を入れてみましたら

12345678   ,   あああああ   ,    いいいいい   ,   2468101   ,   〜

という感じなりました。

この意図しない空白はどうやったら取れるのでしょうか。
Trim()では、効果ありませんでした。

解決しました。

Print #intFileNo, strYubin(lngCount), "," , _
　　　　　　　　　　　　　"," , strAddre(lngCount), "," , strNamae(lngCount)

変数をカンマで区切っていたものを、

Print #intFileNo, strYubin(lngCount) & "," & _
　　　　　　　　　　　　　"," & strAddre(lngCount) & "," & strNamae(lngCount)

「&」で区切ったら

12345678,あああああ,いいいいい,2468101,ううううう,えええええ,〜

という形になりました。

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