Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

silvestr © (2006-07-05 09:56:00)
Есть имя файла 111_3434_324сч_2.doc как вытащить именно имя файла без расширения ?

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

Dmitrij_K (2006-07-11 10:31:00) [1]

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

Незачет

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

Calibr2 (2006-07-11 10:04:00) [2]
AnsiRightStr(Полное_Имя_файла, 4);

DVM (2006-07-05 11:07:00) [3]
//------------------------------------------------------------------------------

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;

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

evvcom (2006-07-05 11:03:00) [4]
> [4] Плохиш © (05.07.06 10:58)

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

Плохиш (2006-07-05 10:58:00) [5]

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

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

evvcom (2006-07-05 10:19:00) [6]
> [2] icWasya © (05.07.06 10:14)

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

icWasya (2006-07-05 10:14:00) [7]
FileName_WishOut_Ext:=ChangeFileExt(FileName_Wist_Ext,'');

MBo (2006-07-05 09:59:00) [8]
В справке посмотри
file name utilities

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »