文本对比。文本编辑距离算法

Public  Class  clsLD
　　 Private  Shared  mA()  As  Char
　　 Private  Shared  mB()  As  Char

　　 Public  Shared  Function  LD( ByVal  A  As  String,  ByVal  B  As  String)  As  Integer

　　　　mA = A.ToCharArray
　　　　mB = B.ToCharArray

　　　　 Dim  L(A.Length, B.Length)  As  Integer
　　　　 Dim  i  As  Integer, j  As  Integer

　　　　 For  i = 1  To  A.Length
　　　　　　L(i, 0) = i
　　　　 Next
　　　　 For  j = 1  To  B.Length
　　　　　　L(0, j) = j
　　　　 Next

　　　　 For  i = 1  To  A.Length
　　　　　　 For  j = 1  To  B.Length
　　　　　　　　 If  mA(i - 1) = mB(j - 1)  Then
　　　　　　　　　　L(i, j) = L(i - 1, j - 1)
　　　　　　　　 Else
　　　　　　　　　　L(i, j) = Min(L(i - 1, j - 1), L(i - 1, j), L(i, j - 1)) + 1
　　　　　　　　 End  If
　　　　　　 Next
　　　　 Next

　　　　 Return  L(A.Length, B.Length)
　　 End  Function

　　 Public  Shared  Function  Min( ByVal  A  As  Integer,  ByVal  B  As  Integer,  ByVal  C  As  Integer)  As Integer
　　　　 Dim  I  As  Integer  = A
　　　　 If  I > B  Then  I = B
　　　　 If  I > C  Then  I = C
　　　　 Return  I
　　 End  Function
End  Class