每页 ebay api 个条目

ebay api entries per page

使用下面的代码,我得到了每页最多 200 个卖家列表的数量。

我读到 Ebay API Reference 最多可以有 5000 条记录 returned。它唯一说我需要做的就是将 DetailLevelCodeType 设置为 return 我只需要我的数据。在我的具体情况下指定我只需要 return item.TitleItem.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