string-matching - 如何将匹配的字符存储在变量中，而不是在 SNOBOL 中替换它们

Question

我一直在尝试找到一种将元音和辅音与提供的输入分开的方法。我知道如何匹配和替换，但我不知道如何打印匹配的字符而不是替换它们。

我的代码是这样删除匹配字符的：我希望 TEXT 变量保持不变并将匹配字符存储在另一个变量中

?      OUTPUT = "Please enter a string: "
?      TEXT = INPUT
?      VOWEL_WORDS = 'A' | 'a' | 'E' | 'e' | 'I' | 'i' | 'O' | 'o' | 'U' | 'u'
?      CONS_WORDS = 'B' | 'b' | 'C' | 'c' | 'D' | 'd' | 'F' | 'f' | 'G' | 'g' | 'H' | 'h' | 'J' | 'j' | 'K' | 'k' | 'L' | 'l' | 'M' | 'm' | 'N' | 'n' | 'P' | 'p' | 'Q' | 'q' | 'R' | 'r' | 'S' | 's' | 'T' | 't' | 'V' | 'v' | 'W' | 'w' | 'X' | 'x' | 'Y' | 'y' | 'Z' | 'z'
?
?MATCH TEXT VOWEL_WORDS = :S(MATCH) F(OTHER)
?OTHER
?      OUTPUT TEXT

标签： string-matchingsnobol