Не Могу Разобратся С Кодировкой

  • Автор темы SeverBap
  • Дата начала
S

SeverBap

Код:
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла();	
Соединение = Новый HTTPСоединение("www.nbrb.by");
Попытка
Соединение.Получить("statistics/Rates/RatesPrint.asp?fromDate="+Формат(ТекущаяДата(),"ДФ=yyyy-MM-dd"),ИмяВременногоФайла);
Соединение=Неопределено;
Исключение
Соединение=Неопределено;
КонецПопытки;
НоваяТаб=Новый ТаблицаЗначений();
НоваяТаб.Колонки.Добавить("Код");
НоваяТаб.Колонки.Добавить("Наименование");
НоваяТаб.Колонки.Добавить("Курс");
ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.ОткрытьФайл(ИмяВременногоФайла);
ПостроительDOM = Новый ПостроительDOM;
ДокументDOM = ПостроительDOM.Прочитать(ЧтениеHTML);	
СписокTr=ДокументDOM.ПолучитьЭлементыПоИмени("tr");
Для Каждого Tr Из СписокTr Цикл
Попытка
НоваяСтрока=НоваяТаб.Добавить();
НоваяСтрока.Код=СокрЛП(Tr.ДочерниеУзлы[0].ТекстовоеСодержимое);
НоваяСтрока.Наименование=СокрЛП(Tr.ДочерниеУзлы[1].ТекстовоеСодержимое);
НоваяСтрока.Курс=СокрЛП(Tr.ДочерниеУзлы[2].ТекстовоеСодержимое);
Исключение

КонецПопытки;	
КонецЦикла;
Результат таблица с абро кадабра хотя в файле стоит UTF-8
что там с кодировкой не так?
 
S

SeverBap

:O_0:
Код:
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла();	
Соединение = Новый HTTPСоединение("www.nbrb.by");
Попытка
Соединение.Получить("statistics/Rates/RatesPrint.asp?fromDate="+Формат(ТекущаяДата(),"ДФ=yyyy-MM-dd"),ИмяВременногоФайла);
Соединение=Неопределено;
Исключение
Соединение=Неопределено;
КонецПопытки;
ТаблицаДанных.Очистить();
ЧтениеHTML = Новый ЧтениеHTML;
ЧтениеHTML.ОткрытьФайл(ИмяВременногоФайла,"UTF-8");
ПостроительDOM = Новый ПостроительDOM;
ДокументDOM = ПостроительDOM.Прочитать(ЧтениеHTML);	
СписокTr=ДокументDOM.ПолучитьЭлементыПоИмени("tr");
Для Каждого Tr Из СписокTr Цикл
Попытка
Если СокрЛП(Tr.ДочерниеУзлы[0].ТекстовоеСодержимое)="Код" Тогда 
Продолжить;
КонецЕсли;
НоваяСтрока=ТаблицаДанных.Добавить();
НоваяСтрока.Код=СокрЛП(Tr.ДочерниеУзлы[0].ТекстовоеСодержимое);
НоваяСтрока.Наименование=СокрЛП(Tr.ДочерниеУзлы[1].ТекстовоеСодержимое);
НоваяСтрока.Курс=СтрЗаменить(СокрЛП(Tr.ДочерниеУзлы[2].ТекстовоеСодержимое)," ","");
Исключение

КонецПопытки;	
КонецЦикла;
После явного указания прокатило
 
Д

Дайнеко

Занимался этим вопросам раньше. https://codeby.net/threads/50307.html
Честно говоря так и не добился толка с кодировкой. Переделал на другой вариант запроса - xml - файл.
И кодировкой все ладно, и читается надежнее.

Код:
ДатаДляФайла = Формат(ДатаГод(ДатаВвода), "Ч4") + "-"+ Формат(ДатаМесяц(ДатаВвода), "Ч2") +"-"+ Формат(ДатаЧисло(ДатаВвода), "Ч2");
СтрокаЗапрос = "http://www.nbrb.by/Services/XmlExRates.aspx?ondate="+ ДатаДляФайла;
НТТР.ПолучитьКакФайл(СтрокаЗапрос, "Курсы.xml");
 
A

Alekseyyy

Советую обратится на специлизированнный портал по фрилансу 1С, там думаю должны решить вашу проблему. Например неоднократно используемая мною в качестве площадки для поиска специалистов, . Либо получите квалифицированный совет по вашей проблеме.
 
S

SeverBap

Советую обратится на специлизированнный портал по фрилансу 1С, там думаю должны решить вашу проблему. Например неоднократно используемая мною в качестве площадки для поиска специалистов, . Либо получите квалифицированный совет по вашей проблеме.
Чет я не понял к чему это?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!