System Services Methods

Example

let file (TextFile)
set file = OpenTextFile("e:\tmp\TextFile1.txt","w")
...
file->Close()

Example

let file (TextFile)
// To open a file in read mode: 
set file = OpenTextFile("f:\TextFile1.txt","r") 
//To get the data of the file in a buffer: 
let buffer (String) 
let i (Integer) 
for i while file->IsEndOfFile() <> TRUE 
{ 
//Read the file until end is reached, read function reads one line at a time 
set buffer = file->Read() 
}

Example 1

let file (TextFile)
let buffer (String)
set file = OpenTextFile("e:\tmp\TextFile1.txt","r")
set buffer = file->Read()

Example 2

let parms (List)
parms.Append(' Representation316411704 --- IN_WORK\Integer.1' )
parms.Append(' Representation316411704 --- IN_WORK\Real.1' )
parms.Append(' Representation316411704 --- IN_WORK\Length.1' )
set file = OpenTextFile("e:\tmp\TextFile1.txt","w")
format = "Integer = # Real = # Length = #" 
buffer  = file->Read(format,parms)

buffer = "Integer = 5 Real = 10.23 Length = 22mm"