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

页面导航:首页 > 软件编程 > vb.net > 字符串关键字搜索匹配提取处理算法

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

来源: 作者: 时间:2016-01-18 16:54 【

名称:字符串关键字匹配提取处理算法功能:两个字符串,提取其中重叠的字符串语言: Basic功能:做字符的匹配,可以用做字符搜索Sub strDeal() Dim str1, str2, strdata As String Dim i, j, tempi A...

 

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

 

功能:两个字符串,提取其中重叠的字符串

 

语言: 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

 

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

 

 

 

 摘自 酒鸿色的心专栏

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <