Seek 関数
Seek 関数は読み書き位置を返します。
モードより戻り値が代わります。
ランダムモードではレーコード値が返ります。
それ以外は現在の位置のバイト数が返ります。
構文
Seek(ファイルナンバー)
ソース
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = Nothing
FileOpen(1, “C:\Users\user\Desktop\hoge.txt”, OpenMode.Input)
MsgBox(Seek(1))
While Not EOF(1)
Input(1, str)
MsgBox(Seek(1))
End While
End Sub
End Class
実行結果は
最初に1が返ります。
そのあとはループで現在の位置のバイト数が返ります。