0
Answered

Кодировка Стандартизации Применительно к VBA

Александр Зайцев 2 years ago updated by Антон 1 year ago 4
Подскажите пожалуйста как получить русскую кодировку для сервиса Срандартизация применительно к vba excel
читаем вот таким кодом

Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
' Set http = CreateObject("Microsoft.XMLHTTP")
timeout = 2000 'milliseconds
http.setTimeouts timeout, timeout, timeout, timeout
Request = "[ ""ìñê ñóõîíñêà 11/-89"" ]"
http.Open "POST", "https://dadata.ru/api/v2/clean/address"
http.SetRequestHeader "Content-Type", "application/json" '

' http.setRequestHeader "Accept", "application/xml"
http.SetRequestHeader "Accept", "application/json"
http.SetRequestHeader "Accept-Language", "ru"
http.SetRequestHeader "Accept-Charset", "Windows-1251"

http.SetRequestHeader "Authorization", "Token " & API_KEY
http.SetRequestHeader "X-Secret", X_KEY
http.send Request
suggestions = http.responseText
Debug.Print suggestions
сервис: стандартизация интерфейс: сторонний модуль

Answer

Answer
Answered

Отлично, рад, что вы разобрались! XML в планах нет.

GOOD, I'M SATISFIED
Satisfaction mark by Александр Зайцев 2 years ago

 Request = "[ ""мск сухонска 11/-89"" ]"

ответ нашел сам

http.SetRequestHeader "Accept", "application/json; charset=utf-8"

возвращает на русском...


и второй вопрос, ответ в формате xml для стандартизации - не предусмотрен в планах? 

Answer
Answered

Отлично, рад, что вы разобрались! XML в планах нет.

Добрый день.

У заказчика (банка) стоит какая-то старая версия вашего продукта локально.

Я не могу передать запрос чтобы верно отработал

Пример:


Request URL: http://172.10.1.123:18080/factor-service/services/CleanService/doClean
Request Method: POST
user-agent: mozilla/4.0
Content-type: application/json;charset=UTF-8
Accept: application/json; charset=UTF-8
SOAPAction: doClean
Transfer-Encoding: chunked
content-length: 330
Request Data

{
    "doCleanRequest": {
        "mapping":"clean-address",
        "data":[
            "100","additional info",
            "МОСКОВСКАЯ ОБЛАСТЬ ШАТУРСКИЙ РАЙОН НАУМОВСКАЯ д. 25"
        ]
    }
}


Ответ такой: 


{"doCleanResponse":{"data":["100","additional info","i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i?? i??i??i??`i??i??i??i??i??i??i??i??i??i?? i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i?? i??i??i??i??i??i??i??i??i??i?? i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i??i?? i??i??. 25, ","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","UNDEF_01","NOT_VALIDATED_HAS_UNPARSED_PARTS","?¬, 25","11.01.2018","","","EMPTY","","","MISSED","MISSED","","","","","","","","","","NONE"]}}



Это явно не «Дадата» ツ Пожалуйста, напишите в техническую поддержку, у сотрудников банка должны быть контакты. Если контактов нет, напишите название банка, я уточню.