PER MIKE58 GRAZIE

[trivellatomariotretre33]

CIAO MIKE58 O VISTO QUESTO TUO SCRIPT MI E UTILE POTERLO AVERE COSI SENZA SPAZI O PUNTI O VIRGOLE
ESEMPIO
Combinazione casuale....01 : 06.07.18.22.31
Combinazione casuale....02 : 07.16.23.26.37
Combinazione casuale....03 : 02.09.20.36.39
Combinazione casuale....04 : 02.16.18.21.39
Combinazione casuale....05 : 02.10.13.16.24
Combinazione casuale....06 : 09.16.18.25.32
Combinazione casuale....07 : 09.13.14.30.39
Combinazione casuale....08 : 12.23.32.33.39
Combinazione casuale....09 : 05.06.30.37.38
Combinazione casuale....10 : 08.19.21.25.26


INVECE LO VORREI COSI

Combinazione casuale....01 : 0607182231
Combinazione casuale....02 : 0716232637
Combinazione casuale....03 : 0209203639
Combinazione casuale....04 : 0216182139
Combinazione casuale....05 : 0210131624
Combinazione casuale....06 : 0916182532
Combinazione casuale....07 : 0913143039
Combinazione casuale....08 : 1223323339
Combinazione casuale....09 : 0506303738
Combinazione casuale....10 : 0819212526

GRAZIE MIKE58 ANTICIPATAMENTE



Sub Main()
Dim Nu(40),Ru(1),SF(90)
Scrivi " **** Numeri casuali per il VINCI CASA **** ",1,1,3,1,4
Scrivi
Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
For N = 1 To 40
Nu = N
Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num,Nu)
Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
Scrivi StringaNumeri(Num,,True),1,1,,2,3
Next
End Sub

 

[Moro_80]

Ciao trivellato,
la Tua richiesta è talmente semplice che mi permetto di risponderti io senza scomodare Mike58.

Ecco come vuoi Tu:

Sub Main()
Dim Nu(40),Ru(1),SF(90)
Scrivi " **** Numeri casuali per il VINCI CASA **** ",1,1,3,1,4
Scrivi
Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
For N = 1 To 40
Nu(n) = N
Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num,Nu)
Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
Scrivi StringaNumeri(Num,"",True),1,1,,2,3
Next
End Sub

Ciao

 

[Mike58]

Ciao Moro,e ciao Trivellato,grazie per l'intervento e la soluzione.
Ti vorrei chiedere, Moro, sarebbe possibile creare un plugin per un archivio " vinci casa " in modo che con i codici FT potremmo cominciare a ricavarne una qualche statistica, visto che con il plugin 10 e lotto 5min te la sei cavata egreggiamente ?.

Poi Trivellato solo per curiosità a cosa ti serve la stringa senza punteggiatura o spazio nulli ?

Ciao Raga.

 

[trivellatomariotretre33]

grazie moro_80 era cosi che lo volevo
micke58 mi serve perche o perso un codice di registraz a 10 numeri e forse cosi riusciro a ricavarlo con piu prove
una stretta di mano entrambi e grazie.

CORREGGO MORO O PROVATO MA O FATTO IO UN ERRORE LA STRINGA DEVE VENIRE A UNDICI CIFRE
ESMPIO
05392005303
06302006303
02302002303
00362000303
GRAZIE E AIUTATEMI ANCHE TE MIKE58 GRAZIE