VPF::Как скопировать часть имени файла?

ruslandlion

Дата 19.3.2012, 23:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как скопировать часть текста из имени файла ,например файл называется "004 Рей Бредбери- Марсианские хроники", как скопировать часть "Рей Бредбери- Марсианские хроники" чтобы не скопировалось "004 "?

Это сообщение отредактировал(а) ruslandlion - 19.3.2012, 23:06

Rennigth

Дата 19.3.2012, 23:18 (ссылка)

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

Загрузка ...

Эксперт

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

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

ruslandlion,
А в чем у тебя проблема? Есть функция Copy. Или тебе переименовать файл надо?

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

(* Honesta mors turpi vita potior *)

Canyon

Дата 19.3.2012, 23:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


var
 s : string;
begin
 s := 'имя файла';
 ShowMessage(copy(s, 4, Length(s)-4));
end;

вроде должно работать

Это сообщение отредактировал(а) Canyon - 19.3.2012, 23:19

Rennigth

Дата 19.3.2012, 23:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


const
  sFN: string = '004 Рей Бредбери- Марсианские хроники';
  iCtn: Integer = 4;
var
  sResFN: string;
begin
  if Length(sFN) > iCtn then
    sResFN := Copy(sFN, iCtn, Length(sFN) - iCtn);
end;

Добавлено через 19 секунд
о, опоздал smile

Добавлено через 8 минут и 7 секунд
Кстати поправочка, туплю под вечер smile

Код


const
  sFN: string = '004-Рей Бредбери- Марсианские хроники';
  iCtn: Integer = 4;
var
  sResFN: string;
begin
  if Length(sFN) > iCtn then
    sResFN := Copy(sFN, iCtn + 1, Length(sFN) - iCtn + 1);
  ShowMessage(sResFN);

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

(* Honesta mors turpi vita potior *)

ruslandlion

Дата 19.3.2012, 23:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

А в чем у тебя проблема? Есть функция Copy. Или тебе переименовать файл надо?

надо часть имени файла скопировать

Добавлено @ 23:40
Canyon, Rennigth спасибо большое, попробую.

Добавлено @ 23:50

Цитата(Rennigth @ 19.3.2012, 23:22

)

Код


const
  sFN: string = '004 Рей Бредбери- Марсианские хроники';
  iCtn: Integer = 4;

Нужно именно чтобы в папке, Delphi обращалась к файлу и копировала часть имени а не статично делала это))

Это сообщение отредактировал(а) ruslandlion - 19.3.2012, 23:51

Данкинг

Дата 19.3.2012, 23:54 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(ruslandlion @ 20.3.2012, 00:40

)

Нужно именно чтобы в папке, Delphi обращалась к файлу и копировала часть имени а не статично делала это))

Extractfilename ?

Добавлено через 22 секунды
Или откуда вообще имя файла-то берётся?

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

There's nothing left but silent epitaphs.

ruslandlion

Дата 20.3.2012, 00:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата

Или откуда вообще имя файла-то берётся?

В папке, около 200 книг. Формат их показа в папке такой

Цитата

"001 1999 Белянин А. Меч Без Имени.fb2, 002 1999 Белянин А. Свирепый ландграф.fb2, 003 1999 Белянин А. Век святого Скиминока.fb2"

, итд. Хочу написать прогу , чтобы она копировала только автора и название произведения остальное отсеивала, и вставляла это в тектовый файл *.txt в виде списка. Например вместо

Цитата

001 1999 Белянин А. Меч Без Имени.fb2, 002 1999 Белянин А. Свирепый ландграф.fb2

Программа занесла в текстовый файл

Цитата

1. Белянин А. Меч Без Имени
2. Белянин А. Свирепый ландграф

Данкинг

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

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А как программа должна понимать, где после цифр начинается ФИО автора? Можно, конечно, просто удалять все цифры, но что тогда делать с "Бредбери - 451"?

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

There's nothing left but silent epitaphs.

ruslandlion

Дата 20.3.2012, 11:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Данкинг @ 20.3.2012, 00:44

)

А как программа должна понимать, где после цифр начинается ФИО автора?

Именно поэтому я и спрашиваю,так как не проф программист

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

Цитата

Можно, конечно, просто удалять все цифры, но что тогда делать с "Бредбери - 451"?

Да возможно же наверное так сделать не может быть чтобы ,что современнные передовые технологии не могут решить такую задачу

Это сообщение отредактировал(а) ruslandlion - 20.3.2012, 11:23

Данкинг

Дата 20.3.2012, 12:01 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(ruslandlion @ 20.3.2012, 12:22

)

что современнные передовые технологии не могут решить такую задачу

Ты про искусственный интеллект?

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

There's nothing left but silent epitaphs.

ruslandlion

Дата 20.3.2012, 12:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Данкинг @ 20.3.2012, 12:01

)

Ты про искусственный интеллект?

Я в глобальном смысле имею виду

Данкинг

Дата 20.3.2012, 12:08 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Если все названия файлов начинаются с имени, тогда отлавливай первый символ, который не является цифров (по ASCII-кодам). Это и будет началом названия.

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

There's nothing left but silent epitaphs.

Canyon

Дата 21.3.2012, 15:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Если у тебя в названии книги одинаковый синтаксис то тебе слишком ного кода придумывать не придеться а если он разный то придеться что то выдумывать.

Например:

Номер Автор Издательство и т.д
044 Пушкин А. С. Я сам печатал и т.д.

Если во всех книгах название идет в таком порядке, то много кода не понадобиться.

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