0
Answered

Возвращать данные в формате xml?

Александр Зайцев 2 years ago • updated by Антон 2 years ago 3

Здравствуйте, начинаем использовать подсказки в vba/vbscript, подскажите можно ли возвращать данные опционально в формате xml?


планируем применить во внутренней CRM..., не нашли парсер json для vbscript..., на jscript нет возможности писать, xml используем повсеместно

интерфейс: api сервис: подсказки

Answer

Answer
Answered

Александр, добрый день! Да, можно. Указывайте HTTP-заголовки:

Content-Type: application/xml
Accept: application/xml


и тело запроса передавайте в XML:

<req>
  <query>москва серпуховская</query>
</req>
Answer
Answered

Александр, добрый день! Да, можно. Указывайте 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)


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

Да, тоже вариант. Спасибо за отзыв ツ