Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

На англ.: VB Function read and parse Json from etsy.com API Call

Тех. Задание:

Дополнить существующую функцию VB Function ( смотрите ниже) , которая получает при вызове номер лота, по номеру лота выполняет запрос:

https://openapi.etsy.com/v2/listings/12345672?&api_key=ХХХХ

API Key пришлем.

в этом запросе 12345672 - id лота. Тоесть сначала получаем по номеру лота номер пользователя "user_id":5711158, а потом по номеру пользователя его логин по запросу:

https://openapi.etsy.com/v2/users/5711158?&api_key=ХХХХ

API Key пришлем.

Запрос возвращает следующую строчку (JSON):

{"count":1,"results":[{"user_id":5711158,"login_name":"jessjamesjake","creation_tsz":1282245371,"referred_by_user_id":null,"feedback_info":{"count":3396,"score":100}}],"params":{"user_id":"5711158"},"type":"User","pagination":{}}

Функция должна вернуть: "jessjamesjake"

Существующая функция уже ищет данные на евау. Вот код функции:

Function consumeWebService(ItemNumber)

Dim webServiceUrl, httpReq, node, myXmlDoc

webServiceUrl = "http://open.api.ebay.com/shopping?callname=GetMultipleItems&responseencoding=XML&appid=ХХХХХ&siteid=ХХХ&version=ХХХ&ItemID=" & ItemNumber & "&IncludeSelector=Details"

Set httpReq = Server.CreateObject("MSXML2.ServerXMLHTTP")

httpReq.Open "GET", webServiceUrl, False

httpReq.Send

Set myXmlDoc =Server.CreateObject("MSXML.DOMDocument")

myXmlDoc.load(httpReq.responseBody)

Set httpReq = Nothing

Set node = myXmlDoc.documentElement.selectSingleNode("//GetMultipleItemsResponse/Item/Seller/UserID")

dim cn,rs,SellerId

set cn=server.CreateObject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

cn.ConnectionString=Application("cnWesternBid_ConnectionString")

cn.Open

If Not node Is Nothing Then

SellerId=node.text

'update DB record

процедуры по обновлению базы данных

cn.Execute sql

Exit Function

Else

Теперь нужно добавить поиск на etsy.

Eсли же и на етси не найден SellerId, то

'update DB record

процедуры по обновлению базы данных, на данный номер лота нет продавца

cn.Execute sql

Exit Function

End If

response.Write(consumeWebService)

End Function

11 лет назад
westernbid
53 годаСША
11 лет в сервисе
Был
4 года назад
Выбранный исполнитель
hanick
40 летРоссия
21 год в сервисе
Был
7 лет назад
11 лет назад
$100
2 дня
Сотрудничеством остался доволен.
несмотря на некоторые заминки с моей стороны, заказчики были очень адекватными. Рекомендую.
  • Похожие заказы
  • $2500

    1. MS Sql, работа и понимание memory cache баз данных, 2. Умение составить верстку из уже существующих стилей. 3. Опыт администрирования серверов. 4. Оперативное исправление ошибок, допущенных самим же. 5. Навык проектирования и понимания процесса развития с увеличением нагрузки ...

    Закрыт
    10 лет назад
  • $100

    Система что то на подобии черного списка пользователей, только черный список игроков. Сервис с регистрацией/входом (авторизацией), т.е. что бы пользователь смог зарегистрироваться и добавить жертву (естественно с доказательствами скриншоты и т.д.) в каталог (черный список) сам ...

    Закрыт
    11 лет назад
  • Есть сайт luxprof.ru (cms - opencart Version 1.5.2.1) 1.Необходимо сделать поле для вставки flash изображения на каждой странице товара определенного поставщика (товаров около 470) (http://www.luxprof.ru/svetilniki/lp-31162-pattern) Изображение должно быть такого рода -Скидка 10% при заказе данного ...

    Закрыт
    11 лет назад
  • Есть сайт - чехлы-для-авто.рф. Есть исходники. Надо: 1. Сделать аналогичный сайт, удалив часть из середины. 2. Доработать форму заявки 3. Заметить фоновую картинку в двух местах. 4. Тексты поставить другие. 5. Залить на хостинг и прикрепить домен. Сделать надо в течение ...

    Закрыт
    11 лет назад
  • Нужен специалист который поможет настроить нормально VPS сервер. Перенес скрипт с обычного хостинга на Windows 2008 Server R2. Он криво работает ошибки выдает различные. Проблема в настроить IIS, php. Задача найти в чем проблема и ...

    Закрыт
    11 лет назад