tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル APPENDモードのファイル出力
投稿日: 2011/06/14(Tue) 09:23
投稿者ちーさん
OS:Windows XP VB:VB6.0 VB暦:1ヶ月未満です。
CSVファイルに、
・1行目は格納されている行件数を固定行として出力
・2行目以降はデータ行
を出力させたいのですが、1行目の行件数は上書きできても、APPENDモードWRITEしたデータ行は上書きになってしまいます。
1つのファイルに、上書きと末尾追加の両方をさせるには、どうしたらよいのでしょうか?
どなたか教えてください。
下は作成してみたコードです。意図が伝わるかどうかわかりませんが、一部日本語に書き換えてあります。

  '行件数の読み込み
      filenum = FreeFile
      Open DataFile For Input As #filenum
      Input #filenum, 行件数
      Close #filenum
  '行件数加算 & 上書き更新
      行件数 = 行件数 + 1
      filenum = FreeFile
      Open DataFile For Output As #filenum
      Write #filenum, 行件数
      Close #filenum
    'データ行追記
      filenum = FreeFile
      Open DataFile For Append As #filenum
      Write #filenum, データ項目1, _
                      データ項目2
    Close #filenum

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。