テキストファイル更新

質問

VB6.0のプログラムで、
テキストファイルを読み込みます。
その際に、レコードのある一部分のみを書き換えて
更新したいのですが方法を知ってますか？

回答No.1

hayahayahaya · ベストアンサー

Dim fl as integer
Dim lSeekPoint as long
Dim strFileName as string

fl = FreeFile
Open strFileName For Binary As #fl
Seek fl, lSeekPoint
Put #fl, , "A"
Close #fl

これで、指定して場所が"A"に書き換わります。

あとは改造です。頑張って。

お礼

早々の回答ありがとうございます。
早速やってみます。

回答No.2

imogasi

DOSのファイルを引き継いで
（１）基本的にシーケンシャルファイルの一部を変えて「もとの位置に書きなおす」（はめ込むイメージ）ことはできなかったと思います。
インプットファイルはそのままで、同じ部分はそのまま書き、変えた部分は変えて書き、アウトプットファイルを別ファイルを作って行きます。例え１バイトの変更でも。
レコードは復帰改行までが１レコードで、一般的にはフィールドが可変長で、フィールド数も固定ではない。
（１）ランダムアクセスファイルならGET#、PUT#でできるはずです。レコード番号を指定して読み書きします。各レコードは固定長です。Lset,Rsetでランダムバッファ内にデータを移行します。バッファを更新して
バッファを読み書きする仕組みからかと思います。

お礼

う～む。そうですか。別ファイルへの更新ですか。
ありがとうございます。