求两个字符串的差异

zhangstone · 发表于 2023-1-8 13:04

各位高手：

你们好！
我想求出两个字符串的差异，详情请见附件。

liulang0808 · 发表于 2023-1-8 13:38

楼主的字符串比较，是根据逗号分割的对应位置比较，还是不同位置，数值是否相同来比较？

zhangstone · 发表于 2023-1-8 13:42

liulang0808大侠：
您好！
只比较两个字符串的数值大小是否相同，不考虑位置。

zhangstone · 发表于 2023-1-8 13:46

本帖最后由 zhangstone 于 2023-1-8 13:50 编辑

Liulang0808大侠：
我的两个字符串，都是从左向右递减排序，样例数据只是为了说明，所以没有排序，只比较两个字符串长度不超过正负2，两个字符串变化的结果，其他不同长度的字符串的情况一律为“其他”。

liulang0808 · 发表于 2023-1-8 14:06

Function compare_data(rn1, rn2)
Application.Volatile
arr = Split("," & rn1, ",")
brr = Split("," & rn2, ",")
If UBound(arr) = 1 Or UBound(brr) = 1 Then
      compare_data = "其他"
Else
      If UBound(arr) = UBound(brr) Then
         Set d = CreateObject("scripting.dictionary")
         For j = 1 To UBound(arr)
            d(arr(j)) = ""
         Next j
         For j = 1 To UBound(brr)
            If d.exists(brr(j)) Then d.Remove brr(j)
         Next j
         compare_data = d.Count
      Else
         If UBound(arr) < UBound(brr) Then
            compare_data = "-" & UBound(brr) - UBound(arr)
         Else
            compare_data = "+" & UBound(arr) - UBound(brr)
         End If
      End If
End If
End Function

liulang0808 · 发表于 2023-1-8 14:06

.。。。。。。。。。。

zhangstone · 发表于 2023-1-8 14:09

liulang0808大侠：

您真牛！这就是我想要的结果。超级感谢！

zhangstone · 发表于 2023-1-8 14:18

本帖最后由 zhangstone 于 2023-1-8 14:26 编辑

liulang0808大侠：

不好意思，刚才没有仔细检查，结果好像有问题（是我没有说清楚的原因，不是您的问题）。

liulang0808 · 发表于 2023-1-8 14:39

Function compare_data(rn1, rn2)
Application.Volatile
arr = Split("," & rn1, ",")
brr = Split("," & rn2, ",")
Set d = CreateObject("scripting.dictionary")
If UBound(arr) >= UBound(brr) Then
      For j = 1 To UBound(arr)
         d(arr(j)) = ""
      Next j
      For j = 1 To UBound(brr)
         If d.exists(brr(j)) Then d.Remove brr(j)
      Next j
Else
      For j = 1 To UBound(brr)
         d(brr(j)) = ""
      Next j
      For j = 1 To UBound(arr)
         If d.exists(arr(j)) Then d.Remove arr(j)
      Next j
End If
If d.Count > 2 Then
      compare_data = "其他"
Else

      If UBound(arr) = UBound(brr) Then
         compare_data = d.Count
      Else
         If UBound(arr) < UBound(brr) Then
            compare_data = "-" & d.Count
         Else
            compare_data = "+" & d.Count
         End If
      End If
End If
End Function

liulang0808 · 发表于 2023-1-8 14:40

又修改了一下，不知道理解对不对

		自动登录	找回密码
密码			免费注册

[求助] 求两个字符串的差异