嘿，在Stata 15里要实现提取所有匹配字符并以空格分隔的需求，其实有两种实用的方法，我给你详细拆解一下：

方法一：正则替换法（推荐，简洁高效） #

这个思路很直接：先保留所有你要的目标字符（a、c、d、g）和原字符串里的空格，删掉其他所有内容，再整理一下多余的空格就行。

直接上代码：

clear
input str18 string
"a b c"
"d e f"
"g h i"
end

// 第一步：删掉所有不是目标字符或空格的内容
generate new = ustrregexra(string, "[^acdg ]", "")
// 第二步：把连续的多个空格换成单个空格
replace new = ustrregexra(new, " +", " ")
// 第三步：去掉首尾的多余空格
replace new = trim(new)

运行完就能得到你想要的结果：

简单解释下这里的正则：

• [^acdg ]：方括号里的^表示“排除”，所以这个模式会匹配所有不是a、c、d、g和空格的字符，用ustrregexra替换为空后，就只剩目标字符和空格了。
• +：匹配一个或多个连续空格，替换成单个空格避免格式混乱。
• trim()：确保字符串首尾不会留多余的空格。

方法二：循环查找法（更灵活，适合复杂场景） #

如果你的匹配规则以后变复杂了（比如要提取特定模式的子串，不是单个字符），可以用循环逐个提取匹配项：

clear
input str18 string
"a b c"
"d e f"
"g h i"
end

// 初始化新变量为空字符串
generate new = ""
// 定义要匹配的字符集合
local target_chars "[acdg]"

// 循环查找所有匹配项，这里设10次足够覆盖大多数情况（可按需调整）
forvalues pos = 1/10 {
    // 从上次匹配的位置后开始查找，避免重复匹配
    local start = max(`pos'-1, 1)
    // 找到匹配项就拼接到new里
    replace new = new + " " + regexs(0) if regexm(string, "`target_chars'", `start')
}

// 去掉开头的多余空格（第一次拼接会多一个空格）
replace new = substr(new, 2, .) if new != ""

这个方法的好处是能灵活控制每一次查找的位置，要是你需要对每个匹配的内容做额外处理，这种方式就更方便。

内容的提问来源于stack exchange，提问作者b_surial