使用 FParsec 解析字符串文字？

Question

我想使用 FParsec 解析字符串文字。 “字符串文字”是指介于开头和结尾引号之间的内容(在我的例子中是单引号):

'Please, switch off your mobile phone'

我目前正在做的是:

let string = between (pstring "'") (pstring "'") (manySatisfy isLetter)

但这会在第一个字母被消耗后停止。有什么办法让它变得贪心吗？

Answer 1

已经很贪心了； manySatisfy isLetter 从输入流中解析字母序列。

问题是解析器因 、 或空格而失败，因为它们不是字母。它可以通过使用修复:

manyChars (noneOf "'")

或更明确地使用:

manySatisfy ((<>) '\'')

相反。