0

vb.netの実行中に...コーディングが機能し、以下のエラーで出力されました...

ラムダ パラメーター '{parameter}' は、囲んでいるブロック内の変数、以前に定義された範囲変数、またはクエリ式で暗黙的に宣言された変数を非表示にします。

このエラーを解決するにはどうすればよいですか?

コードは次のとおりです。

Private Sub ButtonProductAdvertisingAPIItemLookup_Click(System.Object としての ByVal 送信者、System.EventArgs としての ByVal e) ButtonProductAdvertisingAPIItemLookup.Click 送信者を処理します。Enabled = False

    'Product Advertising API, ItemLookup: http://docs.aws.amazon.com/AWSECommerceService/2011-08-01/DG/ItemLookup.html

    Dim ItemId(9) As String

    ItemId(0) = System.Uri.EscapeDataString(TextBoxisbn1.Text)
    ItemId(1) = System.Uri.EscapeDataString(TextBoxisbn2.Text)
    ItemId(2) = System.Uri.EscapeDataString(TextBoxisbn3.Text)
    ItemId(3) = System.Uri.EscapeDataString(TextBoxisbn4.Text)
    ItemId(4) = System.Uri.EscapeDataString(TextBoxisbn5.Text)
    ItemId(5) = System.Uri.EscapeDataString(TextBoxisbn6.Text)
    ItemId(6) = System.Uri.EscapeDataString(TextBoxisbn7.Text)
    ItemId(7) = System.Uri.EscapeDataString(TextBoxisbn8.Text)
    ItemId(8) = System.Uri.EscapeDataString(TextBoxisbn9.Text)
    ItemId(9) = System.Uri.EscapeDataString(TextBoxisbn10.Text)

    ' For Each ItemId As String In ItemIds()

    Dim i As Integer = 0
    System.Threading.Tasks.Parallel.ForEach(ItemIds, Sub(ItemId)

                                                         My.Settings.ItemId = ItemId

                                                         Dim MyREST As New SprightlySoftAWS.REST

                                                         Dim RequestURL(i) As String
                                                         RequestURL(i) = "https://webservices.amazon.com/onca/xml?Service=AWSECommerceService&Operation=ItemLookup&Version=2011-08-01"
                                                         RequestURL(i) += "&AWSAccessKeyId=AKIAJCA3UI55HFYAXQ6Q&SignatureVersion=2&SignatureMethod=HmacSHA256&Timestamp=" & Uri.EscapeDataString(DateTime.UtcNow.ToString("yyyy-MM-dd\THH:mm:ss.fff\Z"))
                                                         RequestURL(i) += "&AssociateTag=AKIAJCA3UI55HFYAXQ6Q"
                                                         RequestURL(i) += "&ResponseGroup=" & System.Uri.EscapeDataString("ItemAttributes,Large,OfferSummary,Offers,VariationSummary,Reviews")
                                                         RequestURL(i) += "&ItemId=" & System.Uri.EscapeDataString(ItemId)
                                                         RequestURL(i) += "&IdType=ISBN"
                                                         RequestURL(i) += "&SearchIndex=Books"

                                                         Dim RequestMethod As String
                                                         RequestMethod = "GET"

                                                         Dim SignatureValue As String
                                                         SignatureValue = MyREST.GetSignatureVersion2Value(RequestURL(i), RequestMethod, "", "8igixqKPKWTcsWxgWdqz+rVofSWIPcC3WynhEl1r")

                                                         RequestURL(i) += "&Signature=" & System.Uri.EscapeDataString(SignatureValue)

                                                         Dim RetBool As Boolean
                                                         RetBool = MyREST.MakeRequest(RequestURL(i), RequestMethod, Nothing)

                                                         Debug.Print("")
                                                         Debug.Print(MyREST.LogData)
                                                         Debug.Print("")

                                                         Dim Y As Integer
                                                         Dim ResponseMessage As String = ""

                                                         If RetBool = True Then
                                                             Dim MyXmlDocument As System.Xml.XmlDocument
                                                             Dim MyXmlNamespaceManager As System.Xml.XmlNamespaceManager
                                                             Dim MyXmlNode As System.Xml.XmlNode
                                                             Dim MyXmlNodeList As System.Xml.XmlNodeList

                                                             MyXmlDocument = New System.Xml.XmlDocument
                                                             MyXmlDocument.LoadXml(MyREST.ResponseString)

                                                             MyXmlNamespaceManager = New System.Xml.XmlNamespaceManager(MyXmlDocument.NameTable)
                                                             MyXmlNamespaceManager.AddNamespace("amz", "http://webservices.amazon.com/AWSECommerceService/2011-08-01")

                                                             MyXmlNodeList = MyXmlDocument.SelectNodes("amz:ItemLookupResponse/amz:Items/amz:Item", MyXmlNamespaceManager)

                                                             If MyXmlNodeList.Count = 0 Then
                                                                 ResponseMessage = "Item not found."
                                                             Else

                                                                 For Each ItemXmlNode As System.Xml.XmlNode In MyXmlNodeList
                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:ASIN", MyXmlNamespaceManager)
                                                                     ResponseMessage += "Details of " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf
                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:ItemAttributes/amz:Title", MyXmlNamespaceManager)
                                                                     ResponseMessage += "Title = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:MediumImage/amz:URL", MyXmlNamespaceManager)
                                                                     ResponseMessage += "Image = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNodeList = ItemXmlNode.SelectNodes("amz:ItemAttributes/amz:Author", MyXmlNamespaceManager)
                                                                     If IsNothing(MyXmlNodeList) = False Then
                                                                         ResponseMessage += "Author = "
                                                                         For Each MyXmlNode In MyXmlNodeList
                                                                             ResponseMessage += MyXmlNode.InnerText & ", "
                                                                         Next
                                                                     End If

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:ItemAttributes/amz:ListPrice/amz:FormattedPrice", MyXmlNamespaceManager)
                                                                     ResponseMessage += "ListPrice = "
                                                                     If IsNothing(MyXmlNode) = False Then
                                                                         ResponseMessage += MyXmlNode.InnerText
                                                                     End If

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:Offers/amz:Offer/amz:OfferAttributes/amz:Condition", MyXmlNamespaceManager)
                                                                     ResponseMessage += "Condition = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:Offers/amz:TotalOffers", MyXmlNamespaceManager)
                                                                     ResponseMessage += "TotalOffers = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:OfferSummary/amz:TotalNew", MyXmlNamespaceManager)
                                                                     ResponseMessage += "TotalNew = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNodeList = ItemXmlNode.SelectNodes("amz:OfferSummary/amz:LowestNewPrice/amz:FormattedPrice", MyXmlNamespaceManager)
                                                                     ResponseMessage += "LowestNewPrice = "
                                                                     Y = 0
                                                                     For Each MyXmlNode In MyXmlNodeList
                                                                         If Y < 25 Then
                                                                             ResponseMessage += "" & MyXmlNode.InnerText & "  "
                                                                         End If
                                                                     Next

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:OfferSummary/amz:TotalUsed", MyXmlNamespaceManager)
                                                                     ResponseMessage += "TotalUsed = " & MyXmlNode.InnerText

                                                                     ResponseMessage += vbCrLf

                                                                     MyXmlNode = ItemXmlNode.SelectSingleNode("amz:OfferSummary/amz:LowestUsedPrice/amz:FormattedPrice", MyXmlNamespaceManager)
                                                                     ResponseMessage += "LowestUsedPrice = "
                                                                     If IsNothing(MyXmlNode) = False Then
                                                                         ResponseMessage += "" & MyXmlNode.InnerText
                                                                     Else
                                                                         ResponseMessage += "0"
                                                                     End If

                                                                     ResponseMessage += vbCrLf

                                                                     'MyXmlNode = ItemXmlNode.SelectSingleNode("amz:SalesRank", MyXmlNamespaceManager)
                                                                     'ResponseMessage += "SalesRank = " & MyXmlNode.InnerText

                                                                     'ResponseMessage += vbCrLf
                                                                 Next
                                                             End If

                                                             DialogOutput.Text = "Success"
                                                             DialogOutput.TextBoxOutput.Text += vbCrLf & ResponseMessage & vbCrLf


                                                         Else
                                                             ResponseMessage = FormatLogData(MyREST.RequestURL, MyREST.RequestMethod, MyREST.RequestHeaders, MyREST.ResponseStatusCode, MyREST.ResponseStatusDescription, MyREST.ResponseHeaders, MyREST.ResponseStringFormatted, MyREST.ErrorNumber, MyREST.ErrorDescription)

                                                             DialogOutput.Text = "Error"
                                                             DialogOutput.TextBoxOutput.Text = ResponseMessage
                                                             DialogOutput.ShowDialog(Me)
                                                             DialogOutput.Dispose()
                                                         End If

                                                         i = i + 1
                                                     End Sub)
    'Next

    DialogOutput.ShowDialog(Me)
    ClearTextBox(Me)
    sender.Enabled = True
End Sub

エラーは次の行に表示されます (エラーは ItemId 変数に表示されます)。

System.Threading.Tasks.Parallel.ForEach(ItemIds, Sub(ItemId)

余分なコードを更新しました..誰かがチェックして助けてくれますか?この問題を解決するには?それでもエラーが発生します..

4

1 に答える 1

0

コメントを含め、説明されているエラーを考えると：

  1. ItemId外側のルーチンで既に宣言しています。
  2. あなたItemIdsはIEnumerable(Of String())、または同等です。

およびその他のコメント:

  • あなたの抜粋は完全ではありません: 終わりEnd Subと).
  • 連結に&=すでに使用しているように、を使用する必要があります。&

追加のコードは問題の解決には役立ちませんが、多くのことを確認する必要があることを強調しています。たとえば、i+1 RequestURL Strings の配列を宣言してから、それらの最後の 1 つだけを使用しています。また、これらは並行して実行されているためi、実際に発生したときはほとんどすべての値になる可能性があることに注意してください。

問題を解決するには、上記のコードが必要です。

于 2013-09-04T16:29:38.200 に答える