AtEndOfStream Property

Description

Returns VARIANT_TRUE if the file pointer is at the end of a TextStream file; VARIANT_FALSE if it is not. Read-only.

PowerBASIC Syntax

Remarks

The AtEndOfStream property applies only to TextStream files that are open for reading, otherwise, an error occurs.

Example [PowerBASIC]

#INCLUDE "windows.inc"

#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem

DIM pStm AS ITextStream

DIM curLine AS LONG

DIM strText AS STRING

' Create an instance of the FileSystemObject

fso = NEWCOM "Scripting.FileSystemObject"

' Open the file for reading

pStm = fso.OpenTextFile(UCODE$("C:\MyFolder\Test.txt"), %IOMode_ForReading, %FALSE, %FALSE)

' Read the file sequentially

WHILE ISFALSE pStm.AtEndOfStream

  curLine = pStm.Line

  strText = pstm.ReadLine

  STDOUT "Line " & FORMAT$(curLine) & ": " & ACODE$(strText)

WEND

' Close the file

pstm.Close