Ваши комментарии

актуальна ли тема?

на входе например - Россия, 109144, г. Москва, а/я 30, АО "РПК"

или какая то часть из этого а/я адреса 

на выходе например в отдельных полях страна, город, индекс - для отправки 'твердых' писем (автоматизация печати конвертов и т.д.)

Нам тоже нужны, при маркетинговом анализе продаж по адресам конечных пользователей (база 25т юриков 50т физиков)

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

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

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

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


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

Антон, добрый день. Спасибо за быстрый ответ, пока пошел вот по такому vbscript пути (запрос json ответ xml)

Function Suggest(ByVal name, ByVal query, ByVal count) As String
    Dim http
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    timeout = 2000 'milliseconds
    http.setTimeouts timeout, timeout, timeout, timeout
    Request = "{ ""query"": """ & query & """, ""count"": """ & count & """ }"
    http.Open "POST", "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/" & name
    http.setRequestHeader "Content-Type", "application/json"
'    http.setRequestHeader "Content-Type", "application/xml"
    http.setRequestHeader "Accept", "application/xml"
    http.setRequestHeader "Authorization", "Token " & API_KEY
    http.send Request
    suggestions = Replace(http.responseText, "\""", "")
    Suggest = suggestions
End Function

с вызовом
suggested = Suggest("address", "Москва новокузнецкий", 50)


еще раз спасибо - сервис просто супер!



Сервис поддержки клиентов работает на платформе UserEcho