Как вытащить имя файла без расширения ?

← →
silvestr (2006-07-05 09:56) [0]

Есть имя файла 111_3434_324сч_2.doc как вытащить именно имя файла без расширения ?

Или как срезать с конца 4 символа ?

← →
MBo © (2006-07-05 09:59) [1]

В справке посмотри
file name utilities

← →
icWasya © (2006-07-05 10:14) [2]

FileName_WishOut_Ext:=ChangeFileExt(FileName_Wist_Ext,"");

← →
evvcom © (2006-07-05 10:19) [3]

> [2] icWasya © (05.07.06 10:14)

А файл переименовывать никто и не просил.
[0]: ExtractFileName, ExtractFileExt, Length, Copy.

← →
Плохиш © (2006-07-05 10:58) [4]

> evvcom © (05.07.06 10:19) [3]
> > [2] icWasya © (05.07.06 10:14)
>
> А файл переименовывать никто и не просил.

А никто и не переименовывал.

← →
evvcom © (2006-07-05 11:03) [5]

> [4] Плохиш © (05.07.06 10:58)

Да уж, оп-с. :) Надо было все ж в справку мне глянуть. Приношу свои извинения. :)

//------------------------------------------------------------------------------

function ExtractFileName(const FileName: string): string;
var
I: Integer;
begin
I := Length(FileName);
while (I >= 1) and not (FileName[I] in ["\", ":"]) do Dec(I);
Result := Copy(FileName, I + 1, Length(FileName)-I);
end; //End of function ExtractFileName

//------------------------------------------------------------------------------

function ExtractFileExt(const FileName: string): string;
var
I: Integer;
begin
I := Length(FileName);
while (I > 1) and not (FileName[I] in [".", "\", ":"]) do Dec(I);
if (I > 0) and (FileName[I] = ".") then
Result := Copy(FileName, I, Length(FileName) - I + 1) else
Result := "";
end; //End of function ExtractFileExt

//------------------------------------------------------------------------------

function ExtractFileNameWoExt(const FileName : string) : string;
begin
Result := ExtractFileName(FileName);
Result := Copy( Result, 1, Length( Result ) - Length( ExtractFileExt( Result ) ) );
end;

//------------------------------------------------------------------------------

← →
Calibr2 (2006-07-11 10:04) [7]

AnsiRightStr(Полное_Имя_файла, 4);

← →
Dmitrij_K (2006-07-11 10:31) [8]

> AnsiRightStr(Полное_Имя_файла, 4);

Незачет

Бывают такие имена файлов
страничка.html
торрент.torrent

Как вытащить имя файла без расширения ? Найти похожие ветки