.
1.
:
Print #_; [<__>]
:
[{Spc(n) | Tab[(n)]}] [<>] [charpos]
Spc(n) - ;
Tab(n) - ;
<> - ;
charpos - . ;
( ).
, Print.
19.29.
Open "FILE" For Output As #1 Print # 1; " " Print #1; Print #1; ""; Tab; "" Print #1; ""; " "; "" Print #l;Spc(5); "" Print #l;Tab(10); "" MyBool = False MyDate = #February 12, 1969# MyNull = Null MyError = CVErr(32767) Print #1; MyBool; Print # 1; MyDate; " " Print # 1; MyNull; " " Print #1; My Error; " " Close #1 | 5 10 |
2.
:
Write #_; [<__>]
. Print -:
;
.
( ).
19.30.
3.
:
Put [#_; [#],<>
# - , , . , Get, Put, Seek.
19.31.
Type Record ID As Integer Name As String * 20 End Type Dim MyRecord As Record Open "TESTFILE" For Random As #1 Len = Len(MyRecord) For RecordNumber = 1 To 5 MyRecord.ID = RecordNumber MyRecord.Name = " -" & RecordNumber Put #1, RecordNumber, MyRecord Next RecordNumber Close #1 | , |