tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルダブルクォーテーションなしのCSVファイルの作成
記事No13526
投稿日: 2009/03/23(Mon) 17:41
投稿者金本
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,ううううう,えええええ,〜

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

[ツリー表示へ]
タイトルRe: ダブルクォーテーションなしのCSVファイルの作成
記事No13527
投稿日: 2009/03/23(Mon) 18:04
投稿者
Print #ステートメントについて調べてみましょう。

[ツリー表示へ]
タイトルRe^2: ダブルクォーテーションなしのCSVファイルの作成
記事No13528
投稿日: 2009/03/23(Mon) 18:28
投稿者金本
> Print #ステートメントについて調べてみましょう。

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

早速試してみました。

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

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

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

という感じなりました。

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

[ツリー表示へ]
タイトルRe^3: ダブルクォーテーションなしのCSVファイルの作成
記事No13530
投稿日: 2009/03/23(Mon) 19:24
投稿者金本
解決しました。

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

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

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

「&」で区切ったら

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

という形になりました。

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

[ツリー表示へ]