[Creat0R]

[Сеть, интернет] Как скачать файл с родным именем?

[AlexM]

Спасибо! Код интересный и я кое-что оттуда узнал. Однако с моей ссылкой вместо реального пути к файлу функция _HTTPGetResponse возвращает в первой строке "OK" вместо "found", а строки "location:" вовсе нет - поэтому не срабатывает. Интересно почему, кто знает?

Да, на всякий вот полный путь если кто захочет поэкспериментировать:
http://www.lada-auto.ru/cgi-bin/view...es&ext=pdf

[madmasles]

AlexM,
С этой ссылкой у меня так скачивает:

Код:

#include <INet.au3>

$sUrl = 'http://www.lada-auto.ru/cgi-bin/viewlist.pl?id=85544&fld=file_&tbl=vaz_catalogue_notes&ext=pdf'

If Not InetGetSize($sUrl) Then
    $sText = _INetGetSource($sUrl)
    $sFirstPartNewUrl = StringRegExpReplace($sUrl, '\A(http://.*?/)\w?.*', '\1')
    $sSecondPartNewUrl = StringRegExpReplace($sText, '(?s).*?\("/(.*?)"\)?.*', '\1')
    $sFileName = StringRegExpReplace($sSecondPartNewUrl, '^.*/', '')
    $sNewUrl = $sFirstPartNewUrl & $sSecondPartNewUrl
    $hDownload = InetGet($sNewUrl, @ScriptDir & '\' & $sFileName, 1, 1)
    Do
        Sleep(20)
    Until InetGetInfo($hDownload, 2)
    $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
    MsgBox(64, 'OK', 'Скачан файл ' & $sFileName & @CRLF & ' размером ' & $nBytes & ' b')
Else
    InetGet($sUrl, @ScriptDir & '\Test.pdf')
EndIf

Или сразу из ссылки "выдрать" прямую ссылку и скачать по ней:

Код:

$sUrl = 'http://www.lada-auto.ru/cgi-bin/viewlist.pl?id=85544&fld=file_&tbl=vaz_catalogue_notes&ext=pdf'
$sCatalog = StringRegExpReplace($sUrl, '\A(http://.*?/)\w?.*fld=(.*?)_&?.*', '\1\2/')
$sFileName = StringRegExpReplace($sUrl, '(?s).*?id=(.*?)&fld?.*', '\1')
$sExt = StringRegExpReplace($sUrl, '(?s).*?ext=(.*?)\z', '\1')

$sNewUrl = $sCatalog & $sFileName & '.' & $sExt
MsgBox(64, '', 'Прямая ссылка: ' & $sNewUrl & @CRLF & 'Имя файла: ' & $sFileName & '.' & $sExt)