Question

如何用Delphi 获取URL中的关键字中的部分

如何用Delphi 获取URL中的关键字中的部分。 比如关键字为<sortlist>id</sortlist>.. 获取中间那个变量ID 值

Answer 1

用这个函数试试
function CenterStr(Src: string; Before, After: string): string;
var
Pos1, Pos2: WORD;
begin
Pos1 := Pos(Before, Src);
Pos2 := Pos(After, Src);
if (Pos1 = 0) or (Pos2 = 0) then //如果src中没有B串和A串
begin
Result := '';
Exit;
end;
Pos1 := Pos1 + Length(Before); //句1.B串起始位+B串的长度
if Pos2 - Pos1 = 0 then
begin
Result := '';
Exit;
end;
Result := Copy(Src, Pos1, Pos2 - Pos1); // 从B串后的第一字符开始复制
//此函数的作用实际上就是取得B\A两串之得的字符串,适用于BA两串已知, 要取的串由用户确定的情况
end;

用法
var
uRL,qc,hc,syc:string;
begin
URL:='<sortlist>id</sortlist>';
qc:='<sortlist>';
hc:='</sortlist>';
syc:=CenterStr(ur,qc,);
end;

Answer 2

有时间的话就学下正则表达式吧，
没时间的话就先截成 id</sortlist>，然后再截成 id

追问

有没截取的代码？