主题：求正则表达式

没看懂你例子的意思。你哪些字符和哪些字符比较得到相似度？

表A第一列、第二列，相似度比较，参考下面代码，如

For Each dr As DataRow In DataTables("表A").Select("")
    Dim s1 As String = dr("第一列")
    Dim s2 As String = dr("第二列")
    If s2.Contains(s1) Then
        dr("第三列") = "完全匹配"
    Else
        Dim count As Integer = 0
        For Each s As String In s1
            If s2.Contains(s) = True Then
                count += 1
            End If
        Next
        dr("第三列") = count/s1.length
    End If
Next