Function max_long_str(str1,str2) If len(str1) <= len(str2) Then s_str = str1 l_str = str2 Else s_str = str2 l_str = str1 End If j = len(s_str) Do While j > 1 j = round(j/2+0.5) For i=0 To len(s_str)-j+1 temp = Mid(s_str,i+1,j) If Not IsNull(Instr(l_str,temp)) And Instr(l_str,temp) > 0 Then If((instr(l_str,temp)-b_pos=1) or not isnull(b_pos)) Then str(n) = mid(str(n),1,k) & temp & mid(str(n),k) k = k+1 b_pos = instr(l_str,temp) Else k = 0 n = n+1 End If Else k=0 n = n + 1 End if if isnull(str) Then exit for End if i = i +1 Next Loop If ubound(str) > 1 Then for i = 0 to ubound(str) If len(str(i)) >= len(strr) Then strr = str(i) Else strr = strr End If Next End If max_long_str = strr End Function
