regex - Delphi TRegEx 替换

Question

如果它们与模式匹配，我想将大字符串中的所有字符@替换为#13#10。

但是如何获取我的“[0-9][0-9][0-9][0-9][0-9][0-9][0-9]”的值要放入我的替换字段的模式？

pattern := '@' + '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]' + '\$';
replacement := #13#10 + '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]' + '\$';
ts.Text := TRegEx.Replace(AString, pattern, replacement, [roIgnoreCase]);

Answer 1

要执行检查，您可以使用正向前瞻:

pattern := '@(?=[0-9]{7}\$)'
replacement := #13#10

(?=...) 将检查 @ 后面是否是您想要的内容，而不选择后面的这些数字。