New BLIde beta available

Local theFilename:String="test.bmx"
Local mystream:TStream=OpenStream(theFilename)
While Not Eof(mystream)
  Local theString:String=ReadLine(mystream)
  Print theString
Wend 

SuperStrict
Local theFilename:String="test.bmx"

Local Reader:TextFileReader = New TextFileReader
Local TextStream:TTextStream = reader.CreateStream(thefilename)
While textstream.Eof() = False
	Print textstream.ReadLine()
Wend
End

Type TextFileReader
	Function CreateStream:TTextStream(url:Object,DetectEncoding:Int = True,ForceEncoding:Int = 0 )
		Local Stream:TStream=ReadStream(url) 'This is the base stream
		If Stream = Null Then Return Null 'Unable to open URL
		If detectencoding = False Then
			Local TStream:TTextStream=TTextStream.Create( Stream,forceencoding)
			Return TStream
		Else
			Local TStream:TTextStream=TTextStream.Create( Stream,EncodingDetector(url))
			Return TStream
		EndIf
		
	End Function
	Function EncodingDetector:Int(url:Object)
		Local format:Int = 0  'This is to store the encoding
		Local Stream:TStream=ReadStream(url) 'This is the base stream
		If not Stream.Eof() 'check if there is data to read
			Local c:Byte=Stream.ReadByte()
			If not Stream.Eof()
				Local d:Byte=Stream.ReadByte()  'Get the firt byte to get the encoding
				If c=$fe and d=$ff  'if its FF and FE (Big endian byte order)
					format=TTextStream.UTF16BE
				Else If c=$ff and d=$fe  'Little endian byte order
					format=TTextStream.UTF16LE
				Else If c=$ef and d=$bb
					If not Stream.Eof()
						Local e:Byte=Stream.ReadByte()
						If e=$bf format=TTextStream.UTF8
					EndIf
				EndIf
			EndIf
		EndIf
		Return format
	End Function
End Type