Seek 関数 vb.net入門

   

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が返ります。
そのあとはループで現在の位置のバイト数が返ります。

PR



 - vb.netさんぷる

Translate »