日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術(shù)開發(fā)教程 > 詳細頁面

減少文件路徑名的長度

減少文件路徑名的長度

更新時間:2022-05-16 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

如果有這樣一個目錄:  
  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; 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 五月欧美激激激综合网色播 | 最近高清中文字幕大全1 | 一区二区免费 | 小泽玛利亚在线观看123 | 伊人久久大香现线蕉 | 亚洲国产精品婷婷久久久久 | 久久综合九色综合97伊人麻豆 | 免费观看欧美精品成人毛片能看的 | 国产精品久久久久免费视频 | 国产91网站在线观看 | 91原创在线| 国产成人精品视频2021 | 欧美激情一区二区三区视频高清 | 欧美日韩乱国产 | 人人艹人人射 | 欧美日韩国产深夜福利视频 | 日本啪啪网站 | 欧美成人精品动漫在线专区 | 一区二区精品久久 | 日本亚洲精品色婷婷在线影院 | 1024国产基地永久免费 | 视频色www永久免费 视频亚洲一区 | 亚洲综合三区 | 不卡中文字幕在线 | 国产精品嫩草影院午夜 | 91视频欧美| 成人欧美一区二区三区视频不卡 | 免费国产黄线在线观看软件 | 日本最新免费二区三区 | 一个人看的www视频在线 | 国产精品久久久久久久久久久搜索 | 欧美蜜臀| 亚洲欧美日韩一级特黄在线 | 久久精品国产亚洲5555 | 色婷婷激情五月 | 韩日精品在线 | 1769国产精品免费视频 | 在线观看欧美亚洲 | 国产精品久久久久久久久 | 国产视频精品免费 | 亚洲国产精品热久久2022 |