一个简单的字符串操作的问题?在线等!!

[laodiao]

我想问一下,在字符串中
c:\diao.....\111\222\diao.xls
如何将111,222,diao.xls 这三个字符取出来,前面的目录可能有多个,但是后面的是固定的,我是想问一下,怎样取出这几个子字符串>>>

[Snakeguo]

str := 'c:\diao.....\111\222\diao.xls';
i := pos('111', str);
if i > 0 then
str := copy(str, i, 3);//'111'

[johnsonrao]

S1,S2,S3 是你想要的

var ArPos: array of Integer;
S, S1,S2,S3: String;
i,j: Integer;
begin

S:='c:\diao.....\111\222\diao.xls';
j:=1;

For i:=0 to Length(S)-1 do
begin
if S[i]='\' then begin
SetLength(ArPos,j);
ArPos[j-1]:=i;
j:=j+1;
end;
end;
S1:=Copy(S,ArPos[Length(ArPos)-3]+1,ArPos[Length(ArPos)-2]-ArPos[Length(ArPos)-3]-1);
S2:=Copy(S,ArPos[Length(ArPos)-2]+1,ArPos[Length(ArPos)-1]-ArPos[Length(ArPos)-2]-1);
S3:=Copy(S,ArPos[Length(ArPos)-1]+1,255);