以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何获取某一字符串中不重复的值？？？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105527)

--  作者：lmlptj --  发布时间：2017/8/21 21:10:00 --  如何获取某一字符串中不重复的值？？？？ 如题所问！谢谢老师！

--  作者：有点蓝 --  发布时间：2017/8/21 21:17:00 --   截图举例说明，怎样的字符串，怎样的不重复

--  作者：lmlptj --  发布时间：2017/8/21 21:48:00 --   就是比如：11223483，去除重复的值，但最少要保留一个！

--  作者：cbt --  发布时间：2017/8/21 22:08:00 --   Dim str As String = "11223483" Dim zd As new Dictionary(of String ,String) Dim rstr As String For i As Integer=0 To str.Length-1     If zd.ContainsKey(str(i)) Then Continue For     zd.Add(str(i),"")     rstr &= str(i) Next output.show(rstr)

--  作者：lmlptj --  发布时间：2017/8/21 22:14:00 --   太感谢您了！大师！

--  作者：有点蓝 --  发布时间：2017/8/21 22:35:00 --   Dim pattern As String = "(?s)(.)(?=.*\\1)" Dim txt = "11223483" Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"") Output.Show(str)