Ваши комментарии
Нам тоже нужны, при маркетинговом анализе продаж по адресам конечных пользователей (база 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
актуальна ли тема?
на входе например - Россия, 109144, г. Москва, а/я 30, АО "РПК"
или какая то часть из этого а/я адреса
на выходе например в отдельных полях страна, город, индекс - для отправки 'твердых' писем (автоматизация печати конвертов и т.д.)