VB⽐较两组字符串
【⽅法⼀】
StrComp(string1, String2, [Compare])
'函数功能：⽐较字符串string1和string2。
'返回说明：返回整数值：当string1string2时，返回值>0。这种⽐较是按照字符的字典序进⾏⽐较。
【⽅法⼆】
Declare Function lstrcmp Lib "kernel32" Alias "lstrcmpA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
'或者⽤API的lstrcmp也能很快地实现字符串的对⽐
【⽅法三】
'By JiaJia 2008-05-30
Private Function MyStrCmp(str1 As String, str2 As String) As String
字符串比较函数实现Dim TmpFor As Long, Log As Long
Dim Len1 As Long, Len2 As Long
If Len1 <> Len2 Then '长度不等直接退出
If Instr(str1, str2) > 0 Or Instr(str2, str1) > 0 Then
MyStrCmp = "长度不同，有匹配字符存在。"
Else
MyStrCmp = "完全不同。"
End If
Exit Function
ElseIf Len1 = Len2 Then
For TmpFor = 1 To Len1
If Mid(str1, TmpFor, 1) <> Mid(str2, TmpFor, 1) Then Log = Log + 1
Next
If Log = 0 Then
MyStrCmp = "长度相同，有 " & Log & " 个字符不同。"
Else
MyStrCmp = "完全相同。"
End If
Exit Function
End If
End Function

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。