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

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

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

3 сообщений из 3, страница 1 из 1

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

#35611904

sla15

Гость

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

...

Рейтинг:

0 / 0

23.10.2008, 14:19

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

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

#35612117

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Самый простейший способ завести файл-метку и перебирать все диски проверяя наличие этого файла.
Т.е. делаешь файл 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:05

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

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

#35612137

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

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

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

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

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

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

23.10.2008, 15:10

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

3 сообщений из 3, страница 1 из 1

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

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

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

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

start [/forum/topic.php?fid=41&msg=35611904&tid=1587155]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	67ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	337ms

total:	495ms