用 FParsec 解析字符串文字？

Question

我想使用 FParsec 解析字符串文字。 “字符串文字”是指在开始和结束引号之间的东西（在我的例子中 - 单引号）：

'Please, switch off your mobile phone'

我目前正在做的事情如下：

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

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

Answer 1

它已经很贪婪了； manySatisfy isLetter 解析输入流中的字母序列。

问题在于解析器因, 或空格而失败，因为它们不是字母。可以通过以下方式修复：

manyChars (noneOf "'")

或更明确地使用：

manySatisfy ((<>) '\'')

改为。