作者热门文章
- iOS/Objective-C 元类和类别
- objective-c - -1001 错误,当 NSURLSession 通过 httpproxy 和/etc/hosts
- java - 使用网络类获取 url 地址
- ios - 推送通知中不播放声音
受 Max()/Min() 中的 Javascript 变量参数和函数式语言中的列表理解的启发,我尝试使用通用扩展方法在 VB.NET 中获得相同的结果类型,给定 IEnumerable(of T) 作为结果类型。这适用于字符串除外。为什么?这些扩展方法可能被认为是一个坏主意。为什么这是一个坏主意的任何有力理由。
Option Explicit On
Option Strict On
Imports System.Runtime.CompilerServices
Module Module1
Sub Main()
Dim xs As IEnumerable(Of Integer) = 1.Concat(2, 3, 4)
Dim ys As IEnumerable(Of Double) = 1.0.Concat(2.0, 3.0, 4.0)
Dim zs As IEnumerable(Of String) = Concat("1", "2", "3", "4") 'silly but works, I would use a stringbuilder
'Dim zs2 As IEnumerable(Of String) = "1".Concat("2", "3", "4") ' does not work why?
'Gives:
'String' cannot be converted to 'System.Collections.Generic.IEnumerable(Of String)'
'because() 'Char' is not derived from 'String', as required for the 'Out' generic parameter 'T' in 'Interface IEnumerable(Of Out T)'.
'C:\Users\kruse\Documents\Visual Studio 10\Projects\VarArgsExperiment\VarArgsExperiment\Module1.vb 12 45 VarArgsExperiment
Console.ReadLine()
End Sub
<Extension()> _
Function Concat(Of T)(ByVal xs As IEnumerable(Of T), ByVal ParamArray params As T()) As IEnumerable(Of T)
Dim ys As IEnumerable(Of T) = params.AsEnumerable()
Return xs.Concat(ys)
End Function
<Extension()> _
Function Concat(Of T)(ByVal x As T, ByVal ParamArray params As T()) As IEnumerable(Of T)
Dim xs As New List(Of T)
xs.Add(x)
Dim ys As IEnumerable(Of T) = params.AsEnumerable
Return xs.Concat(ys)
End Function
End Module
...为了简短起见,截取了模块的其余部分。 Als 为 Add、Cast 和 Apply for Action 对象编写了一些方法。
最佳答案
一个字符串是一个IEnumerable<char>
,并且字符串和字符之间没有关系。你可以把它想象成一个维度的问题,一个字符串通常可以被认为是一个char的数组。 char[] 不等于 char,永远也不会。 System.String 还实现了一个 Concat 方法,它可能会扰乱您的类型签名,因此您可能需要小心处理。
关于.net - Paramarrays 的通用 Concat 扩展方法不适用于 IEnumerable(of String),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1581938/
我是一名优秀的程序员,十分优秀!