How to open a file in TextArea (quickly)?
BlitzPlus Forums/BlitzPlus Programming/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 |