テキストファイル更新

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

No.1 ベストアンサー 回答者： hayahayahaya 回答日時： 2004/02/05 14:41

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"に書き換わります。

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

この回答へのお礼

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

お礼日時：2004/02/05 14:51

No.2 回答者： imogasi 回答日時： 2004/02/05 23:37

DOSのファイルを引き継いで

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

この回答へのお礼

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

お礼日時：2004/02/06 11:32