解释一段 C# 代码并转换为 VB.NET

Question

昨天我问了这个question。 Rubens Farias 指着他写的piece of code 回答了这个问题。 MS Visual Studio 2010 Professional 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 错误。不幸的是，鲁本斯不再回复了。

所以我有以下问题/要求：

1. 我不明白这段代码，请解释一下到底发生了什么。
2. 请说明如何重写此部分以使其在 VS 中“工作”。
3. 请解释我应该如何将它转换为 VB.NET。我使用在线转换器尝试过，但无济于事。

Answer 1

• KeyValuePair 需要两个类型参数。在您的委托声明中，它只是简单地说KeyValuePair item，没有类型参数。将此更改为delegate(KeyValuePair<string,string> item)
• HttpUtility 在 System.Web 命名空间中声明；在文件开头的 using 语句中添加using System.Web;。

我个人觉得在这种代码中使用 lambda 样式更容易、更简洁：

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=value1&item2=value2），然后使用 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