delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串
function GetNextMatch(AValue, APattern: string): string;
var
i: Integer;
Regex: TRegex;
s: string;
begin
Regex := TRegex.Create(APattern, [roIgnoreCase]);
for i := 0 to Regex.Matches(AValue).Count -1 do
begin
Result := Regex.Matches(AValue).Item[i].Value;
GetNextMatch(Result, APattern);
end;
end;
调用 GetNextMatch('begindklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkdend', '(?<=begin)([.\S\s]*)(?=end)');
结果：
dklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkd，
diekdjekdenickdkekkdiuiuijuj
|
|
联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678