Помогите разобраться с GET/PUT

[claymen]

Вот пробую создать файл с контактной информацией, но не получается. Может поможите разобраться:

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

Type userInfo
    uFamilia As String
    uName As String
    uOtch As String
    uPhone As Single
    uAdres As String
End Type

Private Sub cmdAdd_Click()
    Open "C:\base.dat" For Binary As #1
    Dim addData As userInfo
    'Создаю первую запись
    addData.abFamilia = "Фамилия #1"
    addData.abName = "Имя #1"
    addData.abOtch = "Отчество #1"
    addData.abPhone = 1111111
    addData.abAdres = "Адрес #1"
    'Добавляю в файл первую запись
    Put #1, 1, addData

    'Создаю втрорую запись
    addData.abFamilia = "Фамилия #2"
    addData.abName = "Имя #2"
    addData.abOtch = "Отчество #2"
    addData.abPhone = 2222222
    addData.abAdres = "Адрес #2"
    'Добавляю в файл вторвую запись
    PUT #1, 2, addData

    'Закрываю файл
    Close
End Sub

Private Sub cmdShow_Click()
    Open "C:\base.dat" For Binary As #1
    Dim readData As userInfo
    'Открываю первую запись
    GET #1, 1, readData
    'Вывожу в форму содержимое первой записи
    Me.Print "Фамилия 1 - "+ readData.abFamilia
    Me.Print "Имя 1 - "+ readData.abName
    Me.Print "Отчество 1 - "+ readData.abOtch
    Me.Print "Телефон 1 - "+ readData.abPhone
    Me.Print "Адрес 1 - "+ readData.abAdres
    Me.Print ""

    'Открываю вторую запись
    GET #1, 2, readData
    'Вывожу в форму содержимое второй записи
    Me.Print "Фамилия 2 - "+ readData.abFamilia
    Me.Print "Имя 2 - "+ readData.abName
    Me.Print "Отчество 2 - "+ readData.abOtch
    Me.Print "Телефон 2 - "+ readData.abPhone
    Me.Print "Адрес 2 - "+ readData.abAdres
    Me.Print ""
End Sub


Почему, при нажатии на cmdShow в форму не выводится последовательно обе записи, а в файл сохраняется только вторая запись.
Помогите разобраться пож.

[ACiD]

Файл считывается и записывается неправильно, вот: VB - работа с файлами 2

[DODge]

Легко! В данном коде просто убери вторые значения в операторах PUT/GET, типа так:

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

Put #1, , addData
'...
Get #1, , readData


[Zenitchik]

А какой резон юзатьбинарный файл, если считываешь все равно последовательно?

[Viper]

А какой резон юзатьбинарный файл, если считываешь все равно последовательно?

И какая связь между бинарным файлом и последовательным доступом?

[Zenitchik]

Никакой. Мне просто интересно, чем в этом случае бинарный доступ к файлу предпочтительнее последовательного?

[Viper]

Никакой. Мне просто интересно, чем в этом случае бинарный доступ к файлу предпочтительнее последовательного?

А что бинарный доступ не может быть последовательным? Или наоборот?

[Zenitchik]

Не делайте вид, что не понимаете о чем я говорю.
Я имею ввиду стандартыне типы доступа к файлу в Basic:
For Binary и For Input + For Output

[Денис]

Zenitchik
Ах так For Input + For Output это последовательный доступ! А я думал, текстовый...

[Zenitchik]

Каюсь, ошибся с термином.
И тем не менее, ответить на вопрос кто-нибудь может?

[Andrey Fedorov]

Создай одну переменную юзерского типа, содержащую всю нужную тебе информацию (в том числе и массив другой переменной юзерского типа с контактными данными. И сохраняй все это дело за один раз командой PUT в бинарный файл. Восстанавливается так же. То есть все значительно проще чем ты думаешь.