Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
在命令窗口执行:
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