LCS算法程序主过程中的一行语句的说明 [txt3 = txt3 & Mid$(txt2, Ldot, n2 - Tmp - Ldot)] (VB6)

默认分类 | 2020-10-22 11:11:03 | 阅读 435 次 | 评论(0)
    在主过程中,“txt3 = txt3 & Mid$(txt2, Ldot, n2 - Tmp - Ldot)”共出现了3次,而且这几乎就是“主过程”与“函数LCS()”的唯一区别。函数只须求出一串“参与字串”的长度,而主过程还要输出其内容。这句语句起什么作用呢?
我们说,“子序列”是由原字符串剔除了某些字符后所剩下字符按原来的顺序组成的。这“剩下字符”就是一段段连续的字符。我把每一段“剩下字符”称为“参与字串”[在图中用红色细框标出,下同],剔除的字串称为“不参与字串”[在图中用浅蓝色粗横线标出,下同]。
这行语句的作用就是:在下行的字符串(txt2,下同)中,剔除一个个“不参与字串”(其长度等于Tmp,下同)。取出一个个“参与字串”[Mid$(txt2, ......,下同],并且组成“最长公共子序列”[txt3 = txt3 & Mid$......]。
该语句在下面3种情况下使用:
情况1: 当上行字符串中有“不参与字串”时。(主过程里第一次出现的那一句)
情况2:当下行字符串里有“不参与字串”,而上行字符串中没有“不参与字串”时。(主过程里第二次出现的那一句))
情况3:在取出下行字符串里最后的“参与字串”时。[图例中:“,他的未婚妻”](主过程里最晚出现的那一句)

几个变量的说明:(在下行的字符串中)

n2    “不参与字串”之后一个字符的位置,也是后一个“参与字串”的第一个字的位置。(Ldot=n2)
Ldot  “参与字串”的第一个字的位置,它又是前一次这个语句中的n2。
Tmp   “不参与字串”的长度。
Mid$(txt2, Ldot, n2 - Tmp - Ldot)  在下行字符串(txt2)中取出某一串“参与字串”的内容。

0822-1.png (上传于2020-10-22 11:11:03)
0822-1.png

下面附上主过程和函数的VB代码:

Private Sub Command2_Click()
Dim i%, L1%, L2%, n1%, n2%
Dim txt1$, txt2$, txt3$
Dim Ldot%, Tmp%, gong2%, gong1%, Lian% '连,=6要连线,=7不连线
Dim zn1$, zn2$
Dim S1$, S2$, S3$, S4$, z1$
txt1 = Text1.Text
txt2 = Text2.Text
L1 = Len(txt1)
L2 = Len(txt2)
Text3.Text = ""
n1 = 1
n2 = 1
Ldot = 1
Do
    If n1 <= L1 Then zn1 = Mid$(txt1, n1, 1) Else Exit Do
    If n2 <= L2 Then zn2 = Mid$(txt2, n2, 1) Else Exit Do
    If zn1 <> zn2 Then
        gong1 = 0
        gong2 = 0
        Lian = 0
        i = 0
        Do
            z1 = Mid$(txt1, n1 + i, 1)
            If z1 = zn2 Then
                Lian = 6
                S2 = Mid$(txt1, n1 + i)
                S3 = Mid$(txt2, n2)
                S1 = Mid$(txt1, n1)
                S4 = Mid$(txt2, n2 + 1)
                gong2 = LCS(S1, S4)
                gong1 = LCS(S2, S3)
                If (gong2 > gong1) Then Lian = 7 '不连
                If Lian = 6 Then'=6要连线
                    txt3 = txt3 & Mid$(txt2, Ldot, n2 - Tmp - Ldot)
                    Tmp = 0
                    Ldot = n2
                    n1 = n1 + i + 1
                    n2 = n2 + 1
                    Lian = 0
                    i = 0
                    Exit Do
                End If
            End If
            i = i + 1
            Lian = 7
        Loop Until n1 + i > L1
        If Lian = 7 Then
            Tmp = Tmp + 1
            n2 = n2 + 1
            Lian = 0
        End If
    Else
        If Tmp > 0 Then
            txt3 = txt3 & Mid$(txt2, Ldot, n2 - Tmp - Ldot)
            Ldot = n2
            Tmp = 0
        End If
        n2 = n2 + 1
        n1 = n1 + 1
    End If
Loop Until ((n1 > L1) Or (n2 > L2))
txt3 = txt3 & Mid$(txt2, Ldot, n2 - Tmp - Ldot)
Tmp = 0
Text3.Text = txt3 & "---" & Len(txt3)
End Sub


Private Function LCS(B$, A$) As Integer
Dim L1%, L2%, n1%, n2%
Dim i%, m%, Lian% '连,=6要连线,=7不连线
Dim gong1%, gong2%
Dim zn1$, zn2$, b1$, a1$
Dim S1$, S2$, S3$, S4$, z1$
b1 = B
a1 = A
L1 = Len(b1)
L2 = Len(a1)
n1 = 1
n2 = 1
Do
    If n1 <= L1 Then zn1 = Mid$(b1, n1, 1) Else Exit Do
    If n2 <= L2 Then zn2 = Mid$(a1, n2, 1) Else Exit Do
    If zn1 <> zn2 Then
        gong1 = 0
        gong2 = 0
        Lian = 0
        i = 0
        Do
            z1 = Mid$(b1, n1 + i, 1)
            If z1 = zn2 Then
                Lian = 6
                S2 = Mid$(b1, n1 + i)
                S3 = Mid$(a1, n2)
                S1 = Mid$(b1, n1)
                S4 = Mid$(a1, n2 + 1)
                gong2 = LCS(S1, S4)
                gong1 = LCS(S2, S3)
                If gong2 > gong1 Then Lian = 7 '不连
            End If
            If Lian = 6 Then Exit Do
            i = i + 1
        Loop Until n1 + i > L1
        If n1 + i > L1 Then Lian = 7
        If Lian = 6 Then'=6要连线
            m = m + 1
            n1 = n1 + i + 1
            n2 = n2 + 1
            Lian = 0
            i = 0
        End If
        If Lian = 7 Then
            n2 = n2 + 1
            Lian = 0
        End If
    Else
        m = m + 1
        n2 = n2 + 1
        n1 = n1 + 1
    End If
Loop Until ((n1 > L1) Or (n2 > L2))
LCS = m
End Function




文章评论,共0条
游客请输入验证码
浏览51627次
文章分类