[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/02/15(Thu) 11:43
投稿者名：mahiro
Ｅメール：
ＵＲＬ　：
タイトル：txtファイルの差分を別のtxtファイルに保存したいのですが？
はじめまして。よろしくお願いします。
VB6.0　OSはXPです。

A.txt時間が経過するごとに行数が増えます。
---A.txt初期状態----
あああああああ
いいいいいいい
--------------------

---A.txt時間経過----
あああああああ
いいいいいいい
ううううううう
えええええええ
--------------------

うとえの行だけを取得し
B.txtに保存したいのです。
---B.txt------------
ううううううう
えええええええ
--------------------

考えたのがAの初期状態時に総行数(2行)を読み込み
総行数をポインタとして持ちAの時間経過後ポインタ
で持っている行数後からう行え行を取得。

困っているのが行数後(3行目)から取得する方法は
あるのでしょうか？
1行目から空ループさせて3行目から取得するしか方法が
ないのでしょうか？
ファイルが大きいと読み込む時間が関係してきます。
ご教授お願いします。

投稿時間：2007/02/15(Thu) 12:46
投稿者名：あん
Ｅメール：
ＵＲＬ　：
タイトル：Re: txtファイルの差分を別のtxtファイルに保存したいのですが？
３行目読むところで
Seek()で位置を取得して
再読込みでSeekで取得した位置に移動すればいいと思います。

投稿時間：2007/02/15(Thu) 16:32
投稿者名：mahiro
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: txtファイルの差分を別のtxtファイルに保存したいのですが？
あんさん、早速ありがとうございます。

> Seek()で位置を取得して
> 再読込みでSeekで取得した位置に移動すればいいと思います。

Seek調べたのですが使い方が良くわかりませんでした。
使用方法を教えていただけるとありがたいのですが
よろしくお願いします。

投稿時間：2007/02/15(Thu) 16:49
投稿者名：あん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: txtファイルの差分を別のtxtファイルに保存したいのですが？
コードを書けってことでしょうか？

投稿時間：2007/02/15(Thu) 17:11
投稿者名：mahiro
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: txtファイルの差分を別のtxtファイルに保存したいのですが？
> コードを書けってことでしょうか？
すいません。お願いします。

投稿時間：2007/02/15(Thu) 21:04
投稿者名：てふ
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: txtファイルの差分を別のtxtファイルに保存したいのですが？
> > コードを書けってことでしょうか？
> すいません。お願いします。

コードを書いてもヘルプ見たままなんですが。

ファイルの読み書き位置を取得するとき
lngFp=Seek(filenumber)

ファイルの読み書き位置を移動するとき
Seek filenumber,lngFp

Seekには関数とステートメントの両方があるので、両方調べて下さい。

投稿時間：2007/02/15(Thu) 14:27
投稿者名：スクリプトプログラマ
Ｅメール：
ＵＲＬ　：
タイトル：Re: txtファイルの差分を別のtxtファイルに保存したいのですが？
ファイルをクローズするから面倒なので、
オープンしたまま、
前回のEOFから、続きを読めばよいのです。

投稿時間：2007/02/15(Thu) 16:35
投稿者名：mahiro
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: txtファイルの差分を別のtxtファイルに保存したいのですが？
スクリプトプログラマさん、ありがとうございます。

> オープンしたまま、

できたらいいのですが難しいです。
ほかに何か良い方法があればご教授ください。
よろしくお願いします。

投稿時間：2007/02/15(Thu) 17:33
投稿者名：BT6
Ｅメール：
ＵＲＬ　：
タイトル：Re: txtファイルの差分を別のtxtファイルに保存したいのですが？
1.初期状態でファイルサイズを取得しておく
2.差分を取りたくなったら、もう一度ファイルサイズを取得
3.A.txtをRandomモード、Len=1でオープン
4.Getで、初期状態のファイルサイズ＋１のRecNoからByteデータを取得
5.取得したByteデータをB.txtにPut
6.RecNoをインクリメントしながら、ファイルの最後までGet/Putを繰り返す。

これで如何でしょう？
でも、時間が掛かるかも、、、(^^;

投稿時間：2007/02/15(Thu) 21:07
投稿者名：てふ
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: txtファイルの差分を別のtxtファイルに保存したいのですが？
> 1.初期状態でファイルサイズを取得しておく
> 2.差分を取りたくなったら、もう一度ファイルサイズを取得
> 3.A.txtをRandomモード、Len=1でオープン
> 4.Getで、初期状態のファイルサイズ＋１のRecNoからByteデータを取得
> 5.取得したByteデータをB.txtにPut
> 6.RecNoをインクリメントしながら、ファイルの最後までGet/Putを繰り返す。
>
> これで如何でしょう？
> でも、時間が掛かるかも、、、(^^;

RandomモードじゃなくてBinaryモードで差分のバイト数を一気にGet、Putした方が
速いかもしれませんね。

投稿時間：2007/02/16(Fri) 12:03
投稿者名：BT6
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: txtファイルの差分を別のtxtファイルに保存したいのですが？
> RandomモードじゃなくてBinaryモードで差分のバイト数を一気にGet、Putした方が
> 速いかもしれませんね。

ですね。^^;