提取重复数据

原创已于 2024-07-06 14:04:33 修改 · 438 阅读

·

2

·

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net

于 2024-07-06 11:04:04 首次发布

直接上控制台代码：

Module Module1
    Sub Main()
        Console.WriteLine("请输入数据，以""，""相隔：")
        Dim str As String = Console.ReadLine

        Dim result = From x In str.Split(",")
                     Group By x Into Count
                     Where Count > 1
                     Select x

        Console.WriteLine("重复数据为：" & Join(result.ToArray, ","))
        Console.ReadKey()
    End Sub
End Module

演示效果：