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

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

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

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

Сообщение Espada » Чт мар 04, 2021 12:00

Доброго дня. Может подскажете с помощью каких функций можно реализовать идею: есть список файлов, у каждого в наименовании (помимо основного наименования) есть своё уникальное значение. я задаю это значение, присваиваю переменной. нужно из списка найти файл, в котором это значение есть и открыть его.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Аватара пользователя
Espada
Местный житель
 
Сообщения: 318
Зарегистрирован: Вт май 07, 2013 17:32
Reputation point: 0

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

Сообщение Irina_ » Чт мар 04, 2021 15:29

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

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

Сообщение Espada » Чт мар 04, 2021 17:00

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

извиняюсь ,что не уточнил. в Определённом месте лежит папка в которой находится множество xltm-файлов(шаблоны excel). как открыть файлик я понимаю, не могу понять, как найти нужный. как из всего списка выбрать именно тот, у которого в наименовании есть определенные символы. но ещё прогоню методички, спасибо)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Аватара пользователя
Espada
Местный житель
 
Сообщения: 318
Зарегистрирован: Вт май 07, 2013 17:32
Reputation point: 0

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

Сообщение Espada » Чт мар 04, 2021 17:06

хотя, я могу выгружать название всех файлов в таблицу в памяти, а там уже находить нужное название и по нему обращаться. по идее должно сработать)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Аватара пользователя
Espada
Местный житель
 
Сообщения: 318
Зарегистрирован: Вт май 07, 2013 17:32
Reputation point: 0

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

Сообщение Irina_ » Чт мар 04, 2021 17:30

Код: Выделить всё
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( ‘Не найден файл’ );
Irina_
Местный житель
 
Сообщения: 504
Зарегистрирован: Вт июл 17, 2012 11:56
Откуда: Республика Беларусь, г.Могилев
Reputation point: 47

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

Сообщение spark » Чт мар 04, 2021 20:05

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

Код: Выделить всё
  path:='C:\temp'
  mask:='искомое'
  fPath := GetFirstFile(path,'*'+mask+'*.xltm');
  if fPath <> strDataIsEmpty
  {
   ExecProgram('', fPath, 'Открытие документа',pfFullScreen+pfDontWait, aErrorCode);
  }
Аватара пользователя
spark
Местный житель
 
Сообщения: 476
Зарегистрирован: Ср окт 19, 2005 13:38
Reputation point: 41

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

Сообщение Espada » Пт мар 05, 2021 11:42

spark писал(а):Так не подходит?

Почему-то ругается Ошибка: Нет такой функции, поля или метода : GETFIRSTFILE ...
Хотя это, вроде как системная функция. не понятно.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Аватара пользователя
Espada
Местный житель
 
Сообщения: 318
Зарегистрирован: Вт май 07, 2013 17:32
Reputation point: 0

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

Сообщение Den » Пт мар 05, 2021 13:34

Den
Местный житель
 
Сообщения: 1836
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Reputation point: 60

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

Сообщение Espada » Вт мар 09, 2021 12:59

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:
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Аватара пользователя
Espada
Местный житель
 
Сообщения: 318
Зарегистрирован: Вт май 07, 2013 17:32
Reputation point: 0


Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 1