修剪文件名但保留文件擴展名

Question

有誰知道如何修剪字符串/文件名但保留文件擴展名？

例如：

我想Picture1.jpg成為Pic.jpg 。

我一直在玩StrUtils單元而無法找到解決方案。 LeftStr是我LeftStr的第一件事。

Answer 1

將名稱拆分為詞干和擴展名。 縮短詞根。 然后重新組合。 像這樣：

function ReduceFileName(const FileName: string; const MaxStemLength: Integer): string;
var
  Ext: string;
  StemLength: Integer;
begin
  Assert(MaxStemLength > 0);
  Ext := ExtractFileExt(FileName);
  StemLength := Length(FileName) - Length(Ext);
  if StemLength <= MaxStemLength then begin
    Result := FileName;
    exit;
  end;
  Result := Copy(FileName, 1, MaxStemLength) + Ext;
end;