以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现模糊相似排重？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66020)
--  作者：wh420
--  发布时间：2015/3/27 16:10:00
--  如何实现模糊相似排重？
如何实现排除模糊相似的内容？例如以下几行数据，5678就是数字不同，其他文字一样.

5号循环水泵
6号循环水泵
7号循环水泵
8号循环水泵
CS号循环水泵合闸指令
CD号循环水泵分闸指令
DE号循环水泵合闸状态
[此贴子已经被作者于2015/3/27 16:11:37编辑过]
--  作者：有点甜
--  发布时间：2015/3/27 16:16:00
--  

判断两个字符串有多少个字符不同，确定是否一样

 

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

msgbox(count)
--  作者：wh420
--  发布时间：2015/3/27 16:24:00
--  
好的，谢谢老师，研究一下
--  作者：包头123
--  发布时间：2015/3/27 17:48:00
--  
挺好。