Unicode Pattern

[danilomarcondes]

Hi,
I'm using VisualAge Smalltalk 6.0 (IBM), and I need to build a .txt file, within the Unicode pattern.
I've already used some methods to change a String to this codification, but the file still builds itself as an ANSI file.
Any sugestion would be very helpful.
Thanks.

Danilo Marcondes

[marten]

Hi,
I'm using VisualAge Smalltalk 6.0 (IBM), and I need to build a .txt file, within the Unicode pattern.
I've already used some methods to change a String to this codification, but the file still builds itself as an ANSI file.
Any sugestion would be very helpful.
Thanks.

Danilo Marcondes

Here is an example suitable for Windows:

Code: Select all

"example how to create UTF-8 based text files"
| codePageString utfString aCfsPath aWriteStream |

aCfsPath := CfsPath named: 'd:\test-smalltalk.txt'.
aWriteStream := aCfsPath writeStreamBinary: true.

codePageString := 'I am using German umlauts: öäüÖÄÜß'.
utfString := codePageString convertToCodePage: AbtCodePageConverter utf8CodePage.

aWriteStream
  "first I write the BOM mark"
  nextPut: (Character value: 16rEF);
  nextPut: (Character value: 16rBB);
  nextPut: (Character value: 16rBF);
  "and now the text"
  nextPutAll: utfString;
  close


[danilomarcondes]

Thanks, Marten!