можно ли реализовать средствами Fox? / FoxPro, Visual FoxPro

ReSQL.ru

2.0.56

Полная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / можно ли реализовать средствами Fox? / 3 сообщений из 3, страница 1 из 1

23.10.2008, 14:19

#35611904

sla15

Гость

можно ли реализовать средствами Fox?

Задача такая: на флешке будет несколько зазипованных архивов - тексты, их необходимо все последовательно распаковать в один текстовый файл, а сами файлы переименовать после распаковки.
Как распаковать и переименовать по отдельности - я представляю, но флешка на разных компах подключается с разным именем, названия файлов и их количество неизвестно.Можно это как-то автоматизировать?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

23.10.2008, 15:05

#35612117

Dima T

Участник

Сообщения: 15 530
Рейтинг: 0 / 0

можно ли реализовать средствами Fox?

Самый простейший способ завести файл-метку и перебирать все диски проверяя наличие этого файла.
Т.е. делаешь файл MyFlash.flg в корне флэшки. И ищешь примерно так:

Код: plaintext

1.
2.
3.
4.

for i =  67  to  90 
   if file(chr(i) + ':\MyFlash.flg')
      ? 'Флэшка на диске ' + chr(i)
   endif
endfor

Сделал перебор букв от C до Z, т.к. не нашел родную функцию получить список букв дисков. Если найдешь, замени на перебор только имеющихся.

Список файлов в папке можно получить функцией ADIR()

Код: plaintext

1.
2.

for i =  1  to ADIR(laF, "C:\*.*")
    ? laF[i,  1 ]
endfor

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

23.10.2008, 15:10

#35612137

Игорь Горбонос

Участник

Откуда: Днепропетровск
Сообщения: 4 416
Рейтинг: 0 / 0

можно ли реализовать средствами Fox?

> Автор: sla15
> Можно это как-то автоматизировать?

Точно так-же как и на других языках, можно использовать библиотеку FileSystemObject, и проверить с её помощью тип
доступных дисков, на предмет Removable и на нем проверять наличие нужной папки/файлов, а можно сделать то-же но API
функциями, а можно задействовать WMI. Вообщем тебе виднее, чем лучше :)

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&tablet=1&tid=1587155]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	64ms
get topic data:	10ms
get forum data:	2ms
get page messages:	37ms
get tp. blocked users:	1ms
others:	12ms

total:	152ms