Type Person

 

      LName as String

      FName as String

      Age as Integer

 

   End Type

                

 

 

   Sub WriteOneRecord(PRecord as Person)

   Dim StrSize as Integer

 

      ' Write the LName field and indicate the length of LName

      ' because it is a variable-length string.

      StrSize = Len(PRecord.LName)

      Put #1,,StrSize

      Put #1,,PRecord.LName

 

      ' Write the FName field and indicate the length of FName

      ' because it is a variable-length string.

      StrSize = Len(PRecord.FName)

      Put #1,,StrSize

      Put #1,,PRecord.FName

 

      ' Write the Age field - this is type integer so it is not

      ' necessary to indicate a length.

      Put #1,,PRecord.Age

 

   End Sub

 

   Sub WriteBinary()

   Dim P as Person

 

      ' Create a new file and open it for Binary access.

      Open "BINARY.TXT" For Binary As #1

 

      ' Create and write the first record.

      P.LName = "Doe"

      P.FName = "Jane"

      P.Age = 9

      WriteOneRecord P

 

      ' Create and write the second record.

      P.LName = "Thompson"

      P.FName = "Richard"

      P.Age = 4

      WriteOneRecord P

 

      ' Close the file.

      Close #1

 

   End Sub

    Type Person

 

      LName as String

      FName as String

      Age as Integer

 

   End Type

                

 

 

   Sub ReadOneRecord(PRecord as Person)

   Dim StrSize As Integer

 

      ' Determine the size of the LName field and read it.

      Get #1, , StrSize

      PRecord.LName = String(StrSize," ")

      Get #1, , PRecord.LName

 

      ' Determine the size of the FName field and read it.

      Get #1, , StrSize

      PRecord.FName = String(StrSize," ")

      Get #1, , PRecord.FName

 

      ' Read the Age field.

      Get #1, , PRecord.Age

 

   End Sub

 

 

   Sub ReadBinary()

   Dim P as Person

 

      ' Open the file for Binary access.

      Open "BINARY.TXT" For Binary As #1

 

      ' Read each record in the file and display it in the Debug

      ' window.

      Do Until EOF(1)

         ReadOneRecord P

         Debug.Print P.LName, P.FName, P.Age

      Loop

 

      ' Close the file.

      Close #1

 

   End Sub

Доступ типа Random Access несколько утратил свое значение после появления в версии Visual Basic 3.0 средств доступа к базам данным

Option Explicit

 

Private Type RCol

    NumbsL As Long

    NumbsI As Integer

End Type

 

Private Type HDATA

    SubName(12) As String

    Age As RCol

End Type: Dim Data(1 To 6) As HDATA

 

Private Sub Command1_Click()

      

    Open App.Path & "\test.dat" For Binary Access Read As #1

        Get #1, 1, Data

    Close #1

    

    Dim i%

    For i = 1 To 3

        Text1(0).Text = Data(i).SubName(1)

        Text1(3).Text = Data(i).SubName(4)

        Text1(1).Text = Data(i).SubName(3)

        Text1(2).Text = Data(i).Age.NumbsI

        MsgBox i

    Next i

    

End Sub

 

Private Sub Command2_Click() 'Писать в "test.dat"

 

    Data(1).Age.NumbsL = 19

    Data(1).SubName(1) = "88888888 o работы с файлами"

    Data(1).SubName(4) = "Писать 11111111 test.dat"

    

    Data(2).SubName(4) = "Пис2222222222.dat"

    Data(2).Age.NumbsI = 15

    Data(2).SubName(1) = "Сначала [[[[[[[[[[[[ некоторую память"

    Data(2).SubName(3) = "Писать 99999999 test.dat"

    

    Data(3).Age.NumbsI = 17

    Data(3).SubName(1) = "Этот пример показывает как, чтобы"

    Data(3).SubName(4) = "Писат33333333t.dat"

    

    Open App.Path & "\test.dat" For Binary Access Write As #1

        Put #1, 1, Data

    Close #1

    

End Sub

FreeFile[(RangeNumber)]

intFH=FreeFile

Open FileName For [Input | Output | Append] As FileHandle

Open "C:\README.TXT" For Input As intFH1

Open "C:\DATA\TEXT.TXT" For Output As intFH2

Open "C:\USERS.TXT" For Append As intFH3

intFH = FreeFile

  Open "С:\Text.Txt" For Input As #intFH

'Первый вариант

  Do Until EOF(intFH)

    Line Input #intFH, strString

    strText = strText & strString & vbLf

  Loop

 

'Второй вариант

 StrText = Input$(LOF(intFH), intFH)

 

 Close #intFH

Print #FileHandle, [(Spase(n)| Tab[(n)]] [Expression] [Charpos]

Print #intFH, Text1.Text

Print #intFH, "Фрагмент 1", "Фрагмент 2"

Print #intFH, "Это составляет "; "единое целое"

Print #intFH, "Фрагмент 1", "Фрагмент 2"

'соответствует

Print #intFH, "Фрагмент 1"; Tab; "Фрагмент 2"

Print #intFH, "Это составляет "; "единое целое"

'соответствует

Print #intFH, "Это составляет единое целое"

Print #intFH, "Анна", "Киев", 17

'В файле будет: Анна Киев 17

Write #intFH, "Анна", "Киев", 17

'В файле будет: "Анна","Киев",17

Open FileName For Random [Access] [Lock] As [#]FileHandle [Len=RecLength]

Open "ADDRESS.DAT" For Random Access Write As 1 Len = 27

Open "ADDRESS.DAT" For Random Access Write As 1 Len = Len(Varname)

Put #FileHandle, RecNumber, Variable

Get #FileHandle, RecNumber, Variable

Put #intFH, 7, Address  'сохраняет 7-ую запись

Get #intFH, 2, Address  'считывает 2-ую запись

'(General)(Declaration)

 

Type Person

FirstName As String * 20

Name As String * 20

CustomerN As Integer

End Type

 

Private Customer As Person

'Процедура

Private Sub Command1_Click()

intFH = FreeFile

Open "C:\LORE.DAT" For Random As intFH Len = Len(Customer)

Get #intFH, 2, Customer

Close #intFH

End Sub

Open FileName For Binary [Access] [Lock] As [#] FileHandle