以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]第一列不重复字符数量填入第二列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180254)
--  作者：miaoqingqing
--  发布时间：2022/10/10 23:02:00
--  [求助]第一列不重复字符数量填入第二列
[求助]第一列不重复字符数量填入第二列
第一列值    第二列自动录入
12345             5
11234             4
11134             3
1234               4
1134               3
1114               2
--  作者：有点蓝
--  发布时间：2022/10/11 8:31:00
--  
dim s as string = "12345"
dim lst as new list(of char )
for each c as char in s
if lst.contains(c) =false then lst.add(c)
next
msgbox(lst.count)
--  作者：y2287958
--  发布时间：2022/10/11 10:23:00
--  
Dim s As String = "123456666"
Output.Show(s.Distinct.count)