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

當前位置:雨林木風下載站 > 技術(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)下載排行

主站蜘蛛池模板: 精品亚洲成a人片在线观看 精品亚洲成a人在线播放 | 久久这里只有精品久久 | 日本韩国欧美一区 | 99pao强力打造免费高清色 | 亚洲五月网 | 国产欧美日韩精品在线 | 女网址www | 国产免费理论片在线观看 | 精选国产门事件福利在线观看 | 日韩久久久精品首页 | 久久综合色婷婷 | 色综合亚洲天天综合网站 | 久久亚洲国产欧洲精品一 | 狼群影院2019在线 | 国产在线步兵一区二区三区 | 亚洲精品啪啪一区二区三区 | 91麻豆国产免费 | 国产欧美日韩中文久久 | 国产一区二区三区在线看 | 国产黑丝在线 | 国产成人精品s8p视频 | 在线 亚洲 欧美 | 欧美国产综合视频在线观看 | 亚洲视频2| 日韩欧美一区二区三区不卡在线 | 欧美一区二区三区黄色 | 伊人婷婷 | 久久久久香蕉视频 | 日韩国产精品欧美一区二区 | 91青青青国产在观免费影视 | 555www免费人成一看片 | 亚洲国产在 | 青娱乐激情视频 | 欧美一级日韩一级 | 久久99精品久久久久子伦 | 手机在线看片日韩 | 欧美男男的同性videos | 亚洲精品成人 | 在线国产不卡 | 国产福利在线观看一区二区 | 丁香六月天婷婷 |