【问题标题】：Remove special characters from string in Red language从红色语言的字符串中删除特殊字符
【发布时间】：2017-09-20 18:03:00
【问题描述】：

我想删除字符串中的所有字符，除了：

- 或 _ 或 .
A 直通Z
a 直通z
0 到 9
空间

在 linux 命令行上，使用 sed 我会这样做：

$ echo "testing-#$% yes.no" | sed 's/[^-_.a-zA-Z0-9 ]//g'

输出：

testing- yes.no

如何使用 PARSE 在 Red 语言中实现相同的效果？我看了看：

但是，我无法对其进行编码。我试过了：

>> parse "mystring%^&" [#a - #z #A - #Z #0 - #9]
== false
>> parse "mystring%^&" [#a-#z#A-#Z#0-#9]        
== false

【问题讨论】：

如果你想删除一些字符，记得使用trim。 trim/with "testing-#$% yes.no" "-#$%." == "testing yesno"

标签： regex rebol red

【解决方案1】：

首先注意ISSUE的区别！还有 CHAR！

#a #b #c  ; issues
#"a" #"b" #"c"   ; chars

然后，您可以为要保留的字符或要丢弃的字符建立一个字符集（BITSET！类型）。我们将在这里做前者：

good-chars: charset [#"a" - #"z" #"A" - #"Z" #"0" - #"9"]

现在我们有了这个，我们可以通过一些不同的方式来解决这个问题：

解析

一个相当基本的解析循环——跳过任何good-chars 并删除任何其他内容。

parse "mystring%^&" [any [some good-chars | remove skip]]

删除-每个

希望不言自明：

remove-each char "mystring%^&" [not find good-chars char]

【讨论】：

在红色命令行上，您的第一个答案（解析...）produces ==true 作为输出。第二个答案（remove-each...）不产生任何输出。为什么会这样？
如果规则匹配，@rnso Parse 返回 true。在 Red 中，您可以这样包装规则：take parse "mystring%^&" [collect [keep any [some good-chars | remove skip]]]，但这会复制字符串。显然 remove-each 返回上一次迭代的乘积——在 Rebol 2 中它将返回修改后的系列。请注意，我的两个答案都是按原样修改现有字符串，它们不会创建新字符串。
@rnso 如果您的字符串设置为一个单词，您可以使用 ALSO：also mystring parse mystring [any [...]] 或：also mystring删除每个字符 mystring [...]
很好的信息。您可以将这些 cmets 添加到上面的答案中，因为许多读者只是阅读答案而不是 cmets。
@rnso 这意味着我按要求回答了您的问题。您选择的答案实际上会在此过程中创建几个新字符串。

【解决方案2】：

首先，字符必须用引号括起来，#a 是 issue!，char! 是 #"a"。您的规范是正确的，但您必须将其传递给 charset 函数，以使其形成 bitset!。

然后你可以parse你的字符串，keeping 有效字符和skiping 无效：

>> chars: charset [#"a" - #"z" #"A" - #"Z" #"0" - #"9"]
== make bitset! #{000000000000FFC07FFFFFE07FFFFFE0}
>> rejoin parse "mystring%^&asdf" [collect some [keep chars | skip]]
== "mystringasdf"

【讨论】：

【解决方案3】：

PARSE 的替代解决方案是在此处使用 REPLACE 和 COMPLEMENT CHARSET：

replace/all "mystring%^&" complement charset [{-_. } #"a" - #"z" #"0" - #"9"] {}

注意。以上作品在 Rebol (2 & 3)。不幸的是，它目前以红色挂起（在 MacOS 上测试 0.63）。

【讨论】：