Серый форум — AHK: Скачивание в определенной кодировке

Re: AHK: Скачивание в определенной кодировке

null@example.com (serzh82saratov) — Mon, 11 Jan 2021 19:34:44 +0000

Вот я и говорю кино и немцы.
Помимо "если и значит", надо ввести новый оператор "наверно", тогда все вопросы информатики закончатся. )

Re: AHK: Скачивание в определенной кодировке

null@example.com (teadrinker) — Mon, 11 Jan 2021 18:06:22 +0000

Если сайт был создан, когда HTML 5 уже появился, значит они должны были рассчитывать на отображение в cp1252, если раньше — то наверно на cp28591.

Re: AHK: Скачивание в определенной кодировке

null@example.com (serzh82saratov) — Mon, 11 Jan 2021 17:23:30 +0000


url := "https://www.bl.uk/catalogues/illuminatedmanuscripts/record.asp?MSID=240"
HTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
HTTP.Open("GET", url, 0)
HTTP.Send()
body := HTTP.ResponseBody
pdata := NumGet(ComObjValue(body) + 8 + A_PtrSize)
length := body.MaxIndex() - body.MinIndex() + 1
RTxt := StrGet(pdata, length, "cp1252")
FileDelete %A_Desktop%\_tmp.html
FileAppend, %RTxt%`n, %A_Desktop%\_tmp.html, cp1252
run %A_Desktop%\_tmp.html

По какой ссылке кавычек нет?

teadrinker пишет:

В проекте стандарта HTML 5 предписывается показывать ISO-8859-1 как Windows-1252

А ты какой вывод сделал, я вот ничего не понял из множества тем по этому вопросу.

Re: AHK: Скачивание в определенной кодировке

null@example.com (DD) — Mon, 11 Jan 2021 13:06:47 +0000

CP1252 работает наоборот — те англ. кавычки сохраняет, а диакритику нет.

Re: AHK: Скачивание в определенной кодировке

null@example.com (teadrinker) — Mon, 11 Jan 2021 11:10:54 +0000

Кодировка указана в заголовке HTML: charset=iso-8859-1.

Википедия пишет:

В проекте стандарта HTML 5 предписывается показывать ISO-8859-1 как Windows-1252

MSDN пишет:

28591 iso-8859-1 ISO 8859-1 Latin 1; Western European (ISO)

Re: AHK: Скачивание в определенной кодировке

null@example.com (serzh82saratov) — Mon, 11 Jan 2021 10:35:21 +0000

Как то опечатался, наверняка я думал про Западно-Европейскую, а не про кириллицу.

Re: AHK: Скачивание в определенной кодировке

null@example.com (Malcev) — Mon, 11 Jan 2021 10:11:25 +0000

DD пишет:

StrPut(vText, &vTemp, "CP28591")

serzh82saratov пишет:

Там разве в StrGet не cp1251 должно быть.

А как вы это определили?
Хром кодирует в "windows-1252".
document.characterSet в консоли.

Re: AHK: Скачивание в определенной кодировке

null@example.com (DD) — Mon, 11 Jan 2021 09:00:16 +0000

Но тогда по этой ссылке слетит кодировка с «£» и «é». Вроде, проблема возникает со знаками «’» и «‘». Как правильно их менять на каком-то этапе?


      StringReplace, body, body, ’, ', All
      StringReplace, body, body, ‘, ', All

Re: AHK: Скачивание в определенной кодировке

null@example.com (serzh82saratov) — Mon, 11 Jan 2021 08:06:08 +0000

Там разве в StrGet не cp1251 должно быть.

Re: AHK: Скачивание в определенной кодировке

null@example.com (DD) — Mon, 11 Jan 2021 02:20:53 +0000

По предыдущей ссылке норм кодирует, — но почему по этой перед текстом «The Allegorical Menorah», квадрат возникает? —

url := "https://www.bl.uk/catalogues/illuminatedmanuscripts/record.asp?MSID=3"
HTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
HTTP.Open("GET", url, 0)
HTTP.Send()
body := HTTP.ResponseBody
pdata := NumGet(ComObjValue(body) + 8 + A_PtrSize)
length := body.MaxIndex() - body.MinIndex() + 1
RTxt := StrGet(pdata, length, "cp28591")
FileAppend, %RTxt%`n, %A_Desktop%\_tmp.html, UTF-8

Re: AHK: Скачивание в определенной кодировке

null@example.com (teadrinker) — Sun, 10 Jan 2021 23:54:09 +0000

Не, обманул, после

RTxt := StrGet(pdata, length, "cp28591")

у вас уже есть текст в переменной. Осталось его только в UTF-8 в файл записать.

Re: AHK: Скачивание в определенной кодировке

null@example.com (DD) — Sun, 10 Jan 2021 23:46:35 +0000

А как правильно вписать преобразование?

StrPut(vText, &vTemp, "CP28591")
s := StrGet(&vTemp, "UTF-8")

Re: AHK: Скачивание в определенной кодировке

null@example.com (teadrinker) — Sun, 10 Jan 2021 23:23:27 +0000

В исходной кодировке можно прямо из буфера:

url := "https://www.bl.uk/catalogues/illuminatedmanuscripts/record.asp?MSID=2611"
HTTP := ComObjCreate("Msxml2.XMLHTTP.6.0")
HTTP.Open("GET", url, 0)
HTTP.Send()
body := HTTP.ResponseBody
pdata := NumGet(ComObjValue(body) + 8 + A_PtrSize)
length := body.MaxIndex() - body.MinIndex() + 1

filePath := A_Desktop . "\site.html"
File := FileOpen(filePath, "w", "cp0")
File.RawWrite(pdata + 0, length)
File.Close()

Ну, или так:

URLDownloadToFile, https://www.bl.uk/catalogues/illuminatedmanuscripts/record.asp?MSID=2611, % A_Desktop . "\site.html"

Преобразовать можно с помощью StrPut, StrGet.

Re: AHK: Скачивание в определенной кодировке

null@example.com (DD) — Sun, 10 Jan 2021 23:04:38 +0000

Оказывается, я пробовал правильно, указывая "CP28591", но при попытке сохранить такой текст в файл, кодировка слетала. Как сохранить в исходной кодировке? А лучше прежде преобразовать в utf-8?

Re: AHK: Скачивание в определенной кодировке

null@example.com (teadrinker) — Sun, 10 Jan 2021 22:35:49 +0000

Кодировку правильную подобрать, наверно.