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

gaodingmofatuzi 2008-03-30 12:27:36
如图,将两段字母输入text1和2,比如:ATTTGCCC和CCCATCG,然后拼合,就能自动将头尾重叠部分text2的CCC去掉,合并成一条ATTTGCCCATCG,怎么实现?









...全文
32 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gaodingmofatuzi 2008-03-30
晕,多发了个帖子,版主删除这个吧
回复
cg_now 2008-03-30
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
回复
zzyong00 2008-03-30
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-30 12:27
社区公告
暂无公告