Read a file character by character/UTF8: Difference between revisions

Content added Content deleted
Line 1,304: Line 1,304:
{{works with|Smalltalk/X}}
{{works with|Smalltalk/X}}
<lang smalltalk>|utfStream|
<lang smalltalk>|utfStream|
utfStream := 'input' asFilename asUTF8EncodedStream.
utfStream := 'input' asFilename readStream asUTF8EncodedStream.
[utfStream atEnd] whileFalse:[
[utfStream atEnd] whileFalse:[
Transcript showCR:'got char ',utfStream next.
Transcript showCR:'got char ',utfStream next.