Здравствуйте! Вот сайтhttp://bookfor.ru/24901-ne%C2%A0otstupat-i%C2%A0ne%C2%A0sdavatsya-moya%C2%A0neveroyatnaya-istoriya.html
Нужно скачать файл fb2 с этой страницы. Мой код не выкачивает. Почему так?
Нужно скачать файл fb2 с этой страницы. Мой код не выкачивает. Почему так?
Код:
$html = InetRead("http://bookfor.ru/24901-ne%C2%A0otstupat-i%C2%A0ne%C2%A0sdavatsya-moya%C2%A0neveroyatnaya-istoriya.html", 1) ;читаем исходный код страницы
$html = BinaryToString($html, 4)
;ConsoleWrite($html)
$fblinks = StringRegExp($html, '(?:href=")(.*fb2)(?:")', 3) ;находим все линки на FB2
MsgBox(0, "Info", $fblinks)
If IsArray($fblinks) Then
For $i In $fblinks
$filename = StringSplit($i, "/")
$filename = $filename[UBound($filename)-1]
$filename = StringReplace($filename, "%5", "")
$filename = StringReplace($filename, "'", "") ;создаем название файлу
ConsoleWrite($filename& @CRLF)
$hDownload=InetGet($i, "C:\Test\"&$filename, 1) ;качаем файл
InetClose($hDownload)
Next
EndIf