- Общий
-
Вопросы
Возвращать данные в формате xml?
Здравствуйте, начинаем использовать подсказки в vba/vbscript, подскажите можно ли возвращать данные опционально в формате xml?
планируем применить во внутренней CRM..., не нашли парсер json для vbscript..., на jscript нет возможности писать, xml используем повсеместно
Ответ
Александр, добрый день! Да, можно. Указывайте HTTP-заголовки:
Content-Type: application/xml Accept: application/xml
и тело запроса передавайте в XML:
<req> <query>москва серпуховская</query> </req>
Антон, добрый день. Спасибо за быстрый ответ, пока пошел вот по такому 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
Александр, добрый день! Да, можно. Указывайте HTTP-заголовки:
и тело запроса передавайте в XML: