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

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

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

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

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

iglezz

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
Array.prototype.pushUnique = function(elem){
    var unique = true;
    for (var i = 0; i < this.length; i++)
        if (this[i] == elem)
            unique = false;
    if (unique)
        this.push(elem);
}
 
Array.prototype.copyUnique = function(){
    var a = [];
    for (var i = 0; i < this.length; i++)
        a.pushUnique(this[i]);
    return a;
}
 
String.prototype.GetFileName = function(){
    if (this.slice(0,4) == "http")
        return this.slice(this.lastIndexOf("/") + 1);
    return this;
}
 
var wsh = WScript.CreateObject("WScript.Shell");
var fso =  WScript.CreateObject("Scripting.FileSystemObject");
 
var tempDir = fso.GetSpecialFolder(2);
var tempName = "downloadedpage.tmp.tmp";
var tempFullName = tempDir + "\\" + tempName;
 
var targetDir = "c:\\2gis";
var url = "http://info.2gis.ru/tambov/products/download";
var regexMask = new RegExp("http://download.2gis.com/arhives/2GISData_Tambov-[^'\"]+.orig.zip", "g");
 
// https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/d5fk67ky%28v%3dvs.84%29
wsh.Run("wget --output-document=\"" + tempFullName + "\" \"" + url + "\"", 1, true);
 
// https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/windows-scripting/314cz14s%28v%3dvs.84%29
var file = fso.OpenTextFile(tempFullName, 1);
var text = file.ReadAll();
file.Close();
fso.DeleteFile(tempFullName);
 
var matches = text.match(regexMask);
if (matches == null) {
    msg("Nothing...");
    WScript.Quit();
}
 
var links = matches.copyUnique()
for (var i = 0; i < links.length; i++) {
    if (!fso.FileExists(targetDir + "\\" + links[i].GetFileName()))  
        wsh.Run("wget -P \"" + targetDir + "\" \"" + links[i] + "\"", 1, true);    
}
 
function msg(s) {WScript.Echo(s);}

Всего записей: 1521 | Зарегистр. 18-02-2003 | Отправлено: 18:36 12-03-2020
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


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

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru