Delphi 提取标签之间的字符串

本文整理自网络，侵删。

 
Function sExtractBetweenTagsB(Const s, LastTag, FirstTag: string): string;
var
  pLast,pFirst,pNextFirst : Integer;
begin
  pFirst := Pos(FirstTag,s);
  pLast := Pos(LastTag,s);
  while (pLast > 0) and (pFirst > 0) do begin
    if (pFirst > pLast) then // Find next LastTag
      pLast := PosEx(LastTag,s,pLast+Length(LastTag))
    else
    begin
      pNextFirst := PosEx(FirstTag,s,pFirst+Length(FirstTag));
      if (pNextFirst = 0) or (pNextFirst > pLast) then begin
        Result := Copy(s,pFirst,pLast-pFirst+Length(LastTag));
        Exit;
      end
      else
        pFirst := pNextFirst;
    end;
  end;
  Result := '';
end;

var
  s: String;

begin
  s := 'Delphi App Hello Hello SomeText here Hello Hello Hello This is a Test! Hello';
  WriteLn(sExtractBetweenTagsB(s,'Test','Hello'));
end.

输出:
Hello This is a Test

来源：https://stackoverflow.com/questions/30827180/delphi-extract-string-between-tags-duplicate-tags
 

相关阅读 >>

Delphi在设计时设置tstringgrid控件各列的列宽

阻止删除文件(文件占坑)的Delphi代码

Delphi中禁用和取消android应用睡眠

Delphi 在窗口作图的源代码

Delphi 向其他程序发送模拟按键

Delphi [fmx]如何使用剪贴板

Delphi 判断文本是否包含多个关键词之一

汇编数据宽度和字节序

Delphi idhttp数据自动编码

Delphi ios取设备唯一值

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

转载请注明出处：木庄网络博客 » Delphi 提取标签之间的字符串