поиск файла по уникальному значению

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

поиск файла по уникальному значению

Сообщение Espada »

Доброго дня. Может подскажете с помощью каких функций можно реализовать идею: есть список файлов, у каждого в наименовании (помимо основного наименования) есть своё уникальное значение. я задаю это значение, присваиваю переменной. нужно из списка найти файл, в котором это значение есть и открыть его.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Irina_
Местный житель
Сообщения: 545
Зарегистрирован: 17 июл 2012, 11:56
Откуда: Республика Беларусь, г.Могилев

Re: поиск файла по уникальному значению

Сообщение Irina_ »

Здравствуйте.
Как-то Вы не совсем точно формулируете задачу. Что Вы имеете ввиду, написав о списке файлов? Это файлы в определенной папке или например таблица в памяти, содержащая имена файлов?
Для работы с файлами в зависимости от расширения файла (DBF, TXT, XLSX,...) нужно использовать разные команды.
См. VipProgr.chm :
- Функции общего назначения — Функции для работы с файлами.
- Работа с БД и SQL – Функции для работы с БД — Функции ля работы с DBF файлами.
См. Excel_lib.chm. Здесь ф-ции для работы с Excel.
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: поиск файла по уникальному значению

Сообщение Espada »

Irina_ писал(а):Здравствуйте.
Как-то Вы не совсем точно формулируете задачу. Что Вы имеете ввиду, написав о списке файлов? Это файлы в определенной папке или например таблица в памяти, содержащая имена файлов?
Для работы с файлами в зависимости от расширения файла (DBF, TXT, XLSX,...) нужно использовать разные команды.
См. VipProgr.chm :
- Функции общего назначения — Функции для работы с файлами.
- Работа с БД и SQL – Функции для работы с БД — Функции ля работы с DBF файлами.
См. Excel_lib.chm. Здесь ф-ции для работы с Excel.
извиняюсь ,что не уточнил. в Определённом месте лежит папка в которой находится множество xltm-файлов(шаблоны excel). как открыть файлик я понимаю, не могу понять, как найти нужный. как из всего списка выбрать именно тот, у которого в наименовании есть определенные символы. но ещё прогоню методички, спасибо)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: поиск файла по уникальному значению

Сообщение Espada »

хотя, я могу выгружать название всех файлов в таблицу в памяти, а там уже находить нужное название и по нему обращаться. по идее должно сработать)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Irina_
Местный житель
Сообщения: 545
Зарегистрирован: 17 июл 2012, 11:56
Откуда: Республика Беларусь, г.Могилев

Re: поиск файла по уникальному значению

Сообщение Irina_ »

Код: Выделить всё

Var strNeed,  PathToFile : String;
       bFind : Boolean;
PathToFile:= '…….'; // папка с файлами
strNeed:= '123'; // определенные нужные символы в имени файла
bFind:= False;
str:= GetFirstFile( PathToFile, '*.xltm');
While str <> strDataIsEmpty do
{
   If InStr( strNeed, str ) > 0
      {
          bFind:= True;
          Break;
       }
   str:= GetNextFile;
}
If  bFind
  Message( ‘Искомый файл ‘ + str )
else
  Message( ‘Не найден файл’ );
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Re: поиск файла по уникальному значению

Сообщение spark »

Так не подходит?

Код: Выделить всё

  path:='C:\temp'
  mask:='искомое'
  fPath := GetFirstFile(path,'*'+mask+'*.xltm');
  if fPath <> strDataIsEmpty
  {
   ExecProgram('', fPath, 'Открытие документа',pfFullScreen+pfDontWait, aErrorCode);
  }
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: поиск файла по уникальному значению

Сообщение Espada »

spark писал(а):Так не подходит?
Почему-то ругается Ошибка: Нет такой функции, поля или метода : GETFIRSTFILE ...
Хотя это, вроде как системная функция. не понятно.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: поиск файла по уникальному значению

Сообщение Den »

Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: поиск файла по уникальному значению

Сообщение Espada »

Irina_ писал(а):

Код: Выделить всё

Var strNeed,  PathToFile : String;
       bFind : Boolean;
PathToFile:= '…….'; // папка с файлами
strNeed:= '123'; // определенные нужные символы в имени файла
bFind:= False;
str:= GetFirstFile( PathToFile, '*.xltm');
While str <> strDataIsEmpty do
{
   If InStr( strNeed, str ) > 0
      {
          bFind:= True;
          Break;
       }
   str:= GetNextFile;
}
If  bFind
  Message( ‘Искомый файл ‘ + str )
else
  Message( ‘Не найден файл’ );
Спасибо большое ,всё получилось. :grin:
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Ответить