提取重复数据

直接上控制台代码:

vbnet 复制代码
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

演示效果:

相关推荐
专注VB编程开发20年21 小时前
Aspose.words,Aspose.cells,vb.net,c#加载许可证,生成操作选择:嵌入的资源
c#·word·.net·vb.net
rrokoko3 个月前
TIOBE 指数 12 月排行榜公布,VB.Net排行第九
编程语言·vb.net
一只小灿灿4 个月前
VB.NET 从入门到精通:开启编程进阶之路
.net·vb.net
中游鱼5 个月前
微软官方 .NET 混淆软件 Dotfuscator
microsoft·c#·.net·混淆·vb.net·dotfuscator
中游鱼5 个月前
目前最新 Reflector V11.1.0.2067版本 .NET 反编译软件
c#·.net·vb.net·.net reflector·反编译.net·最新版本
rrokoko6 个月前
TIOBE 编程指数 9 月排行榜公布 VB.Net第七
.net·vb.net
VB.Net6 个月前
EmguCV学习笔记 VB.Net 11.9 姿势识别 OpenPose
opencv·计算机视觉·c#·图像·vb.net·emgucv·姿势识别
VB.Net6 个月前
EmguCV学习笔记 VB.Net 12.1 二维码解析
opencv·计算机视觉·c#·图像·vb.net·二维码·emgucv
VB.Net6 个月前
EmguCV学习笔记 VB.Net 12.3 OCR
opencv·计算机视觉·c#·ocr·图像·vb.net·emgucv
VB.Net6 个月前
EmguCV学习笔记 C# 12.3 OCR
opencv·计算机视觉·c#·ocr·vb.net·emgucv