Проблема с файлами

[AnarCky]

Вот такая вот фигня с нижеследующим кодом.
Проблема в том что он на выходе показывает нулевую строку и Integer равный 0. Помогите пожалуйста!

Код: Выделить всё

   
Structure типСпортсмен
        Dim фамилия As String
        Dim дата As DateTime
        Dim Мужчина As Boolean
        Dim вес As Integer
    End Structure

    Dim Sp(4) As типСпортсмен
    Dim i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Sp(i).фамилия = TextBox1.Text
        Sp(i).Мужчина = chb1.Checked
        Sp(i).вес = CInt(TextBox4.Text)
        i = i + 1
        FileOpen(77, "C:\Doc\Gennady\Файлы Бэйсик\Shablon\bin\new.ctv", OpenMode.Random)
        FilePut(77, Sp(i))
        FileClose(77)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim int As Integer = InputBox("Введите номер записи:", "Проба")
        Dim S As типСпортсмен
        FileOpen(77, "C:\Doc\Gennady\Файлы Бэйсик\Shablon\bin\new.ctv", OpenMode.Random)
        FileGet(77, S, int)
        FileClose(77)
        Label1.Text = S.фамилия
        Label2.Text = S.вес
    End Sub


[Viper]

Ты все записываешь в первую позицию. Не отсюда ли ноги растут?

[AnarCky]

Извините за молчание...
А поясни плзз, что такое первая позиция? Что ты имеешь ввиду?

[Viper]

Имеется ввиду, что все записи ты пишешь в позицию первой записи в файле.

[AnarCky]

А это...
Ну да... А что, так не надо? В примере (в умной книжке) было так. Я списал почти один в один. Токо заменил 1 на i в этих строчках, и вместо конкретного текста написал ссылку на ТекстБокс:

Код: Выделить всё

        Sp(i).фамилия = TextBox1.Text
        Sp(i).Мужчина = chb1.Checked
        Sp(i).вес = CInt(TextBox4.Text)