5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

ΨΨΨ Smalltalk/ Squeak 教えろゴルァ ΨΨΨ

353 :デフォルトの名無しさん:01/11/22 14:01
ファイル入出力関係ですが、いいですか?

1. ファイルlog.datに "test0, test1, test2" と書き出す("は書き出さない)。
2. ファイルlog.datの内容を読み込む。
3. カンマ(,)で区切られた文字列を両端の空白を削除して取得する。

"1"
strOut := 'test0, test1, test2'.
out := DataStream newFileNamed: 'log.dat'.
out nextPut: strOut.
out close.


"2と3"
in := FileStream readOnlyFileNamed: 'log.dat'.
strIn := in contentsOfEntireFile.
in close.
tx := TextDiffBuilder new.
cltn := tx split: strIn by:$,.
cltn do: [:str| Transcript show:(str trimBlanks); cr].


下の2と3の処理はうまく実行できました。

しかし、1で書き出すときにファイルの先頭に変な制御文字が出力されます。
代わりに FileStream print:strOut とすると、
(')がファイルの先頭と最後に追加されてしまいます。

みなさん、どうされていますか?

232 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)