关于vb.net字符串相似度的信息

VB中怎样判断两个字符串是否相等?可以参考下面的代码:
str1="abcde"
str2=inputbox("请输入一个字符串!")
if str1=str2 then
msgbox "它们是一样的呀!"
else
msgbox "它们是不一样的!"
end if
扩展资料:
VB函数
And 运算符: 执行两个表达式的逻辑连接 。
Array 函数: 返回含一数组的变体。
Asc 函数: 返回字符串首字母的 ANSI 字符代码 。
赋值运算符 (=):给变量或属性赋值 。
Description 属性: 返回或者设置说明某个错误的字符串 。
Dictionary 对象: 存储数据键、项目对的对象 。
Dim 语句: 声明变量并分配存储空间 。
除法运算符 (/): 两数相除并以浮点数格式返回商 。
参考资料来源:百度百科-Visual Basic
vb.net如何判断两个字符串是否相似?用 Like
% = 任意数量的字符
?= 单个字符
类似简易的正规则比对 。
具体可参照MSDN
例:(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
ifstr like "a%"then msgbox "yes"
ifstr like "%a%2%"then msgbox "yes"
ifstr like "%3"then msgbox "yes"
ifstr like "%3?" = falsethen msgbox "no"
VB如何判断两个字符串的相似度直接用=号判断,比如
Private Sub Command1_Click()
If InputBox("输入字符串") = "123" Then
GoTo A
Else
GoTo B
End If
A:
Print 1
GoTo C
B:
Print 2
C:
End Sub
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计算字符串的相似度,来个可执行文件最好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 l1l2 Then
xsd = l1
Else
xsd = l2
End If
xsd = 1 - d(l1, l2) / xsd
End Function
Function min3(x1, x2, x3)
If x1x2 And x1x3 Then
min3 = x1
ElseIf x2x3 And x2x1 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就会告诉你两段文字的相似度了 。
【关于vb.net字符串相似度的信息】vb.net字符串相似度的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.net字符串相似度的信息别忘了在本站进行查找喔 。

    推荐阅读