Richiesta x Magia o chi può

[fillotto]

Avrei bisogno, se possibile di avere l'archivio in formato testo o excel del lotto svizzero anche non necessariamente grande , find'ora ringrazio.

 

[arcor]

cia fil in attesa di qualcun altro ti allego il file archivio in txt del lotto svizzero(spero sia quello giusto perché ci sono altre 3 lotterie in svizzera)
parte dal 2013 fino ultima estrazione del 4-05.se lo vuoi in formato excell fai un fischio.

http://www.filedropper.com/switzerlandswisslotto2016-05-061356data

 

[fillotto]

cia fil in attesa di qualcun altro ti allego il file archivio in txt del lotto svizzero(spero sia quello giusto perché ci sono altre 3 lotterie in svizzera)
parte dal 2013 fino ultima estrazione del 4-05.se lo vuoi in formato excell fai un fischio.

http://www.filedropper.com/switzerla...-05-061356data

Ti ringrazio arcor è proprio l'archivio che cercavo nel senso che è quello che parte dal 2013 fino al 4/5/16 solo....che, visto che non avevo risposte, me lo sono ricostrruito in excel e successivamente in txt in modo da poterlo utilizzare in spaziometria e quindi potenzialmente giocabile in italia in stanl..
Il file inviato da te è sostanzialmente lo stesso ma necessita di aggiustamenti per giocarlo in italia non serve il 7° numero ne i trattini e lo spazio perciò ti invio quello fatto da me e due script per utilizzarlo il 1° è il tabellone analitico(un adattamento da un lavoro fatto da Joe91) il secondo è un sommatorio che ricava 2 num per ambata nei cicli desiderati (exLuigi) (senza esagerare nella richiesta di troppi cicli )
OCCHIO AL PERCORSO ADATTARE AL PROPRIO !!!!

svizz.txt

 Sub Main()
'Tabellone Analitico V.2.0 By Joe
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\svizzera\svizz.txt",6,",",42)
Dim Mx(12)
'----------------------
GeneraAnaliticoFT(EstrazioniArchivioFT)
Scrivi "RIT  Sez 0 ",1,0
TA = TabelloneAnaliticoFT(0,0)
Scrivi FormatSpace((" Rit " & TA),18),0,0
Scrivi : Scrivi
'----------------------
TA = TabelloneAnaliticoFT(0,0)
For Rit = 0 To TA
Scrivi FormatSpace(rit,6),0,0
For P = 1 To 6
Tmp = TabelloneAnaliticoFT(Rit,P)
If Tmp > 0 Then
Scrivi Format2(Tmp) & " ",0,0

Else
Scrivi "-- ",0,0
End If
Next
Scrivi " | ",0,0
Scrivi
Next
'--------------------

End Sub

Sub Main()
    Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\Svizzera\svizz.txt",6,",",42)
    Dim nr(2) ' i nr in gioco sono 2
    Dim pta(1) ' la puntata che faccio è l'ambata
    pta(1) = 0.50 'la puntata sull'ambata((1) è di 1 euro
    SetPremioPagatoFT 2,1,2.625,0.50 ' Ambata con 2 numeri
    Dim pnr(2) ' i prossimi nr in gioco sono 2
    'Dim po(5)
    cicli = InputBox("Inserire il num dei cicli(cicli di 3 estraz) di cui si vuol conoscere gli esiti ...",,12)
    estraz = cicli*3
    po = CInt(InputBox("Quale posizione conteggio a cui aggiungo i due adattatori (1/5)? ",,1))
    dal = EstrazioniArchivioFT - estraz
    al = EstrazioniArchivioFT
    k = 3 ' i Kolpi in gioco sono 3
    Scrivi FormatSpace("Range Statistico        : " & GetInfoEstrazioneFT(dal) & " - - " & GetInfoEstrazioneFT(al),86),True,True,,vbRed,3
    Scrivi FormatSpace("Intervallo estrazioni   : " & al - dal,86),True,True,,vbRed,3
    Scrivi FormatSpace("N° CICLI di 3 ESTRAZIONI: " & cicli,86),True,True,,vbRed,3
    Call GetCipECiop(dal,al,k,cip,ciop,po)
    If cip > 0 And ciop > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....
        For n = dal To al Step 3 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
            'mensili ma di un'estrazione ogni 3 a cominciare dalla variabile " dal " ...+ 3.....+ 3 ecc fino alla fine
            'al 1° numero di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
            '"cip" ottenendo così un numero e una volta " ciop " per l'ultreiore numero
            Scrivi ">>Giochiamo su SZ e aggiungiamo al " & po & "° Estratto di  ------> " & StringaEstrattiFT(n) & " i fissi " & cip & " e " & ciop
            'ng = 0
            nr(1) = FuoriX(EstrattoFT(n,po) + ciop,42)
            nr(2) = FuoriX(EstrattoFT(n,po) + cip,42)
            If VerificaEsitoFT(nr,n + 1,1,k,resito,rcolpi,restratti,ridestr) Then '
                Scrivi "  Con i numeri  " & Format2(nr(1)) & " e " & Format2(nr(2)) & "  Esito di " & resito & " al " & rcolpi & "° colpo :  [" & StringaEstrattiFT(n + rcolpi) & " ]"
            Else
                Scrivi "                         Esito negativo"
            End If
            For x = 1 To 3
                Scrivi " al " & x & "° colpo :  [" & StringaEstrattiFT(n + x) & "]"
            Next
            Call ImpostaGiocataFT(1,nr,pta,k,1) ' imposto la giocata e la stoppo all'uscita dell'ambata = 1
            GiocaFT n,,,1
        Next
        es = EstrazioniArchivioFT + 1
        pnr(1) = FuoriX(EstrattoFT(es - 1,po) + cip,42)
        pnr(2) = FuoriX(EstrattoFT(es - 1,po) + ciop,42)
        Scrivi " La prossima giocata va effettuata dall'estr n° " & n & " aggiungendo al " & po & "° estr. di " & StringaEstrattiFT(n) & _
        " i fissi " & cip & " e " & ciop & " cosi da avere i num da giocare " & pnr(1) & " - " & pnr(2)
        'pnr(1) = FuoriX(EstrattoFT(es - 1,po) + cip,30)
        'pnr(2) = FuoriX(EstrattoFT(es - 1,po) + ciop,30)
        ScriviResocontoFT
    Else
        MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
    End If
End Sub
Sub Sviluppoambi(aRetAmbi)' questa seconda routine combina i numeri in ambi
    ReDim aN(42)
    Dim k
    For k = 1 To 42 ' k sono i 30 numeri
        aN(k) = k
    Next
    aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,Colpi,Cip,Ciop,po)'Questa Sub cerca la prima coppia che soddisfa la condizione ed esce.
    Dim arrAmbi
    Dim k,i,e,idEstr
    Dim bFound
    'po = CInt(InputBox("Metti la posiz Vera -1 (0 per la 1^, 1 x la 2^ ..4 per la 5^ ",,0))
    Cip = 0
    Ciop = 0
    Call Sviluppoambi(arrAmbi)
    For k = 1 To UBound(arrAmbi)
        bFound = True ' bFound è una variabile che assume il valore di vero
        For idEstr = Inizio To Fine - 1 Step 3'ciclo delle estrazioni
            ReDim aNumInGioco(2)
            i = 0
            e = 1 '  "e" è la posizione
            aNumInGioco(e) = FuoriX(EstrattoFT(idEstr,po) + arrAmbi(k,1),42)
            aNumInGioco(i) = FuoriX(EstrattoFT(idEstr,po) + arrAmbi(k,2),42)
            'Next
            If VerificaEsitoFT(aNumInGioco,idEstr + 1,1,Colpi) = False Then
                bFound = False
                Exit For
            End If
        Next
        If bFound = True Then
            Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & " e " & arrAmbi(k,2) & " sommati all'estrazione Base (step 3) ha sempre generato un' ambata")
            Call Scrivi("")
            'Call Scrivi(StringaNumeri(aNumInGioco))
            Cip = arrAmbi(k,1)
            Ciop = arrAmbi(k,2)
            Exit For
        End If
    Next
End Sub

 

[fillotto]

C'è un errore nelle date nel file svizz.txt comunicato in precedenza quell'esatto è Vedi l'allegato svizz.txt

 

[arcor]

Grazie fil io che gioco il lotto estero li tengo volentieri questi script.peccato che magia non si faccia più sentire perché mi serviva uno script per uk49.ciao