以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提问能学到知识就有瘾  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59930)
--  作者：hbhb
--  发布时间：2014/11/13 19:18:00
--  提问能学到知识就有瘾
大师：好！
请教集合问题
两个集合，分别为（“abc”，“qwe”，“zxc”，“wer”，“ert”）,("abd","qwp","zxd","wep","erd","fff","ggg",)
如何通过一张表格的两列列出字符相近但又有区别的字符，不同的行中对应相似的，完全不相同的单独一行列出？
劳驾！
--  作者：有点甜
--  发布时间：2014/11/13 19:26:00
--  

 逻辑是什么啊

 

Dim ary1() As String = {"abc","qwe","zxc","wer","ert"}
Dim ary2() As String = {"abd","qwp","zxd","wep","erd","fff","ggg"}

For Each s1 As String In ary1
    For Each s2 As String In ary2
       
    Next
Next
--  作者：hbhb
--  发布时间：2014/11/13 19:40:00
--  
表中这样显示：
两个集合中相同的字符就不显示，也就是找出两个集合中不同的字符，通过一张表的两列显示出来
相似的字符最好并排显示？
第一列 （集合一中有，而集合二中没有的）       第二列（集合二有，而集合一中没有的）
--  作者：有点甜
--  发布时间：2014/11/13 19:41:00
--  
 什么叫做相似，什么叫做不同？abc 和 全部都不同啊
--  作者：有点甜
--  发布时间：2014/11/13 19:45:00
--  

Dim ary1() As String = {"abc","qwe","zxc","wer","ert"}
Dim ary2() As String = {"abd","qwp","zxd","wep","erd","fff","ggg"}

For Each s1 As String In ary1
    If array.Indexof(ary2, s1) = -1 Then
        output.Show(s1)
    End If
Next

output.show("-------------------------------")

For Each s2 As String In ary2
    If array.Indexof(ary1, s2) = -1 Then
        output.Show(s2)
    End If
Next
--  作者：hbhb
--  发布时间：2014/11/13 19:57:00
--  
实际就是字符串的第一个，第二个，一次排序
讨教一下，中文字符串的排序是按首个字符，首个相同再按什么排序的？
--  作者：有点甜
--  发布时间：2014/11/13 20:00:00
--  

比较第一个、相同就第二个，再相同就第三个。