.
, .
. . .
, VISUAL BASIC, , Integer, String .. VISUAL BASIC . . , .
. :
{ Private| Public} Type
1 As 1
...
N As N
End Type
: - , ;
1- N ;
.
: String .
Public General , .
, :
(General)(Declarations)
Public Type
As String*15
As String*10
As String*4
As Integer
As Integer
As Integer
End Type
, .
, , :
Dim As , x AsInteger
x= Len ()
,
Open For Random [Access ] [ ] _
As # Len =
: - Random - ;
- Access . : Read , Write , Read Write ( );
- . :
ü Shared ;
ü Lock Read ;
ü Lock Write ;
|
|
ü Lock ReadWrite .
- - . , . , , , .
:
Put # [, ],
- ( ), , . , ( ).
- , , .
:
Get # [, ],
:
- . , .
- , , .
. 7.19.
:
Private Type
As String * 15
As String * 10
As String * 4
As Integer
As Integer
As Integer
End Type
Private Sub Command1_Click()
Dim As , i As Integer
Open "danst" For Random As #1 Len = Len()
For i = 1 To 5
. = InputBox("")
. = InputBox("")
. = InputBox("")
. = Val(InputBox(" _ "))
. = Val(InputBox(" _ "))
. = Val(InputBox(" _ "))
Put #1, i,
Next
Close 1
End Sub
Private Sub Command2_Click()
Dim As , i As Integer
Open "danst" For Random As #1 Len = Len()
For i = 1 To LOF(1)/Len()
Get #1, i,
Print " " & Trim(.) & " " & _
Trim(.) & " " & Trim(.)
Next i
Close #1
End Sub
. 7.19. .
:
Open For Binary As #
. . .
:
Put # , ,
:
- , .. , .
:
|
|
Get # , ,
:
- , .. , .
. .
:
Private Type
As String
As String
End Type
Dim As
Dim mas() As String * 1
Private Sub Command1_Click()
Open "Faim.bin" For Binary As #1
L% = 1
For i = 1 To 2
. = InputBox("")
Lf% = Len(.)
. = InputBox("")
Li% = Len(.)
Put #1, L, .
Put #1, L + Lf, .
L = L + Li + Lf
Next
Close 1
End Sub
Private Sub Command2_Click()
Open " Faim.bin" For Binary As #1
k = LOF(1)
ReDim mas(k)
For i = 1 To k
Get #1, i, mas(i)
Print mas(i);
Next
Close #1
End Sub