主题：如何实现模糊相似排重？

判断两个字符串有多少个字符不同，确定是否一样

Dim s1 As String = "5号循环水泵"
Dim s2 As String = "6号循环水泵"
Dim count As Integer = 0
For Each s As String In s1
    If s2.Contains(s) = False Then
        count += 1
    End If
Next

msgbox(count)