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

можно, читайте про рекурсию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2016, 10:23
    #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:28
    #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:32
    #39219902
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли организовать поиск средствами Фокса?
PaulWist,

и тут внезапно оказывается, что у ТСа 5 дисков
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2016, 12:00
    #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:04
    #39220013
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли организовать поиск средствами Фокса?
PaulWist, захардко(д|ж)енный список дисков - это некошерно. Надо переделать на цикл, генерирующий все возможные буквы дисков.
Кстати, почему отсутствуют диски A: и B:? ТС не указал, что файлы находятся именно на жёстких дисках...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2016, 12:31
    #39220047
PaulWist
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли организовать поиск средствами Фокса?
tanglirPaulWist, захардко(д|ж)енный список дисков - это некошерно. ...

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


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

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

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

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

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

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


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