本文整理自网络，侵删。
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.
相关阅读 >>
winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母
更多相关阅读请进入《Delphi》频道 >>
