Script che generi questo tipo di archivio... piuttosto "originale"

[Mike58]

scrive solo estrazionefin, come suggerito da Luigi usa codice
GetArrayNumeriRuota

per tutte le estrazioni volute fare un ciclo For e se poi si vuole scriverlo su file di testo eccolo.

Option Explicit
Sub Main
   Dim k,R,sNumeri
   Dim sFile
   ReDim aEstratti(0)
   Dim Ini,fin,Es
   Ini = 9529'EstrazioneIni   
   fin = EstrazioneFin
   For Es = Ini To fin
   sFile = GetDirectoryTemp & "TestTom.txt"
   Call EliminaFile(sFile)
   For R = 1 To 12
      If R = 11 Then R = 12
      Call GetArrayNumeriRuota(Es,R,aEstratti)
      Call Scrivi(StringaNumeri(aEstratti,,1))
      sNumeri = StringaNumeri(aEstratti,",",1)
      Call ScriviFile(sFile,sNumeri,False,True)
   Next
   Next
   Call CloseFileHandle(sFile)
   Call LanciaFile(sFile)
End Sub

 

[salvo50]

Troppo semplice per chi mastica.. , come te, scripting di spaziometria quasi come the Master Grande Salvo! Ad ogni modo per noi poveri mortali saresti in grado di mostrare solo i numeri senza tutti gli altri dati presenti a video? Grazie 1000 e complimenti!!!

Per intenderci...

Anzichè avere in output questo...

+------------------------+
| 12848/12847/12592 |
+---------000001---------+
Bari 56 44 53 57 44
Cagliari 48 51 44 56 54
Firenze 44 51 48 44 55
Genova 49 13 10 49 54
Milano 44 48 54 47 48
Napoli 50 47 50 48 49
Palermo 56 44 56 51 44
Roma 49 55 44 56 49
Torino 44 54 53 44 48
Venezia 56 13 10 49 55
Nazionale 44 48 56 47 48


avere solo questo... (solo numeri)

56 44 53 57 44
48 51 44 56 54
44 51 48 44 55
49 13 10 49 54
44 48 54 47 48
50 47 50 48 49
56 44 56 51 44
49 55 44 56 49
44 54 53 44 48
56 13 10 49 55
44 48 56 47 48
ecc...

per tutte le estrazioni e tutte le ruote fino all'ultimo giorno + attuale con i numeri intervallati da un carattere separatore (una virgola ad es.)


Scusa ma mi sono accorto adesso che l'output dopo un pò sembra che sbarelli... nel dettaglio dopo la 44esima estrazione mi riporta delle righe assurde... di questo tipo

Estrazione numero 1046 fuori dal range delle estrazioni disponibili
Estrazione numero 1047 fuori dal range delle estrazioni disponibili


Quindi sarebbe da sistemare anche questo se puoi Grazie comunque.

Ciao, a me non sbarella, grazie per i complimenti, ma sono immeritati, lo script è di LuigiB credo, io ho solo aggiunto INIZIO E FINE

 

[LuigiB]

Meno male che c è Mike rega...prendete esempio..unico appunto sFile non va valorizzato dentro il ciclo for delle estrazioni ma al inizio cosi come la cancellazione del file...prima di tutti i cicli....ciao a tutti

 

[LuigiB]

Per Cinzia per evitare estrazioni doppie eventualmente c è il metodo...la probabilità che ci siano è davvero remota...

 

[lotto_tom75]

Eccezionali ragazzi/e tutti/e quanti/e Grazie 1000.
Ben vengano pure le "scudisciate" a volontà... del Maestro



Per quanto riguarda la giusta curiosità di Cinzia si tratta solo di un esperimento di creazione "archivi originali" per altrettante nuove personali teorie di sviluppo basate essenzialmente sul mio nuovo bislacco concetto analitico riduzionale della "matrioska" che forse a breve, se darà gli esiti sperati nella sua fase di test, cercherò di spiegare un pò più nel dettaglio, x chi interessasse, ma che essenzialmente si basa sulla teorica ciclicità degli eventi in forma di vortice o di matrioska appunto

 

[salvo50]

Ciao a Tutti

Mitico, Mike