Read a file character by character/UTF8: Difference between revisions
Content added Content deleted
No edit summary |
(Read a file character by character/UTF8 en FreeBASIC) |
||
Line 224:
[ read1 dup ] [ 1string write ] while drop
] with-file-reader</lang>
=={{header|FreeBASIC}}==
<lang freebasic>Dim As Long f
f = Freefile
Dim As String filename = "file.txt"
Dim As String*1 txt
Open filename For Binary As #f
While Not Eof(f)
txt = String(Lof(f), 0)
Get #f, , txt
Print txt;
Wend
Close #f
Sleep</lang>
=={{header|FunL}}==
| |||