diff options
Diffstat (limited to 'wizards/source/scriptforge/SF_TextStream.xba')
-rw-r--r-- | wizards/source/scriptforge/SF_TextStream.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/scriptforge/SF_TextStream.xba b/wizards/source/scriptforge/SF_TextStream.xba index bb8ea78486f6..27ff3d9bb4c9 100644 --- a/wizards/source/scriptforge/SF_TextStream.xba +++ b/wizards/source/scriptforge/SF_TextStream.xba @@ -499,7 +499,7 @@ Public Sub WriteBlankLines(Optional ByVal Lines As Variant) ''' Returns: ''' Exceptions: ''' FILENOTOPENERROR File not open or already closed -''' FILEOPENMODEERROR File opened in in read mode +''' FILEOPENMODEERROR File opened in read mode ''' Examples: ''' myFile.WriteBlankLines(10) Dim i As Long @@ -657,7 +657,7 @@ Dim cstSubArgs As String Case UCase("AtEndOfStream") Select Case _IOMode Case SF_FileSystem.ForReading - If IsNull(_InputStream) Then _PropertyGet = True Else _PropertyGet = _InputStream.isEOF() And Not _ForceBlankLine + If IsNull(_InputStream) Then _PropertyGet = True Else _PropertyGet = CBool(_InputStream.isEOF() And Not _ForceBlankLine) Case Else : _PropertyGet = True End Select Case UCase("Encoding") |