LibreOfficeDev 7.4 Help
cpLtG‖Reads a record from a relative file, or a sequence of bytes from a binary file, into a variable.
yCDgR‖See also: PUT Statement
ApNqD‖
xBhKA‖Get [#]fileNum, [recordNum|filePos], variable
9pPqN‖ fileNum: Any integer expression that determines the file number.
H6iAo‖ recordNum: For files opened in Random mode, recordNum is the number of the record that you want to read.
3w9MJ‖For files opened in Binary mode, filePos is the byte position in the file where the reading starts.
NvcjF‖If recordNum and filePos are omitted, the current position or the current data record of the file is used.
GZcaW‖variable: Name of the variable to be read. With the exception of object variables, you can use any variable type.
Sub ExampleRandomAccess
Dim iNumber As Integer
VqNwD‖ Dim sText As Variant ' Must be a variant
Dim aFile As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
GKZLD‖ Seek #iNumber,1 ' Position at beginning
Wt4ue‖ Put #iNumber, , "This is the first line of text" ' Fill line with text
tX5qW‖ Put #iNumber, , "This is the second line of text"
n2Vsu‖ Put #iNumber, , "This is the third line of text"
Seek #iNumber,2
Get #iNumber, , sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber, 2, sText
JcAYq‖ Put #iNumber, , "This is a new text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
XsVuX‖ Put #iNumber, 20, "This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub
Sub ExampleRandomAccess
Dim iNumber As Integer
VMDEk‖ Dim sText As Variant ' Must be a variant
Dim aFile As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
4vB7g‖ Seek #iNumber,1 ' Position at beginning
jFD5F‖ Put #iNumber, , "This is the first line of text" ' Fill line with text
dFwTH‖ Put #iNumber, , "This is the second line of text"
v8Ee2‖ Put #iNumber, , "This is the third line of text"
Seek #iNumber,2
Get #iNumber, , sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber, 2, sText
xzP6q‖ Put #iNumber, , "This is a new text"
Get #iNumber, 1, sText
Get #iNumber, 2, sText
RLNWV‖ Put #iNumber, 20, "This is the text in record 20"
Print Lof(#iNumber)
Close #iNumber
End Sub