打印时集合中的元素被截断- Smalltalk

Question

我是Smalltalk的新手，所以如果我没有正确地实现这个解决方案，请原谅。

我正在从一个txt文件中读取一个表，如下所示：

1 3 5
2 4 7
55 30 50

我通过readStream读取该文件，如下所示：

inStream := inFile readStream.

其中inFile是输入文件的地址。

inStream使用以下方法构建表：

readInput: inStream
        
        | line |
        
        rows := OrderedCollection new.
        [ (line := inStream nextLine) notNil ] whileTrue: [ rows add: line.
                                                            Transcript 
                                                                        show: 'read line:';
                                                                        show: line;
                                                                        cr.
                                                          ].

最后，我使用这个方法打印特定的列：

printCols: columns
    "comment stating purpose of instance-side method"
    "scope: class-variables  &  instance-variables"
    
    | columnsCollection |
    
    columnsCollection := columns findTokens: ','.

    rows do: [ :currentRow |
                            columnsCollection do: [ :each |
                                                            Transcript 
                                                                    show: (currentRow at: (each asInteger) );
                                                                    show: ' '.                                                                                          
                                                  ].
                            Transcript cr.
              ].

其中，columns是以字符串形式传入的、以逗号分隔的列列表，我希望打印这些列。

我不确定我的printCols函数出了什么问题，但是我看到的输出总是删除给定项目的第二个数字。例如，当打印第一列时，我将得到：

1
2
5

任何帮助都是非常感谢的！

Answer 1

正如Leandro Caniglia在文章的评论中提到的，问题是currentRow是一个字符串，而我期望它是一个集合，因此，在columnsCollection循环中，我访问的是单个字符，而不是集合中的元素。

解决方案是更改我在行中读取的方式，以确保它们被视为集合的集合，而不是String的集合。

readInput: inStream

        | line |
        
        rows := OrderedCollection new.
        [ (line := inStream nextLine) notNil ] whileTrue: [ |row|
                                                                row := OrderedCollection new.
                                                                row := line findTokens: ' '.
                                                                rows add: row.
                                                          ].

谢谢你的帮助！