Question

delphi中posex怎么用？比如说我要取12-12345-6这个数中的- -之间的数，怎么做？

Answer 1

什么叫做- -之间的数，如果你指的是123456，并且一定要用posex的话。

var
nPos1,nPos2:integer;
sub:string;
text:string;
str:string;
begin
sub:='-';
text:='12-12345-6';
nPos1 :=PosEx(sub,text,1);
nPos2:=PosEx(sub,text,nPos1 +Length (sub));
//showmessage(inttostr(npos1)+'   '+inttostr(npos2));
str := copy(text,npos1+Length (sub),nPos2-nPos1-Length (sub));
showmessage(str);
end;