Chiedo agli esperti di script

[solare]

Ciao, è possibile realizzare un script che unisca i numeretti in coppie .
esempio inserisco 1-3-5-7-8
Vorrei che il listato mi visualizzasse tutte le coppie possibili che si possono formare.
Ovviamente è un'idea, non so se è possibile realizzare.

 

[lotto_tom75]

Ciao solare cosa intendi per coppie?
Sempre seguendo il tuo esempio intendi che lo script ti dovrebbe mostrare questo..

1-3
1-5
1-7
1-8
3-5
3-7
3-8
5-7
5-8
7-8

o questo tipo di output?

13
31
15
51
17
71
18
81
ecc...

Ad ogni modo per il primo tipo di "assemblaggio" ti dovrebbe bastare questo:

Option Explicit
Sub Main
Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,QuantitaNumeriScelti
Dim ColTot
Dim contatore
contatore = 1
ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
Classe = 2
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
Call Scrivi(StringaNumeri(aCol))
'Else
Call Messaggio("Colonna " & i)
Loop
End If
Call Scrivi
Call Scrivi(" Tempo trascorso: " & TempoTrascorso)
End Sub

Per il secondo tipo mi spiace io non so come fare ma non disperare... perchè un altro scripter avrà già sicuramente la soluzione anche per quello e quindi basta che aspetti che arrivi e te la dia

Ciao

 

[solare]

Ciao lotto tom75, sarebbe meglio il secondo caso, comunque grazie

 

[joe]

Ciao Solare,

Non so se hai chiesto questo:

Option Explicit

Sub Main
   Dim L,N,X,Y
   L = InputBox ("Esempio : 1-3-5-7-8", "INSERISCI NUMERETTI", "1-3-5-7-8")
   N = Split("0-" & L,"-")
   Scrivi StringaNumeri(N,"-",True) & Space(3),True, False 
   For X = 1 To UBound(N)
      For Y = 1 To UBound(N)
         Scrivi Format2 ( Fuori90(N(X) & N(Y))) & " ",False,False
      Next
   Next
   Scrivi ""
   End Sub

 

[solare]

Ciao Joe, ottimo
se puoi inserire la possibilità della selezione dei numeretti non sarebbe male.

 

[joe]

Ok,

ho modificato lo script nel post precedente.

Buona Domenica a tutte/i.

 

[solare]

Grazie
gentilissimo come sempre
ottimo