Modifica Listato x Joe , altri

[trivellatomariotretre33]

Cortesemente, se possibbile modificare questo listato avendo solo le estrazzioni del sabato





Option Explicit
'Arc_X_Trivellato / Script per Spaziometria By Joe
Sub Main
Dim Ini,Fin,Es,R,P,Riga
Ini = EstrazioniArchivio - 50
Fin = EstrazioniArchivio
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
Riga = Left(DataEstrazione(Es,True),3)
Riga = Riga & DataEstrazione(Es,,,".")
For R = 1 To 12
If R = 11 Then R = 12
For P = 1 To 5
Riga = Riga & Format2(Estratto(Es,R,P))
Next
Next
Call Scrivi(Riga)
Next
End Sub

 

[*blacklotto*]

ciao, controlla se ti può andar bene il listato, preso in web molti anni fa . Modificato.

Sub Main()
Ini = 1 : Fin = EstrazioneFin
NN = DataEstrazione(EstrazioneFin) :
IB = Mid(NN,4,2) - 1 : If Ib = 0 Then IB = 12 : AP = - 1
IB = CStr(IB) & "/" & CStr(Mid(NN,7,4) + AP)
I = InputBox("... separati da ""/"" ","Inserisci Mese e Anno (Precedenti) ...",IB)
E = InputBox("1=Mar / 2=Gio / 3=Ven / 4=Sab ","Estrazione Settimanale ",4)
If E = "1" Then RS = "martedi"
If E = "2" Then RS = "giovedi"
If E = "3" Then RS = "venerdi"
If E = "4" Then RS = "sabato"
Rif = Split(I,"/")
Scrivi E & "° Estrazione Settimanale ( " & RS & " )",1,1
Scrivi
Scrivi ".. Data .. ",1,0
For R = 1 To 11: If R = 11 Then R = 12
Scrivi FormatSpace(NomeRuota(R),15),1,0
Next
Scrivi
For Es = Ini To Fin
Dt = DataEstrazione(Es,1) : GR = Mid(Dt,1,3)
Dt = DataEstrazione(Es) : Nu = Split(Dt,".")
If Gr = Rs Then
If(CInt(Nu(1)) = CInt(Rif(0)) And(CInt(Nu(2)) = CInt(Rif(1)))) Then
Scrivi Nu(0) & "/" & NU(1) & "/" & Nu(2) & " ",1,0
For R = 1 To 11: If R = 11 Then R = 12
If Estratto(Es,R,1) > 0 Then
Scrivi StringaEstratti(Es,R) & " ",0,0
Else
Scrivi " . . . . " & " ",0,0
End If
Next
Scrivi
End If
End If
Next
End Sub

 

[trivellatomariotretre33]

Ciao Blacklotto nel listato mi escono solo le ruote ,senza le estrazzioni.

 

[joe]

Il filtro sull'output è veramente semplice da inserire, dunque il nuovo script,

dedicato a ricercare le estrazioni del sabato è questo:

Option Explicit
'Arc_X_Trivellato / Script per Spaziometria By Joe
Sub Main
Dim Ini,Fin,Es,R,P,Riga
Ini = EstrazioniArchivio - 50
Fin = EstrazioniArchivio
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
Riga = Left(DataEstrazione(Es,True),3)
Riga = Riga & DataEstrazione(Es,,,".")
For R = 1 To 12
If R = 11 Then R = 12
For P = 1 To 5
Riga = Riga & Format2(Estratto(Es,R,P))
Next
Next
If Left (Riga,3) = "sab" Then 
Call Scrivi(Riga)
End If 
Next
End Sub

Va da sé che è possibile selezionare qualsiasi giorno ... sostituendo le 3 lettere di cui si caratterizza.

Ad esempio "ven" è per avere i nuovi concorsi extra.

 

[trivellatomariotretre33]

Ciao joe Buona Domenica , Grazie x La modifica e la tua disponibilita ti invio una stretta di mano Chilometrica
saluti anche x Blacklotto grazie .

 

[*blacklotto*]

Prova anche questo, spero di non aver commesso errori nel mettere anche venerdi

Sub Main()
Dim posta(5),poste(5),postee(5),posteee(5)
Dim ruota(5),ruote(5)
Dim am(10),am1(10),am2(10)
posta(1) = 1
posta(2) = 1
cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
k = CInt(InputBox(" Colpi di Gioco"," ",5))
For Es = EstrazioneFin - 25 To EstrazioneFin
If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
Scrivi
Scrivi DataEstrazione(Es,1),1
a = Fuori90(Estratto(es,BA_,1) + 5)
b = Fuori90(Estratto(es,BA_,1) + 10)
co = co + 1
ruote(1) = 1
am2(1) = a
am2(2) = b
ImpostaGiocata 1,am2,ruote,posta,k
Gioca es,1
End If
Next
ScriviResoconto,0
End Sub
Function Martedi(Es)
Martedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
Giovedi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
'
' ----> aggiunto : Venerdi
'
Function Venerdi(Es)
Venerdi = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
'
Function Sabato(Es)
Sabato = False
Data = Replace(DataEstrazione(Es),".","/")
Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

 

[trivellatomariotretre33]

Ti ringrazio Blacklotto Buon Proseguimento