vb6：要找出正确的编排数字号码！

地狱之王子

我要写的软件是要找出正确的编排数字号码，比喻软件会收到很多数字号码，当收到指定的一串的数字号码，实行计算收到几次这串的数字号码。
比如指定号码是 5， 8， 0， 6

1 9 3 5 1 5 8 1 3 6 1 3 2 5 8 0 6 5 6 4 8 3 2 0 5 5 8 0 4 5 5 8 0 6 6 5 4

以上的就计算到两次。

要和写才行呢？

处理号码的是这样写的：

for i = LBOUND(b) to UBOUND(b)
sTemp =chr$(b(i))


希望各位大大帮帮忙！！
谢谢！！

地狱之王子

希望各位大大帮帮忙！！还是找不到解决方案！

小幼

a = "1935158136132580656483205580455806654"
b = Split(a, "5806")
c = UBound(b)
c值是你想要的吗 ？

rcyaw2

for i = LBOUND(b) to UBOUND(b)
sTemp =chr$(b(i))
if sTemp = "5" then
nfirst=1
end if
if sTemp = "8" and nfirst=1 then
nsecond=1
end if
if  nfirst=1 and nsecond=1 then
count = count + 1
end if
next


以上只是例子而已，
我可以写详细的，不过要收费RM50而已。
因为我很穷！！！

chakhua@gmail.com

jasonkidz

把你要的号码收在variable
然后loop你的资料
找matching + count 就可以了

goat89yang

用array+loop就可以了嘛 ==''