[求助]如何判断两个数组是否相等 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现在有两个数组

dim A as string() = {"A","B"}

dim B as string() = {"A","C"}

如何判断这两个数组是否相等.遍历比较的方法效率不高(如果数组内元素较多的时候)

网上有用JSON.stringify()方法来转换比较

https://blog.csdn.net/z1783883121/article/details/107319147/?utm_medium=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-1.nonecase&depth_1-utm_source=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-1.nonecase

论坛里也有说用:Output.Show(Enumerable.SequenceEqual(A, B))

也有:Output.Show(A.SequenceEqual(B))

但实测这种方法有缺陷,就是完全区分大小写

Dim x As String() = {"A","B"}

Dim y As String() = {"a","B"}

Output.Show(Enumerable.SequenceEqual(x, y))-----执行结果是false,如果都改为大写,就true了

Output.Show(x.SequenceEqual(y)) -----执行结果是false,如果都改为大写,就true了

也有说用Equals()

https://blog.csdn.net/iteye_12049/article/details/81804819

狐表有没有简单的函数或方法调用的?

看到有一个方法,代码比较长

Dim A As Integer() = {0,1,2}

Dim B As Integer() = {0,1,2}

Dim res As Integer = ctype(a , System.Collections.IstructuralComparable).CompareTo(b,Comparer(of Integer).Default)

output.show(res)---返回0为相等,-1为不等

但这个方法只能比较数值型数组,string型的不可以

如果要判断集合相等,又要用什么方法呢?

当然了,有判断数组相等的方法调用,那就把集合转成数组再比较也行

[此贴子已经被作者于2020/10/18 22:52:50编辑过]

Dim A As String() = {"0","1","2"}

Dim B As String() = {"0","1","2"}

Dim res As String= ctype(a , System.Collections.IstructuralComparable).CompareTo(b,Comparer(of String).Default)

output.show(res)

Dim A As String() = {"A"}

Dim B As String() = {"A"} '如果把它换成小写,运行结果就是1了

Dim res As String= ctype(a , System.Collections.IstructuralComparable).CompareTo(b,Comparer(of String).Default)

output.show(res)

如果数组是字符型的,显示的结果是0和1

如果数组是数字型的,显示的结果是0和-1

还好是相等时,都是0,要是一个是1,一个是-1,才真的要死人了

[此贴子已经被作者于2020/10/18 23:00:14编辑过]

Dim A As String() = {"0","A","2"}

Dim B As String() = {"0","a","2"}

Dim c As String = String.Join("|",a).ToLower

Dim d As String = String.Join("|",b).ToLower

Output.Show(c = d)

自己做个内部函数，代码为：

Dim A As object = args(0)

Dim B As object = args(1)

For i As Integer = 0 To Math.min(a.Length,b.Length) - 1

If a(i) > b(i) Then

Return 1

ElseIf a(i) < b(i) Then

Return - 1

End If

Return 0

假定函数名为comparearray，你可以这样调用：

Dim A As String() = {"0","A","2"}

Dim B As String() = {"0","a","2"}

Return Functions.Execute("comparearray",a,b)

数字也行：

Dim A As Integer() = {1,2,3}

Dim B As Integer() = {7,8,9}

Return Functions.Execute("comparearray",a,b)

Dim xx As new Dictionary(of String(),String)

xx.Add({"A","B"},"XYZ")

xx.Add({"C","D"},"MNP")

Dim yy As String() = {"A","B"}

If xx.ContainsKey(yy) Then

Output.Show(xx(yy))

Else

Output.Show("没找到NO")

End If

数组不能做键值么？

键值都是简单数据

主题：[求助]如何判断两个数组是否相等