テキストファイルで６０行ごとにコメントをいれるには？

ラウ 2006-12-19 04:26:14 No: 134649

お世話になります。
vb6を使用しています。

あるテキストファイル（2400行程度）に６０行ごとにコメントをいれたいのですが、行数を指定してコメントをいれる方法がわかりません。以下のコードだとちょうど最後の4０行に"ここで６０行区切り"と連続して書かれるだけで思ったようにできません。

どうすれば６０行ごとにここで６０行区切りとかけるのでしょうか？
教えてください。お願いします。

Private Sub Command1_Click()
Dim i As Integer
K = 0
n = FreeFile

  For i = 0 To 2400

       Open "C:\test.txt" For Append As #n

    If i = 60 * K Then
    Print #n, "ここで６０行区切り"
    K = K + 1
    End If

    Close #n

  Next i

End Sub

魔界の仮面弁士 2006-12-19 06:02:16 No: 134650

案1) 上記のループ内処理を、下記のように変更。
  K = K + 1
  If K = 60 Then
    Print #n, "ここで６０行区切り"
    K = 0
  End If

案2) Mod関数で、「現在行を 60で割った余り」を求める。
  If (i Mod 60) = 59 Then
    Print #n, "ここで６０行区切り"
  End If

ラウ 2006-12-19 07:24:34 No: 134651

ありがとうございます。
案１でいこうと思います。

ただそれでも
最後の4０行に"ここで６０行区切り"と連続して書かれる
んですよね。

きちんと６０行ごとにここで６０行区切りとかかれるようにしたいんですけどどうすればいいでしょうか？
教えて下さい。

K・今川 2006-12-19 07:35:12 No: 134652

Open の Append はデータをファイルの最後に追加するだけで
ファイルの途中にデータを追加することはできません。
やるとすれば一度ファイルをすべて読み込んで元のファイルに
一行ずつ上書きするときにコメントを追加していくしかないでしょう。

ラウ 2006-12-19 07:40:08 No: 134653

あーそうですか。
ありがとうございます。参考になりました。