/* demo of csvStream class on files without headers */ csv = .csvStream~new('c:\test.csv') csv~open('write replace') -- Always open csvStreams explicitly -- put some lines in csv~csvLineout(.array~of('Line 1 Field 1', 'Line 1 Field 2', 'Line 1 Field 3')) csv~csvLineout(.array~of('Line 2 Field 1', 'Line 2 Field 2', 'Line 2 Field 3')) csv~close -- close the file csv~open('read') -- reopen it for reading line = 0 do while csv~chars > 0 line += 1 csvArray = csv~csvLineIn do field = 1 to csvArray~items say 'line' line 'Field' field':' csvArray[field] end /* DO */ end /* DO */ csv~close -- close the file ::requires 'CSVStream.cls'