'Listing 28.5 28LIST05.TXT -- Zapis i odczyt piciobajtowych rekordw za pomoc instrukcji Put# i Get#

Private Sub Command1_Click() ' Przycisk "Twrz"
  Cnumber = FreeFile
  Open "Random.txt" For Random As #Cnumber Len = 5

  For X = 1 To 5
    Put #Cnumber, X, X
  Next X

  Close #Cnumber
End Sub

Private Sub Command2_Click() ' Przycisk "Zmie"
  Cnumber = FreeFile
  Open "Random.txt" For Random As #Cnumber Len = 5
  NewVar = 9
  Put #Cnumber, 3, NewVar
  Close #Cnumber
End Sub
   

Private Sub Command3_Click() ' Przycisk "Wywietl"
  Cnumber = FreeFile
  Open "Random.txt" For Random As #Cnumber Len = 5
  Form1.Print "Plik Random.txt otwarty"

  For X = 1 To 5
    Get #Cnumber, X, Y
    Form1.Print  "Odczytano " & Y & " z pliku Random.txt"
  Next X

  Close #Cnumber
End Sub

