字符串关键字搜索匹配提取处理算法

名称：字符串关键字匹配提取处理算法

功能：两个字符串，提取其中重叠的字符串

语言: Basic

功能:做字符的匹配，可以用做字符搜索

Sub strDeal()
    Dim str1, str2, strdata As String
    Dim i, j, tempi As Integer
   str1 = "中国工人先锋共产党监督委员会"
   str2 = "工人先锋监督特别委员会"
   
   
    i = 1
    j = 1
    tempi = 0
   
   
    '如果溢出，则退出循环
    While i <= Len(str1) And j <= Len(str2)
            '逐个字符提取比较，如果相等，则下标递增，提取相等的字符，不断截断子字符串的已经比较的字符
        If Mid(str1, i, 1) = Mid(str2, j, 1) Then
            strdata = strdata & Mid(str1, i, 1)
            i = i + 1
            j = j + 1
            str2 = Right(str2, Len(str2) - j + 1)
            tempi = 0
            'tempi作为一个标记，记录标号i的原始位置，当遇到相等的字符，tempi清零
        ElseIf 0 = tempi Then
            tempi = i
         '如果母字符串已经溢出，而子字符串没有截取比较完，也就是说子字符串中一定存在母字符串中所没有的字符
        ElseIf i = Len(str1) And j <= Len(str1) Then
            i = tempi
           j = j + 1
        str2 = Right(str2, Len(str2) - j + 1) '截掉不匹配的字符
        Else
            i = i - j + 2  '下标i继续递增
        End If
        j = 1  '初始，下标j指向子字符串的第一个字母

    Wend
   Debug.Print strdata

End Sub

结果打印：工人先锋监督委员会