以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请问字符判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92737)

--  作者：hbhb --  发布时间：2016/11/11 13:14:00 --  请问字符判断 下面的字符，如何判断为相似，abc，与 ab,bc,abcd，dabc,dbc,dab  就是连续两个以上字符相同就返回true？

--  作者：有点蓝 --  发布时间：2016/11/11 14:38:00 --   Dim s As String = "abc" Dim ss() As String = {"ab","bc","abcd","dabc","dbc","dab","3454543534b34353c"} For i As Integer = 0 To s.Length - 2     For Each s2 As String In ss         If s2.Contains(s.SubString(i,2)) Then             Output.Show(s2)         End If     Next Next

--  作者：hbhb --  发布时间：2016/11/11 15:58:00 --   谢谢！有没有这样判断的类或函数？

--  作者：有点蓝 --  发布时间：2016/11/11 16:48:00 --   参考2楼，自己做

--  作者：hbhb --  发布时间：2016/11/11 17:02:00 --   这样是否基本上能去除掉非指定字符，有无其他好的方法？

--  作者：有点蓝 --  发布时间：2016/11/11 17:28:00 --   或者可以考虑从源头上去解决问题。规范一下文档