Question

delphi取得指定字符串

如：
<by>123<over>
<by>2142342<over>

如果利用delphi把<by><over>里面的内容截取出来呢？
别copy(4,6)这样的类型啊。。
谢谢

Answer 1

用正则表达式把。

1、下载控件：
http://www.regexpstudio.com/Downloads/regexpr.rar

===================================================================
uses
RegExpr;

procedure TForm1.Button1Click(Sender: TObject);
const
reg: string ='<by>(.*?)<over>';
content: string ='<by>123<over><by>2142342<over>';
var
RegExpr: TRegExpr;
begin
RegExpr := TRegExpr.Create;
try
RegExpr.Expression :=reg;
if RegExpr.Exec(content) then
begin
repeat
showmessage(RegExpr.Match[1]);
until not RegExpr.ExecNext;
end;
finally
FreeAndNil(RegExpr);
end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
tempStr: String;
i, j: Integer;
begin
j:= 4; //因为'<by>'的长度是固定的
tempStr:= '<by>123<over>';
i:= PosEx('<', tempStr, j);
tempStr:= copy(tempStr, j + 1, i - j - 1);
ShowMessage(tempStr);
end;

Answer 3

str:='<by>123<over> ';
copy(str,4,pos(str,'<over>'));
或
RightStr(str,Length(str)-4);

Answer 4

只能用正则了