Vb.net 查找具有近似名称的文件夹

我目前有一个例行程序，在保存文件的目录中搜索，并找到一个名为“$Fabrication Data”的文件夹。 我正在开发一个新的添加项，它将被添加到我现有的代码中，以允许出现一些人为错误，也就是说，如果该文件夹名称存在轻微的拼写错误/格式错误。 我想检查“Path”目录中的每个文件夹（但不是它的子文件夹）。当前它返回一个匹配项： 路径\子文件夹$制造数据$ 相反，如果路径是我想要的： Path$制造数据

奖金问题。。。我当前正在返回任何高于.8匹配的文件夹，如果有多个高于.8匹配的文件夹，如何返回最接近的匹配

Dim Path As String = "N:\Stuff\More Stuff\More More Stuff\Project Folder"

For Each d In System.IO.Directory.GetDirectories(Path)
    For Each sDir In System.IO.Directory.GetDirectories(d)
        Dim sdirInfo As New System.IO.DirectoryInfo(sDir)
        Dim similarity As Single = GetSimilarity(sdirInfo.Name, "$Fabrication Data")
        If similarity > .8 Then
            sFDPath = Path & "\" & sdirInfo.Name
            
            MsgBox(sFDPath)
            Else
        End If
    Next
Next
End Sub

Public Function GetSimilarity(string1 As String, string2 As String) As Single
    Dim dis As Single = ComputeDistance(string1, string2)
    Dim maxLen As Single = string1.Length
    If maxLen < string2.Length Then
        maxLen = string2.Length
    End If
    If maxLen = 0.0F Then
        Return 1.0F
    Else
        Return 1.0F - dis / maxLen
    End If
End Function

Private Function ComputeDistance(s As String, t As String) As Integer
    Dim n As Integer = s.Length
    Dim m As Integer = t.Length
    Dim distance As Integer(,) = New Integer(n, m) {}
    ' matrix
    Dim cost As Integer = 0
    If n = 0 Then
        Return m
    End If
    If m = 0 Then
        Return n
    End If
    'init1

    Dim i As Integer = 0
    While i <= n
            distance(i, 0) = System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        End While
        Dim j As Integer = 0
        While j <= m
            distance(0, j) = System.Math.Min(System.Threading.Interlocked.Increment(j), j - 1)
        End While
    'find min distance

    For i = 1 To n
        For j = 1 To m
            cost = (If(t.Substring(j - 1, 1) = s.Substring(i - 1, 1), 0, 1))
            distance(i, j) = Math.Min(distance(i - 1, j) + 1, Math.Min(distance(i, j - 1) + 1, distance(i - 1, j - 1) + cost))
        Next
    Next
    Return distance(n, m)
End Function ```

Dim Path As String=“N:\Stuff\More Stuff\More-More Stuff\Project文件夹”
对于System.IO.Directory.GetDirectory（路径）中的每个d
对于System.IO.Directory.GetDirectory（d）中的每个sDir
Dim sdirInfo作为新的System.IO.DirectoryInfo（sDir）
Dim相似性为Single=GetSimilarity（sdirInfo.Name，“$Fabrication Data”）
如果相似性>0.8，则
sFDPath=Path&“\”&sdirInfo.Name
MsgBox（sFDPath）
其他的
如果结束
下一个
下一个
端接头
公共函数GetSimilarity（string1作为字符串，string2作为字符串）作为单个
单个尺寸dis=计算距离（string1、string2）
尺寸最大值为单个=字符串1.长度
如果maxLen虽然i您可以使用以下简单类跟踪每个文件夹的评级：

Public Class FolderRating

    Public Rating As Single
    Public Folder As String

    Public Sub New(folder As String, rating As Single)
        Me.Folder = folder
        Me.Rating = rating
    End Sub

End Class

然后，创建一个列表：

Dim ratings As New List(Of FolderRating)

在循环中，当发现评级高于0.8时，将其添加到列表中：

If similarity > 0.8 Then
    Dim sFDPath As String = Path & "\" & sdirInfo.Name
    ratings.Add(New FolderRating(sFDPath, similarity))
End If

ratings.Sort(Function(x, y) x.Rating.CompareTo(y.Rating))

最后，对列表进行排序：

If similarity > 0.8 Then
    Dim sFDPath As String = Path & "\" & sdirInfo.Name
    ratings.Add(New FolderRating(sFDPath, similarity))
End If

ratings.Sort(Function(x, y) x.Rating.CompareTo(y.Rating))

然后，您可以获取列表中的最后一个值，它将是您最相似的文件夹（如果有）：

Dim bestMatch As FolderRating = ratings.LastOrDefault

您可以创建相似性评级列表。然后，您可以对该列表进行排序，并在对列表排序后获取最后一项，它应该是具有最高评级的文件夹。