截取指定关键字中间的子串

最新推荐文章于 2019-06-27 08:53:30 发布

luxuewei5214

最新推荐文章于 2019-06-27 08:53:30 发布

阅读量102

点赞数

本文链接：https://blog.csdn.net/luxuewei5214/article/details/82186852

版权

function ExtractSubString(OriginalStr, StartStr, EndStr: string; var NewStr: string): string;
var
? i, Len: integer;
? ss: string;
begin
? Result := '';
? Len := Length(OriginalStr);
? i := pos(StartStr, OriginalStr);
? if i > 0 then
? begin
??? ss := Copy(OriginalStr, i + Length(StartStr), Len);

??? //if EndStr = '', then copy all the string
??? if EndStr <> '' then
??? begin
????? i := pos(EndStr, ss);
????? if i > 0 then
????? begin
??????? Result := Copy(ss, 0, i - 1);
??????? NewStr := Copy(ss, Length(Result) + 1, Len);
????? end;
??? end else? //EndStr = ''
??? begin
????? Result := ss;
????? NewStr := '';
??? end;
? end;
end;