解釋一塊C＃代碼並轉換爲VB.NET

Question

昨天我問了這個question。 Rubens Farias指向他寫的這個piece of code回答。它下面的部分不能由MS的Visual Studio 2010專業版Beta 2中

byte[] buffer = 
Encoding.UTF8.GetBytes(
    String.Join("&", 
     Array.ConvertAll<KeyValuePair<string, string>, string>(
      inputs.ToArray(), 
      delegate(KeyValuePair item) 
      { 
       return item.Key + "=" + HttpUtility.UrlEncode(item.Value); 
      }))); 

它給在Visual Studio these錯誤進行編譯。不幸的是Rubens不再回復。

所以，我有以下幾個問題/請求：

1. 我不明白這一段代碼，請解釋究竟是什麼發生。
2. 請解釋如何改寫這部分，以便它在VS中「工作」。
3. 請解釋我應該如何將其轉換爲VB.NET。我已經嘗試使用在線轉換器無濟於事。

Answer 1

• KeyValuePair需要兩個類型參數。在你的委託聲明中，它簡單地說是KeyValuePair item，沒有類型參數。將其更改爲delegate(KeyValuePair<string,string> item)
• HttpUtility在System.Web命名空間中聲明;將using System.Web;添加到文件開頭的using語句中。

個人而言，我覺得它更容易和更清潔的使用拉姆達樣式這種代碼：

byte[] buffer = 
    Encoding.UTF8.GetBytes(
     String.Join("&", 
      Array.ConvertAll<KeyValuePair<string, string>, string>(
       inputs.ToArray(), (item) => item.Key + "=" + HttpUtility.UrlEncode(item.Value)))); 

一旦你得到的C＃代碼工作，DeveloperFusion C# to VB.NET轉換器做這項工作：

' Converted from delegate style C# implementation ' 
Dim buffer As Byte() = Encoding.UTF8.GetBytes(_ 
    [String].Join("&", _ 
    Array.ConvertAll(Of KeyValuePair(Of String, String), String)(inputs.ToArray(), _ 
     Function(item As KeyValuePair(Of String, String)) (item.Key & "=") + HttpUtility.UrlEncode(item.Value)))) 

' Converted from Lambda style C# implementation ' 
Dim buffer As Byte() = Encoding.UTF8.GetBytes(_ 
    [String].Join("&", _ 
    Array.ConvertAll(Of KeyValuePair(Of String, String), String)(inputs.ToArray(), _ 
     Function(item) (item.Key & "=") + HttpUtility.UrlEncode(item.Value)))) 

Answer 2

byte[] buffer = 
Encoding.UTF8.GetBytes(
    String.Join("&", 
     Array.ConvertAll<KeyValuePair<string, string>, string>(
      inputs.ToArray(), 
      delegate(KeyValuePair<string, string> item) 
      { 
       return item.Key + "=" + System.Web.HttpUtility.UrlEncode(item.Value); 
      }))); 

試試看。

1. 該代碼似乎正在構建GET請求列表項，例如， key1=value1&key2=value2。這是通過首先將inputs陣列轉換成單個元素key=value，然後String.Join將它們與＆符號一起進行。然後它返回數組中的UTF8字節。

2. 這有效（見代碼）。

3. 我不是一個VB.NET程序員，對不起，但我會在第二時間去。

Answer 3

它含有鍵/值對的輸入列表轉換成看起來很像一個查詢字符串的字符串（例如，ITEM1 =值1 & ITEM2 =值2），則轉換到這一點使用UTF8緩衝器字節數組編碼。

Public Class _Default 
    Inherits System.Web.UI.Page 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     Dim inputs As New List(Of KeyValuePair(Of String, String)) 
     inputs.Add(New KeyValuePair(Of String, String)("a", "adata")) 

     Dim buffer As Byte() = _ 
      Encoding.UTF8.GetBytes(_ 
       String.Join("&", _ 
       Array.ConvertAll(Of KeyValuePair(Of String, String), String)(_ 
        inputs.ToArray(), _ 
        Function(item As KeyValuePair(Of String, String)) _ 
        item.Key & "=" & HttpUtility.UrlEncode(item.Value) _ 
       ))) 
    End Sub 
End Class