parsing - 使用 PetitParser 在 Smalltalk 字符串中查找标记

Question

我想解析

'This,is,an,example,text'

就像在 findTokens 中一样

'This,is,an,example,text' findTokens: $, 
an OrderedCollection('This' 'is' 'an' 'example' 'text')

但无法弄清楚如何使用 PetitParser、delimitedBy: 和eparatedBy: 没有帮助我我试过了

( #any asParser delimitedBy: $, asParser ) plus flatten parse:  'This,is,an,example,text'

但显然没有用

Answer 1

您可以使用 delimitedBy:结合 withoutSeparators :

|text parser|

text := 'This,is,an,example,text'.
parser := (#word asParser plus flatten delimitedBy: ($, asParser)) withoutSeparators.

parser parse: text

似乎是对 PetitParser 的最新改进。