PureBasic Forums - English

the.weavster wrote: Wed Sep 27, 2023 7:45 am The more versatile the better imo. Just expanding a little on the OpenFile() example:

Code: Select all

If file := OpenFile(#PB_Any,  "file.txt")
	While text.s := ReadString(file)
		; do work with text
	Wend
	CloseFile(file)
EndIf

If file := OpenFile(#PB_Any,  "file.txt")
   While Not Eof(file)
      text.s = ReadString(file)
		; do work with text
	Wend
	CloseFile(file)
EndIf

Little John wrote: Wed Sep 27, 2023 8:43 am That is a very special way of reading a text file, since the loop will stop reading at the first empty line.

text.s = ""
If text
  Debug "true"
Else
  Debug "false"
EndIf

Little John wrote: Wed Sep 27, 2023 8:43 am

the.weavster wrote: Wed Sep 27, 2023 7:45 am The more versatile the better imo. Just expanding a little on the OpenFile() example:

Code: Select all

If file := OpenFile(#PB_Any,  "file.txt")
	While text.s := ReadString(file)
		; do work with text
	Wend
	CloseFile(file)
EndIf

That is a very special way of reading a text file, since the loop will stop reading at the first empty line.

The general way of reading a text file is like so:

Code: Select all

If file := OpenFile(#PB_Any,  "file.txt")
   While Not Eof(file)
      text.s = ReadString(file)
		; do work with text
	Wend
	CloseFile(file)
EndIf

Here the Walrus operator cannot be used with advantage for reading the lines in the loop.

If file := OpenFile(#PB_Any,  "file.txt")
	If Text.s := ReadString(file, #PB_File_IgnoreEOL) and Text <> ""
		; do work with text
	EndIf
	CloseFile(file)
EndIf