函数： 判断两个字符串是否完全一样

有时候要比对两个字符串是否完全一样， 以实现判断条件， 以下函数作为参考：

 

Private Function IsEquals(str1 As String, str2 As String) As Boolean

Dim i As Integer
Dim j As Integer
Dim count As Integer

If Len(str1) <> Len(str2) Or Len(str1) = 0 Or  Len(str2) = 0 Then      ' 长度不等或者空字符串都认为是不相等。
   IsEquals = False
   Exit Function
End If
For i = 1 To Len(str1)                                                                                ' 先根据 STR1 来对比 STR2, 如果不等则直接退出。

        If Mid(str1, i, 1) = Mid(str2, i, 1) Then
             count = count + 1
        End If

Next i
If count = Len(str1) Then
    IsEquals = True
Else
    IsEquals = False
    Exit Function
End If
count = 0

For i = 1 To Len(str2)                                                                              ' 先根据 STR2 来对比 STR1, 如果不等则直接退出。