以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]第一列排除重复字符后填入第二列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185704)

--  作者：miaoqingqing --  发布时间：2023/3/11 16:42:00 --  [求助]第一列排除重复字符后填入第二列 [求助]第一列排除重复字符后填入第二列 第一列值    第二列自动录入 12345             12345  11234             1234  11134             134   1234               1234  1134               134   1114               14

--  作者：有点蓝 --  发布时间：2023/3/11 17:22:00 --   Dim s As String = "11234" Dim lst As New list(Of String) For Each c As Char In s If lst.Contains(c) = False Then lst.add(c) Next msgbox(string.join("",lst.toarray))