减少文件路径名的长度

时间： 2021-07-31 作者：daque

即使有如许一个目次：　　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;

减少文件路径名的长度

相关推荐

推荐下载

热门阅览

最新排行