delphi获取子字符串

来源：互联网发布：nginx sticky module 编辑：程序博客网时间：2024/05/16 17:36

1.{作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置字符串
strEnd：结束位置字符串
例：GetStr('abcd1234','bc','34')返回值：'d12'
}
function GetStr(StrSource, StrBegin, StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_star,in_end-in_star);
end;
==============================================================
2.{作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置字符串
strEnd：结束位置字符串
例：GetStrAll('abcd1234','bc','34')返回值：'bcd1234'
}
function GetStrAll(StrSource, StrBegin, StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource);// +length(strbegin)
in_end:=AnsiPos(strend,strsource)+length(strend);
result:=copy(strsource,in_star,in_end-in_star);
end;

==============================================================
3.{ 作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置
strEnd：结束位置字符串
例：GetStr('abcd1234',1,'34')返回值：'abcd12'
}
function GetStrByIndex(StrSource:string; BeginIndex:integer;StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=BeginIndex;
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_star,in_end-in_star);
end;