主题：能否达到这样一个统计功能——按数字出现顺序进行统计

在命令窗口执行：

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