Πρόταση Put
Καταγράφει μια εγγραφή σε ένα σχετικό αρχείο ή μια ακολουθία byte σε ένα δυαδικό αρχείο.
Δείτε επίσης: δήλωση Get
Σύνταξη:
Put [#] FileNumber As Integer, [position], Variable
Παράμετροι:
FileNumber: Κάθε παράσταση ακέραιου αριθμού που καθορίζει το αρχείο που προορίζεται για εγγραφή.
Position: Για σχετικά αρχεία (αρχεία τυχαίας προσπέλασης), τον αριθμό της εγγραφής που προορίζεται για εγγραφή.
Για δυαδικά αρχεία (αρχεία δυαδικής προσπέλασης), η θέση byte στο αρχείο όπου θα αρχίσει η εγγραφή.
Variable: Όνομα της μεταβλητής που θα εγγραφεί στο αρχείο.
Σημείωση για αρχεία τυχαίας προσπέλασης: Αν τα περιεχόμενα αυτής της μεταβλητής δεν αντιστοιχούν στο μήκος των εγγραφών που καθορίστηκαν στον όρο Len της πρότασης Open, το κενό διάστημα από το τέλος των νέων δεδομένων εγγραφής έως την επόμενη εγγραφή συμπληρώνεται με τα υπάρχοντα δεδομένα του αρχείου.
Σημείωση για δυαδικά αρχεία: Τα περιεχόμενα των μεταβλητών εγγράφονται στην καθορισμένη θέση, και ο δείκτης αρχείου τοποθετείται αμέσως μετά το τελευταίο byte, χωρίς κενό διάστημα μεταξύ των εγγραφών.
Παράδειγμα:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Πρέπει να είναι τύπος μεταβλητής
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 ' Θέση έναρξης εγγραφής
Put #iNumber,, "Αυτή είναι η πρώτη γραμμή κειμένου" ' Συμπληρώστε τη γραμμή με κείμενο
Put #iNumber,, "Αυτή είναι η δεύτερη γραμμή κειμένου"
Put #iNumber,, "Αυτή είναι η τρίτη γραμμή κειμένου"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"Αυτό είναι νέο κείμενο"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Αυτό είναι το κείμενο στην εγγραφή 20"
Print Lof(#iNumber)
Close #iNumber
End Sub