主题：求正则表达式

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

 

表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

专利交易库中有‘交易要求’，交易要求意思就是有人求购专利的简介说明，还有‘专利名称’，专利名称就是有人要出售的专利名称，要求能自动匹配求购专利的‘’交易要求‘’与‘’专利名称‘’的符合度。例如：有人在交易要求中说求购太阳、电动车实用专利，如果专利名称列里面有关于太阳能或电动车之类的关键词，则自动找出来，总体意思是实现买方与卖方的自动匹配

这种遍历的方法效率低不说，匹配出来的结果也未必有用。建议还是找找AI方面的应用，比如BAT开放的自然语言处理方面的接口。

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

 

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

 

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

针对每个交易要求，在专利名称中找符合度最高的

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

如画圈地方，同一个如有高于2个以上字符符合，就
此主题相关图片如下：12.png

别再往下比较，目前来看，效率不高，速度慢，但i》2时还是能有些作用的

比如代码

 

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

这比人工还是要快点，毕竟现在临时抱佛脚
此主题相关图片如下：无标题.png