[Creat0R]

shadowbat,
Если тема решена, то не стесняйся отмечать её таковой

[shadowbat]

хм...
скармливаем такой list.txt

Код:

http://www.teachvideo.ru/v/737
http://skillopedia.ru/material.php?id=8923
http://iqcomp.ru/learn/course.php?cid=7&lid=99

получаем на выходе MySuperLinks.txt

Код:

http://www.teachvideo.ru/content/antivir/dr_web/video/0102.flv
http://77.220.185.136/data/materials/1345/4bf20180dc737d6b58b8f0b9184d9182/video.flv

третью ссылку не берет никак.
хотя через браузер работает

это из-за знака "&" в третьей ссылке?
как это лечится?

[Creat0R]

хотя через браузер работает »

Ты уверен?

[shadowbat]

http://iqcomp.ru/learn/course.php?cid=7 это же не полная ссылка? там не хватает например такого "&lid=128" в конце ссылки

уверен?

скрин. через браузер работает, а через скрипт не работает

P.S. у скрипта ориентировочная скорость обработки - 1 ссылка за 2,5 секунды. т.е. за час 1500 ссылок.

[shadowbat]

как настроить скрипт, чтобы он сохранял все ссылки, если на одной странице их больше чем одна?

тут например 5 видео на одной странице.
save2go выдает все 5 для скачки
а скрипт забирает только первую

[Creat0R]

через браузер работает, а через скрипт не работает »

Нужно кодировать адреса.

Возьми отсюда библиотеку Encoding.au3 и помести рядом со скриптом.

Код:

#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $sLink = StringRegExpReplace($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')

    If @extended > 0 And $sLink <> $sHtml Then
        $sLinks &= $sLink & @CRLF
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

скрипт забирает только первую »

А как их сортировать, или это не важно?

Код:

#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $aLinks = StringRegExp($sHtml, '.*<b><a href="(.*)" target="_blank" onclick=".*">', 3)

    If Not @error Then
        For $sLink In $aLinks
            $sLinks &= $sLink & @CRLF
        Next
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

[Listans]

Здравствуйте, подскажите как отредактировать этот код, чтобы в итоговом файле была не только ссылка на флеш, но и сам урл из файла List.txt. Можно через пробел, тире или любой другой вариант.

Код:

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & $aUrl[$i]))
    $sLink = StringRegExpReplace($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')

    If @extended > 0 And $sLink <> $sHtml Then
        $sLinks &= $sLink & @CRLF
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

[Creat0R]

Listans,

Код:

$sLinks &= $sLink & @CRLF

замени на

Код:

$sLinks &= $sLink & ' ' & $aUrl[$i] & @CRLF