A ali001 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #1 abcd.html aaa.xml 123456.rtf 等 文件名中怎么获取文件名，不要文件格式 如： abcd aaa 123456 等
T TourAn Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #2 sFileName string; sFileName := abcd.html sFileName := copy(sFileName,1,Pos(sFileName,'.')-1);
B bjdribllec Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #3 把小数后边的给裁了 s:=pos('.',sname); if s>0 then setlength(sname,s-1);
花 花形 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #5 FileExt := ExtractFileExt(MyFileName); Delete(MyFileName, Length(MyFileName) - Length(FileExt)+1, Length(FileExt));
FileExt := ExtractFileExt(MyFileName); Delete(MyFileName, Length(MyFileName) - Length(FileExt)+1, Length(FileExt));
花 花形 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-12 #6 TourAn的方法如果碰到abd.dsa.xml就出问题了. extractfilename函数是从带路径的字符串中取出文件全名吧.不是楼主所要的~
太 太阳火 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-01 #7 一个函数搞定 （需要users SysUtils） 原型：function ChangeFileExt(const FileName, Extension: string): string; 用法： filename := 'abcd.html'; filename := ChangeFileExt(filename, '') //用空字符串代替原来的扩展名，包括那个.号 //这时filename会变成abcd
一个函数搞定 （需要users SysUtils） 原型：function ChangeFileExt(const FileName, Extension: string): string; 用法： filename := 'abcd.html'; filename := ChangeFileExt(filename, '') //用空字符串代替原来的扩展名，包括那个.号 //这时filename会变成abcd
U uppet Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-05 #8 CGN所说的extractfilename函数是系统自有的函数了,应当算是正解了. 当然如果担心诸如:"ttt.xxx.xxxx.xxx"之类的文件,可以用一个while循环来 判断,当发现两次调用返回相同时,就是"ttt"了.
CGN所说的extractfilename函数是系统自有的函数了,应当算是正解了. 当然如果担心诸如:"ttt.xxx.xxxx.xxx"之类的文件,可以用一个while循环来 判断,当发现两次调用返回相同时,就是"ttt"了.
流 流浪者_2008 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-05 #9 其實可以配合Pos Copy,就可以做到了。。。
M Mark Lai Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-16 #10 同意太阳火的,只要文件名,不要路径就先用ExtractFileName,再用ChangeFileExt,否则就可以直接用ChangeFileExt
