字符取值的问题如：（F：/aa/bb/cc.avi），现在我要取出bb/cc.avi怎么取? 在线等待!!!!! (30分)

meet · 2002-11-19

字符取值的问题如：（F：/aa/bb/cc.avi），现在我要取出bb/cc.avi怎么取? 当然F：/aa/bb/cc.avi这只是一个例子还可能是F：/aaaa/bbbb/cc.avi，结果 是文件名和它的上一级目录一起取出

meet · 2004-01-12

fdsafdasfdafdsaf

goodzp · 2004-01-12

Application.terminate.

mezw · 2004-01-12

最后是我赢得

wzwcn · 2004-01-12

XWHope · 2004-01-16

str:='F:/aaaa/bbbb/cc.avi';   while pos('/',str)>0 do   begin     tmp:=str;     delete(str,1,pos('/',str));   end;   showmessage(tmp); tmp就是你想要的

lysandria · 2004-01-16

用COPY函数就可以了

meet · 2004-01-16

to lysandria: Copy函数可以你写点代码试试，，，，

fanronghua · 2004-01-16

str := 'c:/aaa/bbb/ccc.com';   R := StrScan(pchar(str), '/');   {R = '/aaa/bbb/ccc.com'} 自己想办法！

来如风 · 2004-01-16

i := lastdelimiter('/',copy(str,1,lastdelimiter('/',str)-1));//i 是integer型  copy(str,i+1,length(str)-i); //i是倒数第二个'/'的位置，

ZRWeng · 2004-01-16

2002－2004年了，还没解决吗？ var   str:string;   L:TStringList; begin   str:='c:/abc/cc/dd.avi';   L:=TStringList.Create;   L.Delimiter:='/';   L.DelimitedText:=str;  showMessage(L.Strings[l.Count-2]+              L.Delimiter+              L.Strings[l.count-1]);   L.Free; end;

sunrain_114 · 2004-01-16

function Tform1.GetIt(Str:String):String; var   tempStr:String;   ReStr:String;   ipos:Integer; begin    //F：/aaaa/bbbb/cc.avi   ipos := pos('/',Str);   tempStr := Str;   while ipos<>0 do     begin       tempStr := copy(tempStr,ipos+1,length(tempStr)-ipos);       ipos := pos('/',tempStr);       if ipos<>0 then         ReStr := tempStr;     end;   Result := ReStr; end; 这样就ok了，：）

XWHope · 2004-01-16

我的方法不行？？

weadvance · 2004-01-16

function Tform1.GetIt(Str:String):String; var  tempStr:String;  ReStr:String;  ipos:Integer; begin    //F：/aaaa/bbbb/cc.avi  ipos := pos('/',Str);  tempStr := Str;  while ipos<>0 do    begin      tempStr := copy(tempStr,ipos+1,length(tempStr)-ipos);      ipos := pos('/',tempStr);      if ipos<>0 then        ReStr := tempStr;    end;  Result := ReStr; end; 这样就ok了，：）

meet · 2004-01-16

to XWHope 你的方法行，，，分为给你了，，，

字符取值的问题如：（F：/aa/bb/cc.avi），现在我要取出bb/cc.avi怎么取? 在线等待!!!!! (30分)

meet

Unregistered / Unconfirmed

meet

Unregistered / Unconfirmed

goodzp

Unregistered / Unconfirmed

mezw

Unregistered / Unconfirmed

wzwcn

Unregistered / Unconfirmed

XWHope

Unregistered / Unconfirmed

lysandria

Unregistered / Unconfirmed

meet

Unregistered / Unconfirmed

fanronghua

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

sunrain_114

Unregistered / Unconfirmed

XWHope

Unregistered / Unconfirmed

weadvance

Unregistered / Unconfirmed

meet

Unregistered / Unconfirmed

Similar threads