type MyRecord
field1 as long
field2 as integer
field3 as string*255
end type
sub putrecord
dim r as myrecord
open "c:\1.txt" for random as #1 len=len(r)
r.field1=14576
r.field2=1
r.field3="Такое вот поле строковое"
put #1,,r
close #1
end sub
sub getrecord
dim r as myrecord
open "c:\1.txt" for random as #1 len=len(r)
get #1,,r
msgbox r.field1
msgbox r.field2
msgbox r.field3
close #1
end sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13