专家坐堂-任意两个连续的字符串相同就认为相同的代码怎么找不到了？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  任意两个连续的字符串相同就认为相同的代码怎么找不到了？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115855)

--  作者：hbhb
--  发布时间：2018/3/15 16:53:00
--  任意两个连续的字符串相同就认为相同的代码怎么找不到了？
请教大师：如果两个字符串中有两个连续字符相同，就认为相同。例如：中华民国人民，伟大的中华炎黄子孙人民万岁。如何得出：就是一个祖宗？的代码？

--  作者：有点甜
--  发布时间：2018/3/15 17:04:00
--
Dim s1 = "中华民国人民"
Dim s2 = "伟大的中华炎黄子孙人民万岁"
For i As Integer = 0 To s1.length-2
    Dim s As String = s1.Substring(i,2)
    If s2.contains(s) Then
        msgbox(s)
    End If
Next

--  作者：hbhb
--  发布时间：2018/3/15 17:24:00
--
谢谢！任意两个以上相同怎么改？

--  作者：有点甜
--  发布时间：2018/3/15 17:31:00
--
Dim s1 = "中华民国人民"
Dim s2 = "伟大的中华民国炎黄子孙人民万岁"
For j As Integer = s1.length To 2 Step -1
    For i As Integer = 0 To s1.length-j
        Dim s As String = s1.Substring(i,j)
        If s2.contains(s) Then
            msgbox(s)
        End If
    Next
Next