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
 

相关阅读 >>

Delphi 取文件目录下所有文件名和文件目录名

Delphi 读取内存

Delphi判断字符串是否为数字

Delphi连接access提示密码无效解决一例

Delphi 判断文件存在的一个api函数

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi 用iisreset命令重启iis

Delphi中三种方法获取windows任务栏的高度

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串