每页 ebay api 个条目
ebay api entries per page
使用下面的代码,我得到了每页最多 200 个卖家列表的数量。
我读到 Ebay API Reference 最多可以有 5000 条记录 returned。它唯一说我需要做的就是将 DetailLevelCodeType
设置为 return 我只需要我的数据。在我的具体情况下指定我只需要 return item.Title
和 Item.Quantity
, Item.SellingStatus.CurrentPrice.Value
我应该如何更改最多检索 5000 条记录?
Try
Dim ApicallItem As GetItemCall = New GetItemCall(Context)
Dim apicall As GetSellerListCall = New GetSellerListCall(Context)
apicall.DetailLevelList.Add(DetailLevelCodeType.ReturnAll)
apicall.Pagination = New PaginationType()
apicall.Pagination.PageNumber = 1
'apicall.Pagination.EntriesPerPage = 200
apicall.UserID = myCfg.EbayUserId
Dim dateValue As DateTime = DateTime.Now
Dim d As DateTime = DateTime.Now.AddDays(-90)
apicall.StartTimeFilter = New TimeFilter(d.Date + New TimeSpan(0, 0, 0), dateValue.Date + New TimeSpan(23, 59, 59))
Dim sellerlist As ItemTypeCollection = apicall.GetSellerList()
Dim item As ItemType
For Each item In sellerlist
If item.Quantity <> 0 Then
' DO MY CODE
End If
Next item
Catch ex As Exception
WriteLog("Error while getting sellers list: " & ex.Message)
End Try
解决方法之一是第一次阅读所有没有细节的项目。并且对于每个项目 运行 再次 api 调用以检查它的信息。
For Each Items In sellerlist
Dim ApiOneItem As GetItemCall = New GetItemCall(Context)
ApiOneItem.DetailLevelList.Add(DetailLevelCodeType.ReturnAll)
Item = ApicallItem.GetItem(Items.ItemID)
If Item.Quantity <> 0 Then
End if
Next
使用下面的代码,我得到了每页最多 200 个卖家列表的数量。
我读到 Ebay API Reference 最多可以有 5000 条记录 returned。它唯一说我需要做的就是将 DetailLevelCodeType
设置为 return 我只需要我的数据。在我的具体情况下指定我只需要 return item.Title
和 Item.Quantity
, Item.SellingStatus.CurrentPrice.Value
我应该如何更改最多检索 5000 条记录?
Try
Dim ApicallItem As GetItemCall = New GetItemCall(Context)
Dim apicall As GetSellerListCall = New GetSellerListCall(Context)
apicall.DetailLevelList.Add(DetailLevelCodeType.ReturnAll)
apicall.Pagination = New PaginationType()
apicall.Pagination.PageNumber = 1
'apicall.Pagination.EntriesPerPage = 200
apicall.UserID = myCfg.EbayUserId
Dim dateValue As DateTime = DateTime.Now
Dim d As DateTime = DateTime.Now.AddDays(-90)
apicall.StartTimeFilter = New TimeFilter(d.Date + New TimeSpan(0, 0, 0), dateValue.Date + New TimeSpan(23, 59, 59))
Dim sellerlist As ItemTypeCollection = apicall.GetSellerList()
Dim item As ItemType
For Each item In sellerlist
If item.Quantity <> 0 Then
' DO MY CODE
End If
Next item
Catch ex As Exception
WriteLog("Error while getting sellers list: " & ex.Message)
End Try
解决方法之一是第一次阅读所有没有细节的项目。并且对于每个项目 运行 再次 api 调用以检查它的信息。
For Each Items In sellerlist
Dim ApiOneItem As GetItemCall = New GetItemCall(Context)
ApiOneItem.DetailLevelList.Add(DetailLevelCodeType.ReturnAll)
Item = ApicallItem.GetItem(Items.ItemID)
If Item.Quantity <> 0 Then
End if
Next