主题：求正则表达式

参考

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) = True Then
        count += 1
    End If
Next

msgbox(count)
msgbox(count/s1.length)

具体实例上传上来测试。

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

表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

请具体说明，你要比较哪些数据。什么数据和什么数据比较。

提取哪些行的【交易要求】？提取全部交易要求？然后循环每一行专利，比较匹配的字符个数？

请好好看懂之前的例子，自行改写一下代码啊。

For Each dr As DataRow In DataTables("表A").Select("")
    Dim s1 As String = dr("第一列")
    Dim s2 As String = "这里写你的所有的交易要求"
    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

比如代码

For Each dr As DataRow In DataTables("专利交易库").Select("专利名称 is not null")
    Dim s1 As String = dr("专利名称")
    Dim s2 As String = "用于门的电泳技术和喷涂技术,电镀喷涂之类的工艺--授权未缴费发明"
    If s2.Contains(s1) Then
        dr("相似度") = 1
    Else
        Dim count As Integer = 0
        Dim str As String = ""
        For Each s As String In s1
            If s2.Contains(s) = True Then
                count += 1
                str &= s
            End If
        Next
        dr("相似度") = format(count/s2.length, "0.00") & " " & str
    End If
Next

把口水字去掉后即可，比如

【一种用于汽车制造的高效打磨装置】其中，一种、用于、的、高效 等字符，替换成空白，最后得到

【汽车制造打磨装置】，然后，你做一个【口水字】的表，添加删除口水字即可。