如何在Smalltalk中读取和处理CSV文件的内容

Question

我正在尝试在Smalltalk（visualworks）中读取和处理一个csv文件的内容，但我好像很难让字符串拆分成一个阵列请。以下是我已经能够工作的代码。我所缺少的是将myLine变量（逗号分隔的字符串）的内容拆分为一个字符串数组，将其添加到TwoDList中。请帮助您提供有关如何处理此问题的任何信息。由于

SpreadsheetReadCSV: inFilename 
    |inStream myLine rcnt| 
     rcnt := 0. 
     " scan thru the text lines, using a traditional i/o loop " 
     inStream := (inFilename asFilename) readStream . 
     [ inStream atEnd ] whileFalse: [ 
      rcnt := rcnt + 1. 
      myLine := inStream upTo: Character cr. 
       "Process the commadelimited string here" 
     ]. 
     inStream inspect. 
     inStream close. 
    ^myLine. 

Answer 1

1）你可以把字符串转换成流为好，这样你就可以使用相同的技术，你用来解析文件到行：

myLine := (inStream upTo: Character cr) readStream. 
[ myLine atEnd ] whileFalse: [ | myCell | 
    myCell := myLine upTo: $,. 
    "Do whatever with the cell" ] 

2）您可以拆分字符串成片使用tokensBasedOn：

myLine tokensBasedOn: $, 

Answer 2

您可能要检查出squeaksource的CSVParser项目。在Visualworks中工作并不困难。

这会给你的所有CSV文件支持（例如带的转义字符，引号的字段等等）

另见this post

Answer 3

大概是最快的方法是装载包裹“GHCsvImportExport”。 然后，你可以这样做：

| reader lines | 
reader := CsvReader onFileNamed: aFilename. 
[lines := OrderedCollection new. 
[reader atEnd] whileFalse: 
    [lines add: reader nextLine.]] 
    ensure: [reader close]. 
lines inspect. 

Answer 4

Someone ported的NeoCSV解析器菲罗到VisualWorks中。它可能会解决你的问题。