如何接合两段输入的文字，自动去掉重叠的部分。

[gaodingmofatuzi]

如图，将两段字母输入text1和2，比如：ATTTGCCC和CCCATCG,然后拼合，就能自动将头尾重叠部分text2的CCC去掉，合并成一条ATTTGCCCATCG，怎么实现？

[zzyong00]

Private Sub Form_Load()
Dim s1 As String, s2 As String
s1 = "ATTTGCCC"
s2 = "CCCATCG"
Debug.Print cnc(s1, s2)
End Sub

Public Function cnc(s1 As String, s2 As String) As String
If Right(s1, 1) = Left(s2, 1) Then
    cnc = cnc(s1, Mid(s2, 2))
Else
    cnc = s1 & s2
End If
End Function

[cg_now]

Option Explicit

Private Sub cmd1_Click()
Dim inta As Integer
Dim intb As Integer
inta = Len(txt2.Text)
For intb = inta To 1 Step -1
If Mid(txt2.Text, 1, intb) = Right(txt1.Text, intb) Then
txt3.Text = txt1.Text & Mid(txt2.Text, intb + 1)
Exit For
End If
Next intb
End Sub

[gaodingmofatuzi]

晕，多发了个帖子，版主删除这个吧