从输入中读取数据在Smalltalk中逐行写入流

Question

是否有一种方法可以在Smalltalk中逐行读取输入行？ 我发现了一种方法，即使用“upTo：Character cr”。 有没有其他方法？ 或者我可以读取行作为字符串？

在此先感谢。

Answer 1

这里是如何

string := 'line one 
line two 
line three'. 
stream := string readStream 

现在，

stream nextLine "answers with 'line one'". 
stream nextLine "answers with 'line two'". 
stream nextLine "answers with 'line three'" 

，并在这一点上

stream atEnd "answers with true" 

注意nextLine消耗结束行，而不包括它的答案。如果最后一行没有行尾，则nextLine将在最后停止。

另请注意，这允许循环读取线而stream有更多的数据

[stream atEnd] whileFalse: [self doSomethingWith: stream nextLine] 

如果你想从头阅读：

stream reset 

，如果你想回到前面的位置：

stream position: pos 

例如

stream nextLine "read first line". 
pos2 := stream position "position of the second line". 
stream nextLine "read second line". 
stream nextLine "read third line". 
stream position: pos2 "get back to line 2". 
stream nextLine "again, line 2"