How to open a file in TextArea (quickly)?

	f=ReadFile(fichier$)

	While Not Eof(f)
		ligne$=ReadLine(f) 
		AddTextAreaText MyTextArea,line$+EndLine$
	Wend 

	CloseFile f

This way takes too much time :[

Is this any help?: http://www.blitzbasic.com/codearcs/codearcs.php?code=685

WOW it's strange code for me :)
but it works

Try locking the text area and unlocking it just like a buffer for a speed boost.

This is better:

While Not EOF(f)
    If s$<>"" s=s+Chr(10)
    s=s+ReadLine(f)
    Wend
AddTextAreaText gadget,s