以解決

感謝大家得幫忙
感恩不盡

匆忙寫的，試試看吧～

1. Dim a As String, b As String, c As String, tmp_a() As String, tmp_b() As String
   
2. Dim i As Integer, j As Integer, x As Integer, y As Integer
   
3. 
   
4. a = Trim(Text1)
   
5. b = Trim(Text2)
   
6. 
   
7.    ReDim tmp_a(Len(a))
   
8.    For i = 1 To Len(a)
   
9.        tmp_a(i) = Mid(a, i, 1)
   
10.    Next i
    
11.    
    
12.    ReDim tmp_b(Len(b))
    
13.    For i = 1 To Len(b)
    
14.        tmp_b(i) = Mid(b, i, 1)
    
15.    Next i
    
16.    
    
17.    For i = Len(b) To 1 Step -1
    
18.        x = 1
    
19.        y = i
    
20.       
    
21.        Do While y <= Len(b)
    
22.           c = ""
    
23.           For j = x To y
    
24.               c = c & tmp_b(j)
    
25.           Next j
    
26.           n = InStr(1, a, c)
    
27. 
    
28.           If n > 0 Then
    
29.              Text3 = c
    
30.              Exit For
    
31.           End If
    
32.           x = x + 1
    
33.           y = y + 1
    
34.        Loop
    
35.       
    
36.    Next i

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

Waroger

1. Private Sub Command1_Click()
   
2.     Dim a As String, b As String, c As String
   
3.     Dim i As Integer, j As Integer, x As Boolean
   
4.    
   
5.     a = "13AB48CF"
   
6.     b = "5748CABF"
   
7.     If Len(a) < Len(b) Then c = a: a = b: b = c
   
8.     For i = Len(a) To 1 Step -1
   
9.         For j = 1 To Len(a) - i + 1
   
10.             If InStr(b, Mid(a, j, i)) Then
    
11.                Print Mid(a, j, i): x = True
    
12.             End If
    
13.         Next
    
14.         If x Then Exit Sub
    
15.     Next
    
16. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

Waroger 發表於 2010-12-7 10:10 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

那天臨睡前頭腦轉不過來，想不到好方法。
真的是高招哦～多謝分享！...

瀏覽完整內容，請先 註冊 或 登入會員

goodbye_mylove

事實上字串比對問題已經有效解決很久了
主應用在文書處理(word processing) 方面
也有拿來應用到基因、染色體比對
原問題如下

在已知長度為 N 之字串(text) 中
找尋第一次出現長度為 M 之樣式字串(parttern) 位置

上述用的是暴力破解法，效率為 O(M*N)，
另常見的還有下述三種演算法

1. Knuth、Morris、Pratt 演算法 (1970)...

瀏覽完整內容，請先 註冊 或 登入會員

回復

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Waroger


    從字串 "48C" 至型別 'Integer' 的轉換是無效的。
啥意思?