Сложный вопрос - Форум NeoBook

Войти

Добро пожаловать к нам в гости!
Наш сайт посвящён программе 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

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

Сложный вопрос

Страница 1 из 1
1