[sov44]

Доброго времени суток!
Помогите получить средством командной строки и wget со странички загрузки меняющуюся ссылку на скачивание крайней версии PicPick. https://picpick.app/ru/download/

[NickM]

меняющуюся ссылку на скачивание крайней версии PicPick. »

Что-то типа такого:

Код:

((iwr https://picpick.app/ru/download/free/).links|?{$_.href -match 'picpick_inst.exe'}).href[1] | Write-Output

[sov44]

NickM, благодарю, работает на ps! Но мне-бы код на cmd, чтобы в дальнейшем использовать ссылку для скачивания и сборки sfx моим конструктором.

[NickM]

Но мне-бы код на cmd »

Ссылка находится в строке с количеством символов более 10 тыс., что накладывает ограничение на обработку интерпретатором командной строки.

Возможно, что следует воспользоваться "VBScript"?

Что-то типа такого (функцию можно доработать, где файл передавать в функцию, проверку на валидность URL и прочее), где ищем первое вхождение адреса загрузки и наименование файла, наименование директории версии будет заключаться между этими двумя вхождениями:

Код:

On Error Resume Next

Function UrlPath()
  Dim file, line, pos1, pos2
  
  With CreateObject("Scripting.FileSystemObject")
    Set file = .OpenTextFile("index.html", 1)
    
    Do While file.AtEndOfStream <> True
      line = file.ReadLine
	If InStr(line, "https://download.picpick.app/") > 0 Then 
   	  pos1 = InStr(line, "https://download.picpick.app/")
   	  pos2 = InStr(line, "picpick_inst.exe")
	  Exit Do
	End If
    Loop
    
    file.Close	
  End With 
  UrlPath = MiD(line, pos1, pos2 - pos1 + len("picpick_inst.exe"))	
End Function
 
WScript.Echo UrlPath

*.cmd может выглядеть так:

Код:

@echo off
path_to_wget\wget.exe https://picpick.app/ru/download/free/ -O index.html
for /f %%i in ('cscript //nologo UrlPath.vbs') do set url=%%i
Echo.%url%

[NickM]

Можно попробовать одним сценарием обойтись (подсмотрел на форуме), но вызывать *.vbs всё же придётся:

Код:

@echo off
set "VbsFile=%localappdata%\temp\UrlPath.vbs"
set "HtmlFile=index.html"
more +9 "%~0">"%VbsFile%"
path_to_wget\wget.exe https://picpick.app/ru/download/free/ -O "%localappdata%\temp\%HtmlFile%" >nul 2>&1
for /f %%i in ('cscript //nologo %VbsFile% %HtmlFile%') do set url=%%i
Echo.%url%
exit /b 0

On Error Resume Next

Function UrlPath(HtmlPath)
  Dim file, line, pos1, pos2
 
  With CreateObject("Scripting.FileSystemObject")
    Set file = .OpenTextFile(HtmlPath, 1)
    
    Do While file.AtEndOfStream <> True
      line = file.ReadLine
	If InStr(line, "https://download.picpick.app/") > 0 Then 
   	  pos1 = InStr(line, "https://download.picpick.app/")
   	  pos2 = InStr(line, "picpick_inst.exe")
	  Exit Do
	End If
    Loop
    
    file.Close	
  End With 
  UrlPath = MiD(line, pos1, pos2 - pos1 + len("picpick_inst.exe"))	
End Function

Set WshShell = CreateObject("Wscript.Shell")
TempPath = WshShell.ExpandEnvironmentStrings("%localappdata%\Temp")
WScript.Echo UrlPath(TempPath + "\index.html")