ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Можно ли организовать поиск средствами Фокса?
12 сообщений из 12, страница 1 из 1
Можно ли организовать поиск средствами Фокса?
    #39219739
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
Добрый день! Можно ли самим фоксом организовать поиск файлов? Например, найти конкретный dbf, зная его имя, но не зная местоположение на диске (дисках). Обычный поиск не устраивает, нужен поиск именно из приложения ФоксПро. Спасибо!
...
Рейтинг: 0 / 0
20.04.2016, 07:42
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219741
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
ADIR()
...
Рейтинг: 0 / 0
20.04.2016, 07:46
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219815
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
Спасибо. А нельзя пример использования этой функции. Вот у меня есть где-то в компьютере файлы dom.dbf и dom.cdx. Они есть точно, но вот надо узнать где, то есть путь к этим файлам. Можно?
...
Рейтинг: 0 / 0
20.04.2016, 09:25
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219872
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Jimy,

можно, читайте про рекурсию.
...
Рейтинг: 0 / 0
20.04.2016, 10:15
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219886
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
JimyДобрый день! Можно ли самим фоксом организовать поиск файлов? Например, найти конкретный dbf, зная его имя, но не зная местоположение на диске (дисках). Обычный поиск не устраивает, нужен поиск именно из приложения ФоксПро. Спасибо!

http://forum.foxclub.ru/read.php?29,636238,636301#msg-636301

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
oMyFiler = CREATEOBJECT('Filer.FileUtil')
oMyFiler.SearchPath = HOME() && Point search path to home directory.
oMyFiler.FileExpression = '*.TXT' && Specify text file search.
oMyFiler.Find(0) && Search and discard last collection

FOR nFileCount = 1 TO oMyFiler.Files.Count
   oMyFiler.Files.Item(nFileCount).Edit && Open files.
ENDFOR
...
Рейтинг: 0 / 0
20.04.2016, 10:23
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219893
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Вот так будет "красивее":

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
oMyFiler = CREATEOBJECT('Filer.FileUtil')
oMyFiler.SearchPath = 'c:\' && Point search path to home directory.
oMyFiler.FileExpression = '*.TXT' && Specify text file search.
oMyFiler.SubFolder = 1
oMyFiler.Find(0) && Search and discard last collection

FOR nFileCount = 1 TO oMyFiler.Files.Count
   oMyFiler.Files.Item(nFileCount).Edit && Open files.
ENDFOR
...
Рейтинг: 0 / 0
20.04.2016, 10:28
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39219902
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
PaulWist,

и тут внезапно оказывается, что у ТСа 5 дисков
...
Рейтинг: 0 / 0
20.04.2016, 10:32
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39220010
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
tanglirPaulWist,

и тут внезапно оказывается, что у ТСа 5 дисков

И чЁ?

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
LOCAL Arr[5], i
Arr[1] = 'c:'
Arr[2] = 'd:'
Arr[3] = 'e:'
Arr[4] = 'f:'
Arr[5] = 'g:'
oMyFiler = CREATEOBJECT('Filer.FileUtil')

WITH oMyFiler
	FOR m.i = 1 TO ALEN(Arr)
		WAIT WINDOW 'Disk: ' + Arr[m.i] NOWAIT 
		?Arr[i]
		.SearchPath = Arr[m.i] && Point search path to home directory.
		.FileExpression = '*.txt' && Specify text file search.
		.SubFolder = 1
		.Find(0) && Search and discard last collection
		FOR nFileCount = 1 TO .Files.Count
	   		.Files.Item(nFileCount).Edit && Open files.
		ENDFOR
		WAIT CLEAR 
	ENDFOR 	
ENDWITH
...
Рейтинг: 0 / 0
20.04.2016, 12:00
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39220013
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
PaulWist, захардко(д|ж)енный список дисков - это некошерно. Надо переделать на цикл, генерирующий все возможные буквы дисков.
Кстати, почему отсутствуют диски A: и B:? ТС не указал, что файлы находятся именно на жёстких дисках...
...
Рейтинг: 0 / 0
20.04.2016, 12:04
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39220047
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
tanglirPaulWist, захардко(д|ж)енный список дисков - это некошерно. ...

1. Это домашнее задание ТСу, получение динамического списка ресурсов :)


tanglir Надо переделать на цикл, генерирующий все возможные буквы дисков.
...

2. Это невозможно.

tanglirКстати, почему отсутствуют диски A: и B:?...

3. Э-э-э, почему отсутствуют, диски А и В присутствуют в примере, ... даю подсказку на команду: subst

tanglir ТС не указал, что файлы находятся именно на жёстких дисках...

4. Совершенно верно, в примере указаны как локальные, так и remote ресурсы.
...
Рейтинг: 0 / 0
20.04.2016, 12:31
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39220317
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jimy
Участник
А про путь кто-нибудь подскажет? Клиент поставил приложение, а куда неизвестно... Надо найти файлы и подправить кое-что... Для этого надо найти, где они у него лежат, то есть узнать путь. Имена и расширения известны. Смысл - клиент устанавливает приложение, которое само их находит и вносит необходимые изменения. Вот и все...
...
Рейтинг: 0 / 0
20.04.2016, 15:31
| Ответить | Цитировать | Написать  
Можно ли организовать поиск средствами Фокса?
    #39220369
правильный проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проходящий.
Гость
JimyА про путь кто-нибудь подскажет? Клиент поставил приложение, а куда неизвестно... Надо найти файлы и подправить кое-что... Для этого надо найти, где они у него лежат, то есть узнать путь. Имена и расширения известны. Смысл - клиент устанавливает приложение, которое само их находит и вносит необходимые изменения. Вот и все...А вам не про это все тут написано? Или таки ожидается полный рабочий код? Самому шевелиться и думать религия не позволяет?
...
Рейтинг: 0 / 0
20.04.2016, 16:02
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Можно ли организовать поиск средствами Фокса?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=19&tid=1582126]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 12ms
total:  124ms
созд. / загр.: 124ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]