VB.net にてランダムアクセスファイルの扱い


   Structure DataCell
        <VBFixedString(15)> Public Code As String
        Public test1 As Int32
        Public test2 As Int32
    End Structure

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim FileNum As Integer = FileSystem.FreeFile
        FileSystem.FileOpen(FileNum, "test.txt", OpenMode.Random, , , Len(New DataCell()))

        Dim pos As DataCell

        '’レコード読み込み　先頭は1です。
        FileSystem.FileGet(FileNum, pos, 3)


        ''レコードを書き込み　先頭は１です。
        'pos.Code = "inaba"
        'pos.test1 = 9999
        'pos.test2 = 99999

        'FileSystem.FilePut(FileNum, pos, 3)

        FileSystem.FileClose(FileNum) 'ファイルを閉じる

        Debug.WriteLine(pos.Code)
        Debug.WriteLine(pos.test1.ToString)
        Debug.WriteLine(pos.test2.ToString)

    End Sub