Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL, YURIY  
Сложный вопрос
kop9000Дата: Пт, 29 Января 2016, 15:17 | Сообщение # 1
Ветеран форума
Решил вот собрать все все все моды http://runthinkshootlive.com/

Собрал только вот что https://yadi.sk/d/IsQPkJuenvgxQ

я собираю моды с четерёх игр

Half-Life
Half-Life 2
Half-Life 2: Episode One
Half-Life 2: Episode Two


Половина работы сделанно.

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

Код

<p><a class="btn-download" href="/download.php?id=12336&f=/files/hl2-ep2/hl2-ep2-sp-mc-2015WinnersVille.7z"><i class="fa fa-download faa-parent animated-hover faa-flash animated"></i>  Download to your HDD [207MB]</a><br />


тоесть /download.php?id=12336&f=/files/hl2-ep2/hl2-ep2-sp-mc-2015WinnersVille.7z

это легко исправляется добавлением http://runthinkshootlive.com/ получается вот так

http://runthinkshootlive.com/downloa....ille.7z

А вот теперь вопрос

Задача у меня такая сделать всё тоже самое из всех файлов с одной папки. мне нужно сделать следующее

1) сгенерировать список файлов
2) найти во всех файлов такой текст /download.php?id
3) присоединить к этому тексту следующий текст который находится в следующем файле
4) скачать файл

Но каким образом это легче сделать я даже незнаю.

Помогите пожалуйста.


Сообщение отредактировано
kop9000 - Пт, 29 Января 2016, 15:19
 
СообщениеРешил вот собрать все все все моды http://runthinkshootlive.com/

Собрал только вот что https://yadi.sk/d/IsQPkJuenvgxQ

я собираю моды с четерёх игр

Half-Life
Half-Life 2
Half-Life 2: Episode One
Half-Life 2: Episode Two


Половина работы сделанно.

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

Код

<p><a class="btn-download" href="/download.php?id=12336&f=/files/hl2-ep2/hl2-ep2-sp-mc-2015WinnersVille.7z"><i class="fa fa-download faa-parent animated-hover faa-flash animated"></i>  Download to your HDD [207MB]</a><br />


тоесть /download.php?id=12336&f=/files/hl2-ep2/hl2-ep2-sp-mc-2015WinnersVille.7z

это легко исправляется добавлением http://runthinkshootlive.com/ получается вот так

http://runthinkshootlive.com/downloa....ille.7z

А вот теперь вопрос

Задача у меня такая сделать всё тоже самое из всех файлов с одной папки. мне нужно сделать следующее

1) сгенерировать список файлов
2) найти во всех файлов такой текст /download.php?id
3) присоединить к этому тексту следующий текст который находится в следующем файле
4) скачать файл

Но каким образом это легче сделать я даже незнаю.

Помогите пожалуйста.

Автор - kop9000
Дата добавления - 29 Января 2016 в 15:17
kop9000Дата: Пт, 29 Января 2016, 16:44 | Сообщение # 2
Ветеран форума
Вроде как полчуилось

Код

FileList "[l1]*.*" "Files" "[list1]"

ListBoxSize "ListBox1" "[rad1]"

Loop "1" "[rad1]" "[lol]"

ListBoxGetItem "ListBox1" "[lol]" "[rad2]"

FileToVar "![l1][rad2]" "[ls1]"

SearchStr "download.php?id" "[ls1]" "[tm1]" ""

SubStr "[ls1]" "[tm1]" "200" "[los1]"

SearchStr "7z" "[los1]" "[los2]" ""

SubStr "[los1]" "0" "[los2]" "[los3]"

SetVar "[text]" "http://www.runthinkshootlive.com/[los3]z"

FileWrite "!C:\Users\TBOIR\Desktop\s1.txt" "Append" "[rad2] - [text]"

SetVar "[text]" ""

EndLoop


Осталось исправить некоторые ссылки. У меня не зря в каждой строке вначале ставится текст имени файла. Это я сделал чтоб проверить почему он не может найти ссылку.
Прикрепления: list2.zip (148.1 Kb)


Сообщение отредактировано
kop9000 - Пт, 29 Января 2016, 16:45
 
СообщениеВроде как полчуилось

Код

FileList "[l1]*.*" "Files" "[list1]"

ListBoxSize "ListBox1" "[rad1]"

Loop "1" "[rad1]" "[lol]"

ListBoxGetItem "ListBox1" "[lol]" "[rad2]"

FileToVar "![l1][rad2]" "[ls1]"

SearchStr "download.php?id" "[ls1]" "[tm1]" ""

SubStr "[ls1]" "[tm1]" "200" "[los1]"

SearchStr "7z" "[los1]" "[los2]" ""

SubStr "[los1]" "0" "[los2]" "[los3]"

SetVar "[text]" "http://www.runthinkshootlive.com/[los3]z"

FileWrite "!C:\Users\TBOIR\Desktop\s1.txt" "Append" "[rad2] - [text]"

SetVar "[text]" ""

EndLoop


Осталось исправить некоторые ссылки. У меня не зря в каждой строке вначале ставится текст имени файла. Это я сделал чтоб проверить почему он не может найти ссылку.

Автор - kop9000
Дата добавления - 29 Января 2016 в 16:44
  • Страница 1 из 1
  • 1
Поиск: