包含vb.net字符串相似度的词条

vb.net如何判断两个字符串是否相似?

用 Like

成都创新互联公司长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为孝南企业提供专业的网站建设、成都网站设计，孝南网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。

% = 任意数量的字符

？= 单个字符

类似简易的正规则比对。

具体可参照MSDN

例：(以下代码可以直接放到程序里执行)

dim str as string

str = "abc123"

if str like "a%" then msgbox "yes"

if str like "%a%2%" then msgbox "yes"

if str like "%3" then msgbox "yes"

if str like "%3?" = false then msgbox "no"

vb.net比较字符串

vb.net规定如果要比较字符串，不能用“=”，strcomp(str1,str2,n)或者string.compare(str1,str2)

例如：

Dim a As String = "c"

Dim b As String = "c"

Dim n As Integer = String.Compare(a, b)

If n = 0 Then

MsgBox("=")

Else

MsgBox("")

End If

vb中判断字符串是否相等？

VB中的字符串比较实际上是从左到右逐个比较ASCII码,如果两个字符串的ASCII相等说明字符串相等. 实际的比较可以直接用

str1="abcde"

str2=inputbox()....

If str1=str2 then

Print 相等

Else

Print 不相等

end if

VB计算字符串的相似度，来个可执行文件最好

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

在Text1和Text2分别输入一段文字，再点Command1就会告诉你两段文字的相似度了。