FUNCAO QUASE LA

PAYDANA 26/11/2012 21:55:19
#414816

Boas pessoal do VBmania
To com o seguinte poblema
O amigo Gustavo Emygdio me ajudou criando esta função abaixo

Este codigo faz de uma outra forma o que preciso, ele me retorna um resultado de varias linhas quando preciso que tudo fique em uma linha só

Private Sub Command4_Click()
For B = 0 To List1.ListCount - 1

For z = 2 To 15
List2.AddItem Teste(List1.List(0), Val(z))
Next

List1.RemoveItem (0)
Next
End Sub

Funciona bacana, so que fica meio complicado pra ler depois. Ja que cada linha que é extraida as sequencias, resultam em 15 linhas na list2
Lembrando que a list1 tem mais de 800 linhas

fazendo a extração deste numero 020305060910111314161820232425
O resultado e este

0203 0506 0910 1011 1314 2324 2425
091011 232425
Não existem sequencias com 4 números.
Não existem sequencias com 5 números.
Não existem sequencias com 6 números.
Não existem sequencias com 7 números.
Não existem sequencias com 8 números.
Não existem sequencias com 9 números.
Não existem sequencias com 10 números.
Não existem sequencias com 11 números.
Não existem sequencias com 12 números.
Não existem sequencias com 13 números.
Não existem sequencias com 14 números.
Não existem sequencias com 15 números.

Pra fica mais facil de ler o ideal (pensso eu) seria resultar em :
dupla = 7 trio = 2

Agradeço qualquer dica