以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  能否达到这样一个统计功能——按数字出现顺序进行统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15128)
--  作者：juese
--  发布时间：2011/12/13 15:40:00
--  能否达到这样一个统计功能——按数字出现顺序进行统计
例如：
有一组数字（从0-9进行排列），053698625413586471259632148752369874125893.......，这个数字有几万个，现在需要根据数字出现顺序来自定义统计，比如任意自定义三个数字出现顺序：698，统计结果将这组几万个数字排序里为698的排列显示出来，以上写出的一段数字有两组698出现，分别是6986，6987，698后面的一个数字需要能够显示出来进行查看，就是统计三位要显示四位，在统计的位数上增一位。

功能要求：
1、可任意自定义任何几个数字的排列顺序，两个、三个、四个也可，最大不超过10个。
2、必须要按出现顺序进行统计，同时显示统计结果的后面一位（例如统计两位：69，查找出来的结果要显示三位：698，以此类推）

不知狐表能不能做到这个功能？

请斑竹及各位高手帮忙解答！

谢谢！
--  作者：rcsy001
--  发布时间：2011/12/13 15:59:00
--  
可以
--  作者：juese
--  发布时间：2011/12/13 18:32:00
--  
怎么设计的？请教一下！
--  作者：程兴刚
--  发布时间：2011/12/13 20:06:00
--  
用698分割，取下一段首字符，方法您知道的！
--  作者：狐狸爸爸
--  发布时间：2011/12/13 21:35:00
--  

在命令窗口执行：

 

Dim s As String = "053698625413586471259632148752369874125698"
Dim i As Integer = s.Indexof("698")
Dim l As Integer
Do While i >= 0
    l = math.min(4,s.length - i)
    output.show(s.substring(i,l))
    If i+ l < s.length - 3
        s = s.substring(i +l)
        i = s.Indexof("698")
    Else
        Exit Do
    End If
Loop

[此贴子已经被作者于2011-12-13 21:34:48编辑过]