Здравствуйте, подскажите как отредактировать этот код, чтобы в итоговом файле была не только ссылка на флеш, но и сам урл из файла 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)