modifica script verifica vincite 10 e lotto 5 minuti

[lotto69]

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

 

[lotto69]

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

 

[druid]

Ciao,

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

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

con l' istruzione

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

Ciao

 

[lotto69]

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

 

[lotto69]

Sei un Grande, funziona. .
Mi sapresti spiegare questo codice?
"000",False, True.

Call Scrivi(FormattaStringa(IndiceAnnualeDL(es),"000") & "," & _
DataEstrazioneDL(es,False,,"/") & "," & StringaEstrattiDL(es,","),True)