网络大杂烩首页

网络大杂烩

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【网络大杂烩】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB字符串相似度对比

    日期:2019/10/17 19:16:57来源分类:编程开发

    在开发某些程序的时候,为了防止出现太过于相似的标题,这个时候就需要对比来判断相似度,然后筛选,这个相似度很难处理,今天六子技术网公布一段特别好用的对比相似度的代码;

    ===========================六子技术网黄金分割线================================

    Function xsd(s1 As String, s2 As String) As Double
    Dim d() As Integer, l1 As Integer, l2 As Integer
    Dim i As Integer, j As Integer, t As Integer
    l1 = Len(s1)
    l2 = Len(s2)
    ReDim d(l1, l2)
    For i = 0 To l1
        d(i, 0) = i
    Next
    For i = 0 To l2
        d(0, i) = i
    Next
    For i = 1 To l1
        For j = 1 To l2
            If Mid(s1, i, 1) = Mid(s2, j, 1) Then
                t = 0
            Else
                t = 1
            End If
            d(i, j) = min3(d(i - 1, j - 1) + t, d(i, j - 1) + 1, d(i - 1, j) + 1)
        Next
    Next
    If l1 > l2 Then
        xsd = l1
    Else
        xsd = l2
    End If
    xsd = 1 - d(l1, l2) / xsd
    End Function
     
    Function min3(x1, x2, x3)
    If x1 < x2 And x1 < x3 Then
        min3 = x1
    ElseIf x2 < x3 And x2 < x1 Then
        min3 = x2
    Else
        min3 = x3
    End If
    End Function
     
    Private Sub Command1_Click()
    MsgBox "六子技术网分析相似度:" & FormatPercent(xsd(Text1.Text, Text2.Text), 2, vbTrue)
    End Sub
     

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【网络大杂烩】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员