Dim s1 As List(of String)
Dim s2 As List(of String)
S1 = DataTables("专利交易库").GetValues("专利名称")
S2= DataTables("专利交易库").GetValues("交易要求")
For Each s22 As String In s2
For Each s11 As String In s1
Dim count As Integer = s11.Length
For i As Integer = count -2 To 1 Step -1
For j As Integer = count - i To 0 Step -1
Dim s As String = s11.SubString(j,i)
If s22.Contains(s) And i >1 Then
Dim dr As DataRow = DataTables("专利交易库").Find("交易要求 = '" & s22 & "'")
Dim ddr As DataRow = DataTables("专利交易库").Find("专利名称 = '" & s11 & "'")
If dr IsNot Nothing And ddr IsNot Nothing Then
output.show("可能与买方QQ:" & dr("qq") & "要求:" & s22 & " " & "匹配的QQ:" & ddr("QQ") & "专利是:" & s11 & " 匹配有" & i & "个" & " " & " 匹配的字符是:" & s & " " & "相似度:" & Format(i/s11.Length,"#0.00%") )
output.show("")
output.show("")
End If
End If
Next
Next
Next
Next
这段代码目的是在专利交易库中查询和交易要求能匹配的专利名称,现在遇见输出问题,计划将输出结果能达到两个目的1、直接输出为一个Excel文件,此文件的按输出要求"可能与买方QQ:" & dr("qq") & "要求:" & s22 & " " & "匹配的QQ:" & ddr("QQ") & "专利是:" & s11 & " 匹配有" & i & "个" & " " & " 匹配的字符是:" & s & " " & "相似度:" & Format(i/s11.Length,"#0.00%") )格式。2、或者能直接输出项目项目中直接输出为哪怕是一个临时表,相应字段也按"可能与买方QQ:" & dr("qq") & "要求:" & s22 & " " & "匹配的QQ:" & ddr("QQ") & "专利是:" & s11 & " 匹配有" & i & "个" & " " & " 匹配的字符是:" & s & " " & "相似度:" & Format(i/s11.Length,"#0.00%") )这样
此主题相关图片如下:无标题.png
另外,如图中画圈地方有重复,如何去除,请教下能做代码优化,几天了没能解决
此主题相关图片如下:无标题.png
[此贴子已经被作者于2019/2/13 10:47:44编辑过]