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

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

 

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, 如果不等则直接退出。

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值