- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于查找相似度的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134118)
-- 发布时间：2019/4/27 23:47:00
-- [求助]关于查找相似度的问题
在论坛上找到了有点色老师的一个检查相似度的方法，但是要把这个方法用到 表格中，好像有点复杂。。在第二列中，找到相似度超过70%的行。并筛选出来。
Dim sa As String = "达尔优1代2代3代108键87键合金板机械师防尘防水键盘保护贴膜套"
Dim sb As String = "达尔优1代2代3代108键合金板机械师防尘防水键盘保护贴膜套"
Dim count As Integer
If sa.Length >= sb.length Then
Dim s As String = sa
sa = sb
sb = s
End If
For i As Integer = 0 To sa.Length - 1
If sb.Contains(sa(i)) Then
count += 1
End If
Next
msgbox(count/sb.length)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2019/4/28 9:21:00
--
Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
Dim sa As String = "a发啊发士大夫1"
Dim sb As String = r("第二列")
Dim count As Integer = 0
If sa.Length >= sb.length Then
Dim s As String = sa
sa = sb
sb = s
End If
For i As Integer = 0 To sa.Length - 1
If sb.Contains(sa(i)) Then
count += 1
End If
Next
r("第一列") = count/sb.length
Next