提取两个字符串中最大相同部分的字符串。

dyho2010

比较两个字符串，并把这两个字符串中最大相同部分提取出来，不区分大小写。如下所示字符串1 字符串2  为原始数据
相同部分、最大相同字符串字母数 为待求结果。
为了方便各位大侠看，我把相同部分标红了。

字符串1	字符串2	相同部分	最大相同字符串字母数	备注
Zhou, LG	mmlgzhou	zhou	4	1.字符转中包括大小写字母、逗号、句号、下划线和空格。匹配不区分大小写。         2.如果能实现提取“相同部分”最好，且相同字符串的字母个数大于3才提取出来，因为2个以下有重复，不好实现，提取出来也没有意义。         3.如果上述功能实现困难，能够统计最大相同字符串的数目也行。
Zhou, LGGGA	Zlggga	lggga	5
Flavel, BS	benjamin.flavel	flavel	6
Anafcheh, M	m.anafcheh	anafcheh	8
Fouladi, AA	a.ahmadifouladi	fouladi	7
Zoubkoff, R	sylvain		0
Yaghobi, M	m.yaghoubi	yaghoubi	7
Bezerra, CG	cbezerdd	bezer	5
Partovi-Azar, P	p.partovi	partovi	7
zaab	daab	aab	3
zab	zdavab	ab	2
za	bbad	a	1
ba	ab	b	1

lq93808-2

有点难,帮顶一下.

ili

实现不难，主要是要效率高比较难。

dyho2010

效率低一点也无所谓。

yjh_27

自定义函数

dyho2010

yjh_27 发表于 2015-6-17 21:19
自定义函数

膜拜大神，你的回答完美解决我提出的问题。万分感谢。

wp8680

Option Compare Text

Public Function TQZD(RG1 As String, RG2 As String)
    Dim M%, N%, A%, B%, C%, X%, ARR()
    X = VBA.Len(RG1)
    ReDim ARR(1 To X)
    For M = 1 To UBound(ARR)
        For N = 1 To Len(RG2)
            A = 0
            Do While Mid(RG1, M + A, 1) = Mid(RG2, N + A, 1) And Mid(RG1, M + A, 1) <> "" And Mid(RG2, N + A, 1) <> ""
                '            MsgBox Mid(RG1, M + A, 1) & " :" & Mid(RG2, N + A, 1)
                A = A + 1
            Loop
            If A > B Then
                B = A
                C = N
            End If
        Next N
    Next M
    If B = 0 Or C = 0 Then
        TQZD = ""
    Else
        TQZD = Mid(RG2, C, B)
    End If
End Function

dsmch

1. Function xt(rng1, rng2)
   
2. zf = LCase(rng1): zf2 = LCase(rng2)
   
3. p = ""
   
4. For i = Len(zf) To 1 Step -1
   
5.     For j = 1 To Len(zf) - i + 1
   
6.         z = Mid(zf, j, i)
   
7.         If InStr(zf2, z) Then p = z: GoTo 100
   
8.     Next
   
9. Next
   
10. 100:
    
11. xt = p
    
12. End Function

复制代码

wp8680

1. Option Compare Text
   
2. 
   
3. Public Function TQZD(RG1 As String, RG2 As String)
   
4.     Dim M%, N%, A%, B%, C%
   
5.     For M = 1 To Len(RG1)
   
6.         For N = 1 To Len(RG2)
   
7.             A = 0
   
8.             Do While Mid(RG1, M + A, 1) = Mid(RG2, N + A, 1) And Mid(RG1, M + A, 1) <> "" And Mid(RG2, N + A, 1) <> ""
   
9.                 A = A + 1
   
10.             Loop
    
11.             If A > B Then B = A: C = N
    
12.         Next N
    
13.     Next M
    
14.     If B = 0 Or C = 0 Then TQZD = "" Else TQZD = Mid(RG2, C, B)
    
15. End Function

复制代码

ili

yjh_27 发表于 2015-6-17 21:19
自定义函数

AAABBBB 和AAACBBBB