for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Русский Help
  

Загрузка файлов с сервера
JS
Автор

Сообщений: 12236
Откуда: Эстония
Дата: 02.10.05 19:26:54
Перемещено из форума Ассоциация разработчиков =ФоксКлуб=

Привет всем!
Так уж получилось, что три дня просто выпали из нормальной жизни
и не было возможности заниматься проблемами проекта.

Есть проблема, требующая ближайшего разрешения.
Число загруженных файлов достаточно быстро растет.
В связи с этим вопрос - оставлять-ли на сервере переведенные файлы справки для просмотра в on-line
или оставлять только файлы перевода?

Для того чтобы получить список файлов, размещенных на сервере
можно воспользоваться примитивной программкой, которая приведена ниже

  
  LOCAL lcFileName4FileLists  
  lcFileName4FileLists="c:\vfp9help\filelist.txt" && замените имя файла подходящим именем  
  If Used('draft')  
     Use In draft  
  Endif  
    
  loInetApp = Createobject('InternetExplorer.Application')  
  loInetApp.Navigate('http://www.foxclub.ru/rhproject/files_dir.php')  
  Do While loInetApp.ReadyState # 4  
     DoEvents  
  Enddo  
    
  loDocument    = loInetApp.Document  
  lcDraft       = loDocument.activeElement.innerText  
  lcFile2Parse  = Chrtran(lcDraft," ",Chr(13)+Chr(10))  
  Set Safety Off  
  =Strtofile(lcFile2Parse,lcFileName4FileLists,0)  
  Set Safety On  
  Create Cursor draft (hfilename c(40))  
  Select draft  
  Append From (lcFileName4FileLists) Type Sdf  
  Delete For Recno()<=2  
  Select * From draft Into Cursor hfonsite Where !Deleted()  
  Use In draft  
  Select hfonsite  
  Browse Nowait

Если будет возможность сделать учетную запись пользователя с доступом "read-only"
к определенному вложенному каталогу, содержащему переведенные файлы справки,
то я выложу программу автоматической загрузки с сайта, написанную на VFP.




------------------
Knowledge is better than ignorance!
Website: juri.foxhelp.eu
Ratings: 0 negative/0 positive



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

On-line: 1 (Гостей: 1)

© 2000-2021 Fox Club 
Яндекс.Метрика