parsing - 有人能模仿R2中的find/any行为吗？

Question

Rebol2对FIND函数进行了/ANY细化，可以执行通配符搜索:

>> find/any "here is a string" "s?r"
== "string"

我在需要良好性能的紧密循环中广泛使用了它。但是在Rebol3中删除了改进。

在Rebol3中最有效的方法是什么？ (我正在猜测某种 parse解决方案。)

Answer 1

这是处理“*”情况的一种方法:

like: funct [
    series [series!]
    search [series!]
][
    rule: copy []
    remove-each s b: parse/all search "*" [empty? s]
    foreach s b [
        append rule reduce ['to s]
    ]
    append rule [to end]
    all [
        parse series rule
        find series first b
    ]
]

用法如下:

>> like "abcde" "b*d"
== "bcde"