Introduction
Text Documents (Writer)
HTML Documents (Writer Web)
Spreadsheets (Calc)
Presentations (Impress)
Drawings (Draw)
Database Functionality (Base)
Formulae (Math)
Charts and Diagrams
Macros and Scripting
Office Installation
Common Help Topics
OneOffice Logo

Get Statement

Reads a record from a relative file, or a sequence of bytes from a binary file, into a variable.

See also: PUT Statement

Syntax:

Get Statement diagram


Get [#]fileNum, [recordNum|filePos], variable

Parameters:

fileNum: Any integer expression that determines the file number.

recordNum: For files opened in Random mode, recordNum is the number of the record that you want to read.

For files opened in Binary mode, filePos is the byte position in the file where the reading starts.

If recordNum and filePos are omitted, the current position or the current data record of the file is used.

variable: Name of the variable to be read. With the exception of object variables, you can use any variable type.

Example:

  Sub ExampleRandomAccess      Dim iNumber As Integer      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      Seek #iNumber,1 ' Position at beginning      Put #iNumber, , "This is the first line of text" ' Fill line with text      Put #iNumber, , "This is the second line of text"      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      Put #iNumber, , "This is a new text"      Get #iNumber, 1, sText      Get #iNumber, 2, sText      Put #iNumber, 20, "This is the text in record 20"      Print Lof(#iNumber)      Close #iNumber  End Sub  
  Sub ExampleRandomAccess      Dim iNumber As Integer      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      Seek #iNumber,1 ' Position at beginning      Put #iNumber, , "This is the first line of text" ' Fill line with text      Put #iNumber, , "This is the second line of text"      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      Put #iNumber, , "This is a new text"      Get #iNumber, 1, sText      Get #iNumber, 2, sText      Put #iNumber, 20, "This is the text in record 20"      Print Lof(#iNumber)      Close #iNumber  End Sub