提取重复数据

直接上控制台代码:

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年13 天前
C#.NET模拟用户点击按钮button1.PerformClick自动化测试
开发语言·自动化测试·c#·vb.net
专注VB编程开发20年16 天前
写.NET可以指定运行SUB MAIN吗?调用任意一个里面的类时,如何先执行某段初始化代码?
开发语言·vb.net
专注VB编程开发20年16 天前
WebView2最低支持.NET frame4.5,win7系统
c#·.net·webview2·vb.net
专注VB编程开发20年17 天前
C#,VB.NET正则表达式法替换代码
正则表达式·c#·.net·vb.net
专注VB编程开发20年23 天前
Aspose.words,Aspose.cells,vb.net,c#加载许可证,生成操作选择:嵌入的资源
c#·word·.net·vb.net
rrokoko4 个月前
TIOBE 指数 12 月排行榜公布,VB.Net排行第九
编程语言·vb.net
一只小灿灿5 个月前
VB.NET 从入门到精通:开启编程进阶之路
.net·vb.net
中游鱼6 个月前
微软官方 .NET 混淆软件 Dotfuscator
microsoft·c#·.net·混淆·vb.net·dotfuscator
中游鱼6 个月前
目前最新 Reflector V11.1.0.2067版本 .NET 反编译软件
c#·.net·vb.net·.net reflector·反编译.net·最新版本
rrokoko7 个月前
TIOBE 编程指数 9 月排行榜公布 VB.Net第七
.net·vb.net