Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Интернет » Web-программирование » VBScript: изменение условия скачивания

Модерирует : Cheery

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

D1D1D1D

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте. Для скачивания файлов иногда использую скрипт-CMD, запускающий wget и работающий в связке с scriptsplit.vbs. Программа скачивает список ссылок из файла lst.txt — в новый файл со случайным именем, по достижении квоты в 399мб — создавая и наполняя новый файл.
 
Файл "start.cmd"

Код:
 
"G:\_wget\wget.exe" --user-agent="Mozilla/5.0 (Windows NT 5.1; rv:26.0) Gecko/20100101 Firefox/26.0 SeaMonkey/2.23" --header="Accept-Language: ru-RU,ru;q=0.9,en;q=0.8" --wait=1 --rejected-log=_ERROR.LOG -i lst.txt -O- | cscript scriptsplit.vbs
 

Файл "scriptsplit.vbs"

Код:
 
SplitSize = 399 * 1024 * 1024  
 Set FSO = CreateObject("Scripting.FileSystemObject")  
 Set stdin = fso.GetStandardStream(0)  
 Count = 0  
 Set CurrFile = FSO.CreateTextFile("lst" & CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2) & "_" & Replace(Time,":","-") & Count & ".htm",1)  
 Do Until stdin.AtEndOfStream  
   CurrFile.Write stdin.Read(1024)  
   Size = Size + 1024  
   If (Size => SplitSize) Then  
     Count = Count + 1  
     CurrFile.Close  
     Set CurrFile = FSO.CreateTextFile("lst" & CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2) & "_" & Replace(Time,":","-") & Count & ".htm",1)  
     Size = 0 : Data = ""  
   End If  
 Loop  
 CurrFile.Close
 

Вопрос заключается в возможности изменения этой функции квоты — на скачанное количество ссылок, чтобы новый файл создавался не в зависимости от размера файла, а в зависимости от числа скачанных ссылок. Потому что иначе HTML-файлы перед последующей обработкой приходится объединять, поскольку они разрываются в случайном месте, помимо того, что иногда кодировка файлов слетает.

Всего записей: 648 | Зарегистр. 05-04-2010 | Отправлено: 05:58 05-04-2018 | Исправлено: D1D1D1D, 06:00 05-04-2018
Mavrikii

Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
D1D1D1D
VBS это не вебпрограммирование
Программирование "удобняшек" на VBScript (Часть 2)
Сценарии Windows

Всего записей: 6494 | Зарегистр. 20-09-2014 | Отправлено: 06:00 05-04-2018 | Исправлено: Mavrikii, 06:01 05-04-2018
D1D1D1D

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mavrikii
 
Аа-а, извиняюсь. Тогда там продублирую, спасибо.

Всего записей: 648 | Зарегистр. 05-04-2010 | Отправлено: 06:01 05-04-2018 | Исправлено: D1D1D1D, 06:01 05-04-2018
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Интернет » Web-программирование » VBScript: изменение условия скачивания

Имя:
Пароль:
Сообщение

Для вставки имени, кликните на нем.

Опции сообщенияДобавить свою подпись
Подписаться на получение ответов по e-mail
Добавить тему в личные закладки
Разрешить смайлики?
Запретить коды


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru