Доброго времени суток, уважаемые знатоки и с наступающими всех праздниками!
Помогите пойти по правильному пути, а то заблужусь, если сверну не туда
Есть сайт с репаками программ.
Возьмем эту страницу:
https://lrepacks.net/repaki-multimedia-programm/502-mp3tag-repack-amp-portable.html
Как можно получить ссылку на файл новой бета-версии обменника uploadrar?
Пробовал так:
Результат - получаю ссылку на версию 3,05 для ХР
Пробовал так:
Ссылку получаю, но... Нужно знать версию, плюс для разных програм могут быть свои нюансы, да и регулярка, берущая 2800 символов - это вроде извращение.
В идеале наверное - собирать двумерный массив со ссылками и описаниями со страницы и выбирать свежайший архив...
Кто что может подсказать?
Помогите пойти по правильному пути, а то заблужусь, если сверну не туда
Есть сайт с репаками программ.
Возьмем эту страницу:
https://lrepacks.net/repaki-multimedia-programm/502-mp3tag-repack-amp-portable.html
Как можно получить ссылку на файл новой бета-версии обменника uploadrar?
Пробовал так:
Код:
#include <IE.au3>
#include <Array.au3>
$site = 'https://lrepacks.net/repaki-multimedia-programm/502-mp3tag-repack-amp-portable.html'
$oIE = _IECreate($site, 0, 1)
$oDivs = _IETagNameGetCollection($oIE, 'div')
For $oDiv In $oDivs
If $oDiv.classname == 'entry-content' Then
$content = $oDiv.InnerHTML & @LF
ExitLoop
EndIf
Next
_IEQuit($oIE)
ProcessClose ("iexplore.exe")
$aContent=StringRegExp($content,'<div class="quote">.*</div>', 3)
$content = _ArrayToString($aContent)
$aLinks = StringRegExp($content,'(?i)href=\h*"(.+?)"',3)
For $j=0 To UBound($aLinks) - 1
If StringInStr($aLinks[$j], 'https://uploadrar.com') Then
$link = $aLinks[$j]
Else
ContinueLoop
EndIf
Next
MsgBox(4096,"Переменная $link","Файл TCPIW_OU.au3 ~~ Строка 862"&@CRLF&"$link =>"&$link&"<=")
Результат - получаю ссылку на версию 3,05 для ХР
Пробовал так:
Код:
#include <INet.au3>
#include <Array.au3>
#include <Encoding.au3>
Local $aArrayPr[3]=[2]
$site = 'https://lrepacks.net/repaki-multimedia-programm/502-mp3tag-repack-amp-portable.html'
$aArrayPr[1] = 'Mp3tag'
$aArrayPr[2] = '3.11f'
$Source = _InetGetSource ($site, True)
$Source = _Encoding_CyrillicTo1251($Source)
If StringRegExp ($Source, 'uploadrar.com') = 1 Then
$content=StringRegExp($Source,'(?si)entry-content(.+)entry-footer', 1)
$content = _ArrayToString($content)
$content = StringRegExp($content,'(?is).+('&$aArrayPr[1]&'.+'&$aArrayPr[2]&'.{2800,2800})', 1)
$content = _ArrayToString ($content)
$aLinks = StringRegExp($content,'(?i)href=\h*"(.+?)"',3)
For $i=0 To UBound($aLinks) - 1
If StringInStr($aLinks[$i], 'https://uploadrar.com') Then
$link = $aLinks[$i]
Else
ContinueLoop
EndIf
Next
EndIf
MsgBox(4096,"Переменная $link","Файл TCPIW_OU.au3 ~~ Строка 862"&@CRLF&"$link =>"&$link&"<=")
Ссылку получаю, но... Нужно знать версию, плюс для разных програм могут быть свои нюансы, да и регулярка, берущая 2800 символов - это вроде извращение.
В идеале наверное - собирать двумерный массив со ссылками и описаниями со страницы и выбирать свежайший архив...
Кто что может подсказать?