以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在狐表中这样的功能如何实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39461)
--  作者：tus111
--  发布时间：2013/8/24 19:42:00
--  [求助]在狐表中这样的功能如何实现

请问我想把文本文件中的数字如:
1 2 3 4
4 5 6 7
7 8 9 0
统计成为:
4 7 1 2 3 5 6 8 9 0

说明:数字按大小排序由左向右,如有重复的放在前面也按大小排序


这种想法该如何实现

看了软件的帮助  别的功能都挺好的 但这个功能一直没搞明白
--  作者：y2287958
--  发布时间：2013/8/24 20:26:00
--  
上个例子就那么难吗
--  作者：tus111
--  发布时间：2013/8/24 20:31:00
--  [求助]请大家帮忙
是的 一直没搞定
--  作者：tus111
--  发布时间：2013/8/24 20:32:00
--  [求助]请大家帮忙
加减乘除 都没问题 个数也可以 就是这样搞不定 高人们帮帮我好不
--  作者：y2287958
--  发布时间：2013/8/24 20:34:00
--  
至少也要上个项目文件吧
--  作者：有点甜
--  发布时间：2013/8/24 20:46:00
--  
 在命令窗口里执行下面的代码，参考着改一下。

Dim arys() As Integer = {9, 1, 2,3, 0, 4, 4, 5, 5, 6, 7, 8}
Array.sort(arys)
Dim prev As Integer = -999
Dim ls1 As New List(Of Integer)
Dim ls2 As New List(Of Integer)
For Each ary As Integer In arys
    If prev = ary AndAlso ls1.Contains(ary) = False Then
        ls1.Add(ary)
        ls2.Remove(ary)
    End If

    If ls1.Contains(ary) = False Then
        ls2.Add(ary)
        prev = ary
    End If
Next

For Each l As Integer In ls1
    output.Show(l)
Next
For Each l As Integer In ls2
    output.Show(l)
Next
--  作者：tus111
--  发布时间：2013/8/24 21:11:00
--  
哈哈 谢谢 稍稍改了一下 搞定了