Открываем ссылку → Файл → Скачать как → txt — Смотрим URL скачанного файла
text:=WebRequest.Responsetext
msgbox % instr(text,"errorMessage") ? 0 : textMalcev, а где, если не секрет, можно посмотреть все варианты добавочных строк вроде этой: "export?format=txt&id="? Помню раньше уже обсуждали, но никак не найду.
]]>url := "https://docs.google.com/document/export?format=txt&id=14LyJ4jBopNCizmhM79mGR-2kqo5SqXErcMrzRmyD4zk"
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("GET", url, false)
WebRequest.Send()
msgbox % WebRequest.ResponsetextПока-что пользуюсь таким вариантом:
msgbox,% CheckUpdate()
CheckUpdate()
{
URL:="https://docs.google.com/document/d/14LyJ4jBopNCizmhM79mGR-2kqo5SqXErcMrzRmyD4zk"
loop,10
{
try
{
Request:=Request(URL)
text:=Request.Responsetext()
Request.close()
}
if text contains Moved Temporarily
{
regexmatch(text, "HREF=""(.*)"">here", HREF)
URL:=HREF1
continue
}
stringleft,text,text,700
regexmatch(text, "<meta property=""og:description"" content=""Version=(.*)""><meta name=""google""", newversion)
break
}
return newversion1 ? newversion1 : 0
}
Request(url)
{
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Option(6) := False ; No redirects
WebRequest.Open("GET", url, false)
WebRequest.Send()
Return, WebRequest
}