提取一个文件的文件名和扩展名

最新推荐文章于 2022-04-15 11:05:17 发布

转载最新推荐文章于 2022-04-15 11:05:17 发布 · 893 阅读

文章标签：

#扩展 #integer #string #function

本文介绍了一种从完整文件路径中提取文件名及其扩展名的方法，并提供了一个实用的函数来获取不含扩展名的文件名。

取文件名
ExtractFileName(FileName);
取文件扩展名：
ExtractFileExt(filename);

////////////////////////////////////////////////////////////////////
取文件名，不带扩展名
////////////////////////////////////////////////////////////////////
Function ExtractFileNameNoExt(FileString: String): String;
Var
FileWithExtString: String;
FileExtString: String;
LenExt: Integer;
LenNameWithExt: Integer;
Begin
FileWithExtString := ExtractFileName(FileString);
LenNameWithExt := Length(FileWithExtString); FileExtString := ExtractFileExt(FileString); LenExt := Length(FileExtString);
If LenExt = 0 Then
Begin
Result := FileWithExtString;
End
Else
Begin
Result := Copy(FileWithExtString,1,(LenNameWithExt-LenExt));
End;
End;