|
Действия ...
|
25.08.2005, 16:20:58
|
|||
|---|---|---|---|
|
|||
Как мне выбрать все dbf файлы конкретной директории |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
25.08.2005, 16:05:52
|
|||
|---|---|---|---|
|
|||
Как мне выбрать все dbf файлы конкретной директории |
|||
|
#18+
Для FoxPro 2.6 для Win. Подскажите пожалуйста как мне выбрать все dbf файлы конкретной директории, открыть каждый из них и удалить ненужные записи. Спасибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 16:20:58
|
|||
|---|---|---|---|
Как мне выбрать все dbf файлы конкретной директории |
|||
|
#18+
Пользуя ADIR() собрать массифчик и в цикле делать USE с удалением Осторожно - глисты! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 22:17:35
|
|||
|---|---|---|---|
|
|||
Как мне выбрать все dbf файлы конкретной директории |
|||
|
#18+
Кроме ADIR можна использовать функцию SYS(2000) Пример кода процедуры удаления файлов: PROC EraseFile PARA tcDir,tcMask PRIV pcPath,pcFileDel pcPath=tcDir+tcMask pcFileDel=SYS(2000,pcPath) DO WHIL ''#pcFileDel **-* WAIT WIND 'Файл '+tcDir+pcFileDel+' удалён' NOWA **-* ERASE (tcDir+pcFileDel) ** Вставляешь свой код ** Открытие базы ** удаление записей ** закрытие базы ** pcFileDel=SYS(2000,pcPath,1) ENDDO **-* WAIT CLEA RETU ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=41&mobile=1&tid=1593617]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
179ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 194ms |
| total: | 454ms |
| 0 / 0 |
