[St-ES] Pareseo ficheros de texto

Esteban A. Maringolo eMaringolo at smalltalking.net
Wed Aug 24 20:20:29 MDT 2005


Eduardo Ferro Aldama escribió:
>>"... instancias el fileStream... blahblah..."
>>result := OrderedCollection new.
>>[stream atEnd] whileFalse: [| token |
>>   (token := (stream upTo: anObject) trimBlanks notEmpty) ifTrue: [
>>	result add: (TuClase fromStringRecord: token)
>>	]
>>].

> Más o menos es lo que estaba haciendo, aunque un poco peor puesto que no
> eliminaba los blancos, ni miraba si la cadena quedaba vacia....

> Esto me vale bien, aunque también quiero probar el mensaje #findTokens:
> que me ha comentado Joan y que tampoco conocia.

La diferencia entre cargar todo en una OrderedCollection o cualquier 
otra collection secuenciable, y leer desde un FileStream, tiene que ver 
con que con el segundo no hace falta "cargar" todo el contenido en memoria.

Saludos.

--
Esteban.



More information about the Smalltalk mailing list