VPF::Помогите пеобразовать код - Форум программистов

Trahten

Дата 6.2.2006, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.2.2006

Репутация: нет
Всего: нет

Код

put:=edit1.Text;
if FindFirst(put, faAnyFile, SearchRec)=0 then
repeat
s:=SearchRec.Name;

if (s='.') or (s='..') then else
StringGrid1.Cols[1].Add(s);
StringGrid1.RowCount:=StringGrid1.RowCount+1;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

Этот код сканирует всю директорию и заноcит в таблицу имена файлов с РАСШИЕРЕНИЯМИ.
Как получить на выходе имена файлов без разширений. Или предложите другой код. smile

Snowy

Дата 7.2.2006, 00:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


  put:=edit1.Text;    
  if FindFirst(put, faAnyFile, SearchRec)=0 then    
  repeat    
    s:=SearchRec.Name;
    s := copy(s, 1, Length(s) - Length(ExtractFileExt(s)));
    if s[1] <> '.' then begin
      StringGrid1.Cols[1].Add(s);    
      StringGrid1.RowCount:=StringGrid1.RowCount+1;
    end;
  until FindNext(SearchRec) <> 0;    
  FindClose(SearchRec);

Добавлено @ 00:14
Или написать свою функцию отрезания расширений:

Код


function ExtractFileNamePart(const FileName: string): string;
var
  I: Integer;
begin
  I := LastDelimiter('.', FileName);
  if (I > 0) and (FileName[I] = '.') then
    Result := Copy(FileName, 1, I-1) else
    Result := FileName;
end;

Демо

Дата 7.2.2006, 00:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


    FilePath := ExtractFileName(FilePath);
    FilePath := Copy(FilePath,1,Length(ExtractFileExt(FilePath)));

--------------------

Albinos_x

Дата 7.2.2006, 06:23 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Демо @ 7.2.2006, 00:44

)

код Pascal/Delphi
FilePath := ExtractFileName(FilePath);
FilePath := Copy(FilePath,1,Length(ExtractFileExt(FilePath)));

так не прокатит... получишь от имени файла несколько символов по количеству символов в расширении вместе с точкой, тогда уж вот так:

Код

...
FilePath := ExtractFileName(FilePath);    
n:=Length(FilePath);
n1:=Length(ExtractFileExt(FilePath));
FilePath := Copy(FilePath,1,n-n1);
...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

~FoX~

Дата 7.2.2006, 08:39 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


function GetShortName(s: string): string; //Получаем файа без расширения
var
  i: integer;
begin
  i:=LastDelimiter('.', s);
  result:=copy(s, 0, Length(s)-i+1);
end;

Это сообщение отредактировал(а) ~FoX~ - 7.2.2006, 08:40

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 7.2.2006, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(~FoX~ @ 7.2.2006, 08:39

)

i:=LastDelimiter('.', s);
result:=copy(s, 0, Length(s)-i+1);

Ну во-первых copy не от 0, а от 1.
А во-вторых... Если файл без расширения?

Цитата(Демо @ 7.2.2006, 00:44

)

ExtractFileName(FilePath);

Зачем? В TSearchRec у файлов нет пути. Там только имя и расширение.

Albinos_x

Дата 7.2.2006, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Snowy @ 7.2.2006, 09:50

)

Зачем? В TSearchRec у файлов нет пути. Там только имя и расширение.

угу...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Trahten

Дата 7.2.2006, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.2.2006

Репутация: нет
Всего: нет

Прога работет по коду Albinos_x ВСЕМ спасибо тему закрываем

Yanis

Дата 8.2.2006, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Зачем загромождать код, когда можно обойтись одной строчкой:

Код


ShowMEssage(ChangeFileExt('yanis.txt', ''));

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »