VBA 中的编辑距离 [关闭]

编辑距离是一种常用的文本相似度度量方法，用来衡量两个字符串之间的相似程度。在VBA中，我们可以通过自己编写代码来实现编辑距离算法。

VBA
Function EditDistance(s1 As String, s2 As String) As Integer
    Dim m As Integer
    Dim n As Integer
    Dim i As Integer
    Dim j As Integer
    Dim cost As Integer
    Dim d() As Integer
    
    m = Len(s1)
    n = Len(s2)
    ReDim d(0 To m, 0 To n)
    
    For i = 0 To m
        d(i, 0) = i
    Next i
    
    For j = 0 To n
        d(0, j) = j
    Next j
    
    For i = 1 To m
        For j = 1 To n
            If Mid(s1, i, 1) = Mid(s2, j, 1) Then
                cost = 0
            Else
                cost = 1
            End If
            
            d(i, j) = WorksheetFunction.Min3(d(i - 1, j) + 1, d(i, j - 1) + 1, d(i - 1, j - 1) + cost)
        Next j
    Next i
    
    EditDistance = d(m, n)
End Function

VBA
Sub TestEditDistance()
    Dim s1 As String
    Dim s2 As String
    Dim distance As Integer
    
    s1 = "kitten"
    s2 = "sitting"
    
    distance = EditDistance(s1, s2)
    
    MsgBox "编辑距离为：" & distance
End Sub