Скачать: CL | DM;

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

← →
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)

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

---

← →
DVM ©   (2006-07-05 11:07) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c