条件を満たす行を取り除く in Smalltalk DouKaku?

条件を満たす行を取り除く

ファイルから1行ずつ読み込み、"#"で始まる行だけを取り除いてファイルに出力するコードを書いてください。

サンプル入力

hello!
# remove this
 # don't remove this
bye!

サンプル出力

hello!
 # don't remove this
bye!

post comment

Posted feedbacks - Smalltalk

Squeak Smalltalk で手続き的に。

| file out |
file := FileStream fileNamed: 'test.txt'.
out := FileStream newFileNamed: 'out.txt'.
[file atEnd] whileFalse: [
   | line |
   line := file nextLine.
   line first == $# ifFalse: [
      out nextPutAll: line.
      file peekLast == Character cr ifTrue: [out cr]]].
file close.
out edit

DouKaku?

条件を満たす行を取り除く

Posted feedbacks - Smalltalk

Index

Feed

Other

Link

Pathtraq