网站首页/技术开发列表/内容

减少文件路径名的长度

技术开发2022-05-16阅读
如果有这样一个目录:  
  c:\windows\media\temp\abc\sound\chime.wav  
我希望它能缩短成:  
   c:\windows\..\sound\chime.wav  
  如何写程序呢?  

function shortenfilename(s : string) : string;  
var  
  drive,curdrive : string[2];  
  dir,curdir : string[80];  
  name : string[20];  
  ext : string[5];  
  i : byte;  
begin  
 for i:=1 to length(s) do s[i]:=upcase(s[i]);  
  s:=fexpand(s);  
  fsplit(s,dir,name,ext);  
 drive:=copy(dir,1,2);  
  dir:=copy(dir,4,length(dir)-3);  
  getdir(0,curdir);  
 curdrive:=copy(curdir,1,2);  
 curdir:=copy(curdir,4,length(curdir)-3)+‘\';  
 if drive=curdrive then begin  
 if copy(dir,1,length(curdir))=curdir then begin  
 i:=length(curdir);  
 if length(dir)<>i then dir:=dir+‘\';  
 shortenfilename:=copy(dir,i+1,length(dir)-i-1)+name+ext;  
 end else shortenfilename:=copy(s,3,length(s)-2);  
  end else shortenfilename:=s;  
end; 

……

相关阅读