Novità

modifica script verifica vincite 10 e lotto 5 minuti

lotto69

Member
Buongiorno, ho dei problemi a lavorare con l'archivio del 10 e lotto 5 minuti.
L'archivio mi si sballa tutto, ogni volta devo azzerarlo, aggiornare 10 giorni e modifica il "RANGE_FINE_10ELOTTO5M=300" dentro al file SpazioMetria.ini

Quiesto è il listato di un esempio che gioca una cinquina dalle 18 alle 19, se potete provare a vedere se a voi da errore. A me funziona ogni tanto.
La mia idea era creare uno script che legge l'estrazione e memoriza in un file di testo quelle da me considerate per poi lacorare solo su quel file.
Grazie
Sub Main
Dim n(90,7),ru(1),ru1(1),nu(1),nn1(1),anum(90),spia(1),ver(1),nnuu(5)
'arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,2))
ImpostaArchivio10ELotto(2)
ee = 2300
nn = 1
cl = 1
'r1 = CInt(InputBox(" Quale Ruota ?",,6))
'If r1 = "" Then Exit Sub
am = 5
fin = EstrazioniArchivioDL
ini = fin - ee

spia(1) = nn
anum(1) = 46: anum(2) = 50: anum(3) = 82: anum(4) = 78: anum(5) = 31
For x = fin - ee To fin - 1
'Scrivi x & " " & IndiceAnnualeDL(x)
If(IndiceAnnualeDL(x) > 215) And(IndiceAnnualeDL(x) < 229) Then 'controllo la cinquina fra le 18 e le 19

If 1 = 1 Then
contspi = contspi + 1
'Scrivi contspi
Call VerificaEsitoDL(anum,x + 1,3,cl,resito,recolpi,restratti,reid)
If resito = "Cinquina" Then ColoreTesto 2
If resito = "Sestina" Then ColoreTesto 7
If resito = "Sette" Then ColoreTesto 1
If resito = "Otto" Then ColoreTesto 2
If resito = "Nove" Then ColoreTesto 1
If resito = "Dieci" Then ColoreTesto 3
If resito = "Estratto" Then ColoreTesto 0
If resito = "Ambo" Then ColoreTesto 0
If resito = "Terno" Then ColoreTesto 0
If resito = "Quaterna" Then ColoreTesto 0
'Scrivi IndiceAnnualeDL(x)
Scrivi GetInfoEstrazioneDL(reid) & " ",1,0
'Scrivi recolpi,1
Scrivi restratti & " ",1,0
Scrivi resito,1
Scrivi contspi
End If
End If
Next
Scrivi "casi esaminati " & contspi
Scrivi String(100,"="),1

End Sub
 
Grazie ad un vecchio script di Joe sono riuscito a modificare ed ora l'archivio 10 e lotto è in formato file txt
Option Explicit
Sub Main
'Archivio_X_L8.txt
'Script By Joe
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
ImpostaArchivio10ELotto(2)
Fin = EstrazioniArchivioDL

sFile =("C:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
Ini = 1 'inizio estrazione 10 e lotto
For Es = Ini To Fin
' AvanzamentoElab Ini,Fin,Es
sEstrazione = DataEstrazioneDL(Es,,,",")&","&Format2(IndiceAnnualeDL(Es))


For P = 1 To 20
sEstrazione = sEstrazione & "," & Format2(EstrattoDL(Es,P))
Next

'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
Next
Call CloseFileHandle(sFile) ' chiudo l'handle al file
Call LanciaFile(sFile) ' Verifica il file, con il NotePad
End Sub

l'output
17,04,2020,184,06,20,21,30,39,41,44,51,55,66,67,69,70,71,79,84,87,88,89,90
17,04,2020,185,02,04,06,12,16,18,19,23,29,30,31,40,50,54,55,59,75,80,82,86
17,04,2020,186,01,02,04,13,17,25,32,43,45,47,54,58,59,61,68,69,72,74,75,90

come faccio ora a fare uno script che legge questo tipo di file?

Call ApriBaseDatiFT(sFile,20,",",90)
il comando dovrebbe essere questo ,ma dopo la data ho 21 numeri di cui il primo è i l numero dell'estrazione del giorno. Come posso ovviare?
Grazie
 
Ultima modifica:
Ciao,

se non vuoi il numero dell' estrazione, sostituisci l' istruzione

sEstrazione = DataEstrazioneDL(Es,,,",") & "," & Format2(IndiceAnnualeDL(Es))

con l' istruzione

sEstrazione = DataEstrazioneDL(Es,,,",")

Ciao
 
Grazie ,interessante veramente
Ti mostro come ci sono riuscito io ieri sera
Option Explicit
Sub Main
'Archivio_X_L8.txt
'Script By Joe
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
ImpostaArchivio10ELotto(2)
Fin = EstrazioniArchivioDL

sFile =("C:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
Ini = 1 'inizio estrazione 10 e lotto
For Es = Ini To Fin
' AvanzamentoElab Ini,Fin,Es
sEstrazione = Format2(IndiceAnnualeDL(Es)) & "," & DataEstrazioneDL(Es,,,"/")


For P = 1 To 20
sEstrazione = sEstrazione & "," & Format2(EstrattoDL(Es,P))
Next

'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
Next
Call CloseFileHandle(sFile) ' chiudo l'handle al file
Call LanciaFile(sFile) ' Verifica il file, con il NotePad
End Sub


Un altro dubbio:
ho fatto un script per filtrare l'estrazione registrata gia in formato txt in modo da prendere solo l'orario dalle 18:00 alle 19:00, tutto perfetto ma la data non può essere divisa con lo '/' ma solo con il punto.

Sub Main
Dim Nu(90),aN(20),sFile,sEstrazione,sFile2,p
sFile =("C:\Archivio_X_L8.txt")
sFile2 =("C:\Archivio_X_L8f.txt")
Call EliminaFile(sFile2) ' Elimina vecchie copie dell' archivio

Call ApriBaseDatiFT(sFile,20,",",90) ' immettre il carattere separatore del proprio archivio

Ini = 1
fin = EstrazioniArchivioFT
For Es = Ini To Fin
If(IndiceAnnualeFT(es) > 215) And(IndiceAnnualeFT(es) < 229) Then ' filtra solo l'estrazioni dalle 18:00 alle 19:00
' AvanzamentoElab Ini,Fin,Es
sEstrazione = Format2(IndiceAnnualeFT(Es)) & "," & DataEstrazioneFT(Es)


For p = 1 To 20
sEstrazione = sEstrazione & "," & Format2(EstrattoFT(Es,p))
Next


Call ScriviFile(sFile2,sEstrazione) ' scrivo anche sul file preposto
End If
Next
Call CloseFileHandle(sFile2)


Call LanciaFile(sFile2)
End Sub

Sai delucidarmi meglio?
grazie
output:
224,16.04.2020,02,03,08,17,19,27,32,35,45,46,49,54,55,63,64,73,74,83,84,87
225,16.04.2020,02,10,13,19,20,24,25,32,37,38,39,40,41,46,50,52,55,65,77,79
226,16.04.2020,07,19,27,29,31,32,33,34,36,40,50,59,61,62,63,64,65,80,88,90
227,16.04.2020,02,05,12,15,18,19,21,23,27,32,35,40,48,53,58,63,65,77,80,90
228,16.04.2020,05,09,17,30,31,35,45,46,50,59,62,68,76,77,78,80,81,82,85,87
 
Ultima modifica:
Sei un Grande, funziona. .
Mi sapresti spiegare questo codice?
"000",False, True.
Codice:
Call Scrivi(FormattaStringa(IndiceAnnualeDL(es),"000") & "," & _
DataEstrazioneDL(es,False,,"/") & "," & StringaEstrattiDL(es,","),True)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto