sumim #602(2007/07/12 01:29 GMT) [ Smalltalk ] Rating0/0=0.00
Squeak Smalltalk で手続き的に。
1 2 3 4 5 6 7 8 9 10 11
| 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
Rating0/0=0.00-0+
[ reply ]
sumim
#602()
[
Smalltalk
]
Rating0/0=0.00
| 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 editRating0/0=0.00-0+
[ reply ]