Поиск xls файлов по имени файла

@Umar Egamberdie · Регистрация: 20.12.2015

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста как реализовать программу которое ищет xls файлы, в edit вводим имя файла если есть такой файл то выводим открыть или удалить, если нету то выводим создать или выход.

@qwertehok · 17.10.2017, 19:13

Поиск файлов по имени

научитесь пользоваться поиском

@Umar Egamberdie · 18.10.2017, 06:26 **[ТС]**

вот тут научился

Delphi

// Поиск файла
  fullFilePath := FileSearch(fileName, dir1+';'+dir2);
 
  // Если мы поищем сейчас, мы найдем его в текущем каталоге
  if fullFilePath = ''
  then ShowMessage(fileName+' не найден')
  else ShowMessage(fullFilePath+' найден');
 
  // Теперь удаляем Test.txt из текущего каталога и повторяем поиск
  DeleteFile(fileName);
 
  // Если мы поищем теперь, мы найдем его в одной из директорий поиска
  fullFilePath := FileSearch(fileName, dir1+';'+dir2);
  if fullFilePath = ''
  then ShowMessage(fileName+' не найден')
  else ShowMessage(fullFilePath+' найден');

мне не понятно, почему мы ищем файл удаляем и опять ищем?, иначе код не срабатывает, и то не всегда корректно работает, как можно сделать что бы один раз искали

@droider · 18.10.2017, 09:17

Umar Egamberdie, а какая версия Delphi?

Сообщение от Umar Egamberdie

мне не понятно, почему мы ищем файл удаляем и опять ищем?

значит, задача у автора была такая.

@Umar Egamberdie · 18.10.2017, 09:59 **[ТС]**

Сообщение от droider

а какая версия Delphi?

Delphi XE8

Сообщение от droider

значит, задача у автора была такая.

хорошо согласен, но когда убираю после первого поиска все действия, оно не работает, хотя на папке стоит такой файл пишет не найдено, если оставляю как у него было то работает и находит, но вводит сначала не найдено потом найдено

Добавлено через 1 минуту

Сообщение от droider

значит, задача у автора была такая.

а как реализовать тогда в моем случае

@droider · 18.10.2017, 10:02

Сообщение от Umar Egamberdie

Delphi XE8

Сообщение от Umar Egamberdie

как реализовать тогда в моем случае

чуть позже набросаю пример.

Добавлено через 35 секунд

Сообщение от Umar Egamberdie

в edit вводим имя файла

без расширения?

@D1973 · 18.10.2017, 12:14

Сообщение от Umar Egamberdie

которое ищет xls файлы

А где "оно" должно искать?

Сообщение от Umar Egamberdie

Delphi XE8

Тогда воспользуйтесь методам GetFiles класса TDirectory из модуля IOUtils. Там, по ссылке, и пример есть...

@droider · 18.10.2017, 15:53

Umar Egamberdie, как и обещал, предлагаю такой вариант (поиск включая подкаталоги). Если потребуются дополнительные возможности, допишите под себя.

@D1973 · 18.10.2017, 16:04

Не по теме:

droider, я бы в Вашем коде расширение бы указал как '.xls*', но это я так... Придираюсь... ;)

@droider · 18.10.2017, 16:16

Не по теме:

D1973, если будет необходимость учесть и старый формат файла, то да... но неужели люди еще сидят на этом формате??

@D1973 · 18.10.2017, 16:19

Не по теме:

Сообщение от droider

но неужели люди еще сидят на этом формате?

У нас на работе еще кое-где офис 2003 стоит :p
Никак бабок-бухгалтеров не переубедить что-то новее поставить... А начальнице - пофигу, лишь бы работа работалась

Добавлено через 1 минуту
Кроме того, это может быть шаблон (xlst), книга с макросами (xlsm)

@droider · 18.10.2017, 16:21

Не по теме:

D1973, О, ужас!
Хотя, чему я удивляюсь, у нас тоже юзеры никак не могли перейти на 2007-й. Типа "сложно, непривычно, неудобно" и т.д.

@D1973 · 18.10.2017, 16:24

Не по теме:

Сообщение от droider

О, ужас!

А мы уже рукой махнули... Поставили приблуду, чтобы они могли новый формат читать и пересохранять в старый - и пусть до пенсии досиживают. Свои нервы - они дороже...

@D1973 Модератор 9260 / 6038 / 2379 Регистрация: 21.01.2014 Сообщений: 25,802 Записей в блоге: 3
	18.10.2017, 16:19	11
	Не по теме: Сообщение от droider но неужели люди еще сидят на этом формате? У нас на работе еще кое-где офис 2003 стоит :p Никак бабок-бухгалтеров не переубедить что-то новее поставить... А начальнице - пофигу, лишь бы работа работалась Добавлено через 1 минуту Кроме того, это может быть шаблон (xlst), книга с макросами (xlsm) 0

@Umar Egamberdie 2 / 2 / 3 Регистрация: 20.12.2015 Сообщений: 336
		1
	Поиск xls файлов по имени файла 17.10.2017, 18:51. Показов 802. Ответов 12 Метки нет (Все метки) Подскажите пожалуйста как реализовать программу которое ищет xls файлы, в edit вводим имя файла если есть такой файл то выводим открыть или удалить, если нету то выводим создать или выход. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	17.10.2017, 19:13	2
	Поиск файлов по имени научитесь пользоваться поиском 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	18.10.2017, 09:17	4
	Umar Egamberdie, а какая версия Delphi? Сообщение от Umar Egamberdie мне не понятно, почему мы ищем файл удаляем и опять ищем? значит, задача у автора была такая. 0

@Umar Egamberdie 2 / 2 / 3 Регистрация: 20.12.2015 Сообщений: 336
	18.10.2017, 09:59 [ТС]	5
	Сообщение от droider а какая версия Delphi? Delphi XE8 Сообщение от droider значит, задача у автора была такая. хорошо согласен, но когда убираю после первого поиска все действия, оно не работает, хотя на папке стоит такой файл пишет не найдено, если оставляю как у него было то работает и находит, но вводит сначала не найдено потом найдено Добавлено через 1 минуту Сообщение от droider значит, задача у автора была такая. а как реализовать тогда в моем случае 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	18.10.2017, 10:02	6
	Сообщение от Umar Egamberdie Delphi XE8 Сообщение от Umar Egamberdie как реализовать тогда в моем случае чуть позже набросаю пример. Добавлено через 35 секунд Сообщение от Umar Egamberdie в edit вводим имя файла без расширения? 0

@D1973 Модератор 9260 / 6038 / 2379 Регистрация: 21.01.2014 Сообщений: 25,802 Записей в блоге: 3
	18.10.2017, 12:14	7
	Сообщение от Umar Egamberdie которое ищет xls файлы А где "оно" должно искать? Сообщение от Umar Egamberdie Delphi XE8 Тогда воспользуйтесь методам GetFiles класса TDirectory из модуля IOUtils. Там, по ссылке, и пример есть... 0

@D1973
	18.10.2017, 16:04 #9
	Не по теме: droider, я бы в Вашем коде расширение бы указал как '.xls*', но это я так... Придираюсь... ;) 0

@droider
	18.10.2017, 16:16 #10
	Не по теме: D1973, если будет необходимость учесть и старый формат файла, то да... но неужели люди еще сидят на этом формате?? 0

@droider
	18.10.2017, 16:21 #12
	Не по теме: D1973, О, ужас! Хотя, чему я удивляюсь, у нас тоже юзеры никак не могли перейти на 2007-й. Типа "сложно, непривычно, неудобно" и т.д. 0

@D1973
	18.10.2017, 16:24 Поиск xls файлов по имени файла #13
	Не по теме: Сообщение от droider О, ужас! А мы уже рукой махнули... Поставили приблуду, чтобы они могли новый формат читать и пересохранять в старый - и пусть до пенсии досиживают. Свои нервы - они дороже... 0