Levenshtein Distance in VBA [closed]

by

Translated from Wikipedia :

Option Explicit
Public Function Levenshtein(s1 As String, s2 As String)

Dim i As Integer
Dim j As Integer
Dim l1 As Integer
Dim l2 As Integer
Dim d() As Integer
Dim min1 As Integer
Dim min2 As Integer

l1 = Len(s1)
l2 = Len(s2)
ReDim d(l1, l2)
For i = 0 To l1
    d(i, 0) = i
Next
For j = 0 To l2
    d(0, j) = j
Next
For i = 1 To l1
    For j = 1 To l2
        If Mid(s1, i, 1) = Mid(s2, j, 1) Then
            d(i, j) = d(i - 1, j - 1)
        Else
            min1 = d(i - 1, j) + 1
            min2 = d(i, j - 1) + 1
            If min2 < min1 Then
                min1 = min2
            End If
            min2 = d(i - 1, j - 1) + 1
            If min2 < min1 Then
                min1 = min2
            End If
            d(i, j) = min1
        End If
    Next
Next
Levenshtein = d(l1, l2)
End Function

?Levenshtein(“saturday”,”sunday”)

3

More Related Contents:

  1. Duplicate number and it value in column EXCEL [closed]
  2. So, I have 6 “master” files to then divide into 40 separate files
  3. Getting ScriptControl to work with Excel 2010 x64
  4. Application.Match gives type mismatch
  5. Count and Highlight keywords within phrases
  6. Transpose a range in VBA
  7. Protecting cells in Excel but allow these to be modified by VBA script
  8. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  9. Detect merged cells in VBA Excel with MergeArea
  10. Using VBA code, how to export Excel worksheets as image in Excel 2003?
  11. Parse HTML content in VBA
  12. How to add a DocumentProperty to CustomDocumentProperties in Excel?
  13. How do I name a spreadsheet automatically, by referencing two cells?
  14. Excel VBA Delete Rows
  15. VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]
  16. Should I turn .CutCopyMode back on before exiting my sub procedure?
  17. VBA: How to delete filtered rows in Excel?
  18. How to use VBA SaveAs without closing calling workbook?
  19. Removing the password from a VBA project
  20. Removing special characters VBA Excel
  21. Excel VBA Formula German/French/Italian/Russian/Dutch/Foreign Function
  22. Iterate over slicer via VBA and select a single item each time
  23. Loop through Excel Sheets
  24. Return a range from A1 to the true last used cell
  25. How to add items to a combobox in a form in excel VBA?
  26. How can I open this VBA workbook faster?
  27. How do I avoid run-time error when a worksheet is protected in MS-Excel?
  28. How do I get a list of unique values from a range in Excel VBA?
  29. How to get selected value in multicolumn listbox
  30. Query my excel worksheet with VBA

Leave a Comment