lineinput について

質問

下記のプログラムで処理を繰り返す時、どうして
LinInput関数は正確に順序良く1行1行を読み取るのか分かりません。
下のプログラムでは永遠に1行目を読み取るか、読み取る行が
ランダムになってしまうような気がするのですが、なぜでしょうか？
宜しくお願いします。
----------------------------------------------------------------
filenum = FreeFile()
FileOpen(filenum, openfile, OpenMode.Input)
Do Until EOF(filenum)
readline = LineInput(filenum)
TextBox1.Text = TextBox1.Text & readline & vbCrLf
Loof
FileClose(filenum)

回答No.2

dsuekichi · ベストアンサー

>読み取る行がランダムになってしまうような気がするのですが
どういう理由で「ランダム」だと思われるのでしょう？

ファイル番号ごとに、内部処理用に「Seekポイント」と言うデータを保持しています。

「Seek 関数 」
（http://msdn2.microsoft.com/ja-jp/library/7af2feyt(VS.80).aspx）

例えば、
１行目が１０文字（＋復改行２文字）、
２行目が５文字（＋復改行２文字）
３行目が２０文字（＋復改行２文字）
だと、
「FileOpen」直後はSeekポイント「１」に初期化され、
最初の「LineInput」で、１文字目から復改行まで１０文字（＋２文字）読み込み、
Seekポイントを＋１２して１３に変更。

２回目の「LineInput」で、１３文字目から復改行まで５文字（＋２文字）読み込み、
Seekポイントを＋７して２０に変更。

３回目の「LineInput」で、２０文字目から復改行まで２０文字（＋２文字）読み込み、
Seekポイントを＋２２して４２に変更。
・・・と続きます。

お礼

返答ありがとうございます。
seek関数というものがあるとは知りませんでした。
今勉強している本が入門編だからか、全く触れていません(T T)。

回答No.1

suzukikun

LineInputがそういう仕様だからとしか言いようがないのですが。

参考URL：

http://msdn2.microsoft.com/ja-jp/library/8e33ddk1(VS.80).aspx

お礼

ありがとうございます。