Как в 1С получить файл XML с адреса "https://santrek.ru/api/yml"?
Если открывать адрес "https://santrek.ru/api/yml" в программе "Download Master" или "Postman", то они распознают эту страницу как XML (то есть, как и нужно).
Если открывать этот адрес в Firefox или делать http запрос в 1С, то сайт возвращает код ответа "301".
Как в 1С загрузить XML с этого адреса?
Если открывать этот адрес в Firefox или делать http запрос в 1С, то сайт возвращает код ответа "301".
СоединениеHttp = Новый HttpСоединение("santrek.ru");
Запрос = Новый HttpЗапрос("/api/yml/");
Ответ = СоединениеHttp.Получить(Запрос);
Если Ответ.КодСостояния = 200 Тогда
Ответ_HTML = Ответ.ПолучитьТелоКакСтроку();
КонецЕсли;Как в 1С загрузить XML с этого адреса?
Найденные решения
Ответ_HTML = Ответ.ПолучитьТелоКакСтроку();
Строка_Ответ_HTML = "";
Строка_Ответ_HTML = Ответ_HTML;
ИзмКав_Ответ_HTML = СтрЗаменить(Строка_Ответ_HTML, """, "_quot_"); // сначала кавычку, т.к. в ней есть &
ИзмАмп_Ответ_HTML = СтрЗаменить(ИзмКав_Ответ_HTML, "&", "_amp_"); НаименованиеКав = СтрЗаменить(name_Реквизит.ТекстовоеСодержимое, "_quot_", Символ(34)); // Символ(34) - это двойная кавычка "
Наименование = СтрЗаменить(НаименованиеКав, "_amp_", Символ(38)); // Символ(38) - это амперсанд &
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
С = Новый HTTPСоединение(Сервер, Порт, Юзер, Пассводр, таймаут, новый защищенноесоединениесслблаблабла()); // читайте синтаксис-помощник
З = Новый HTTPЗапрос(Урл);
О = С.Получить(З);
Спасибо, дорогой друг!
Получилось загрузить XML.
Пользуясь случаем, ещё хочу спросить, как обойти фатальнейшую ошибку разбора XML?
Ошибка разбора XML: - [56,62]
Фатальная ошибка:
EntityRef: expecting ';'
В 56-й строке есть символ "амперсанд" "&". Он 60-й по счёту в строке.
После него буква "К", а дальше символ завершения узла "<", он 62-й по счёту в строке.
<category id="4530" parentId="3066"> Распродажа смесители D&K</category>
Видимо, из-за амперсанда программа хочет дальше увидеть символ "точка с запятой".
Получилось загрузить XML.
Пользуясь случаем, ещё хочу спросить, как обойти фатальнейшую ошибку разбора XML?
Ошибка разбора XML: - [56,62]
Фатальная ошибка:
EntityRef: expecting ';'
В 56-й строке есть символ "амперсанд" "&". Он 60-й по счёту в строке.
После него буква "К", а дальше символ завершения узла "<", он 62-й по счёту в строке.
<category id="4530" parentId="3066"> Распродажа смесители D&K</category>
Видимо, из-за амперсанда программа хочет дальше увидеть символ "точка с запятой".
Прикрепленные файлы:
(13)Пробел тут, чтобы движок форума не съедал символы после амперсанда.
Если до тебя не дошло, о чем я написал, повторю еще раз.
При использовании кода
Если в переменной ХМЛ уже есть экранированные символы, то они тоже заменятся, и там будет "& amp;amp;"
"& amp;gt;"
"& amp;quot"
и тд.
Давай пожалуйся еще, что это не твой код кривой, а инфостарт тебе его сломал))
Если до тебя не дошло, о чем я написал, повторю еще раз.
При использовании кода
СтрЗаменить(ХМЛ, "&", "& amp;"); Если в переменной ХМЛ уже есть экранированные символы, то они тоже заменятся, и там будет "& amp;amp;"
"& amp;gt;"
"& amp;quot"
и тд.
Давай пожалуйся еще, что это не твой код кривой, а инфостарт тебе его сломал))
Ответ_HTML = Ответ.ПолучитьТелоКакСтроку();
Строка_Ответ_HTML = "";
Строка_Ответ_HTML = Ответ_HTML;
ИзмКав_Ответ_HTML = СтрЗаменить(Строка_Ответ_HTML, """, "_quot_"); // сначала кавычку, т.к. в ней есть &
ИзмАмп_Ответ_HTML = СтрЗаменить(ИзмКав_Ответ_HTML, "&", "_amp_"); НаименованиеКав = СтрЗаменить(name_Реквизит.ТекстовоеСодержимое, "_quot_", Символ(34)); // Символ(34) - это двойная кавычка "
Наименование = СтрЗаменить(НаименованиеКав, "_amp_", Символ(38)); // Символ(38) - это амперсанд &
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот