Novità

10 e lotto ogni 5 minuti

salve a tutti he LUCIO anche invisibile e riustito a vederci
cmq per ferragosto una puntatina la facciAmo al lotto e speriamo che quell amico non ci veda

rocco mi avevi scritto ce cera qualche ambo

cene uno che lo tengo docchio da un mese

GENOVA CAGLIARI TUTTE 66 83

tutte rit.att.306 rit.sto 139
GENOVA RIT.ATT.951 storico 837
a CAGLIARI E la ruota dove e uscito piu volte

I 2 NUMERI DELL AMBO SONO 3 CONCORSI CHE NON SENE VISTO 1

STASERA DOVREBBERO ESSERE PRESENTI PIU DI UNA VOLTA
E CHISSA NON SI UNISCANO COME QUELLI DI SABATO 11 26

BUON FERRAGOSTO A TUTTI

CIAO DESIDERI,ROCCO,Y10,LUCIO,SLOTTINA,ROL62,KEEPER.STEFANO

AVATAR
 
ricambio

Previsione n. 1
Ruote di gioco: Fi-To
Ambata: 20
Ambi secchi: 20-10;20-55;20-65;
sorti superiori: 10-20-55-65;

Previsione n. 2
Ruote di gioco: Ge-Ba
Ambata: 19
Ambi secchi: 19-38;19-83;19-31;19-76;
sorti superiori: 19-31-38-76-83;
 
10 e lotto ogni 5 minuti

The cat in under the table and my bet is in the rabbish.
Eppure stasera me lo sentivo caldo! Not trip for cats, no eightfive around Bari :(

Buon ferragostooopo
 
rol volendo potrei pure fare che aggiorna direttamente excel ... non avevo capito bene l'esigenza .. dove sta il foglio con il quale posso fare la prova ?
 
Ciao Avatar, cerco grazie a Luigi di dare nel mio piccolo una mano, sono riuscito a fare l'archivio completo dal 01-01 al 14-08 ed a formattarlo in excel come ci serve, ma quando cancello quello esistente e copio quello completo qualcosa non va rimane nella videata inizio 1 concorso 54 e la data inizio non compare
provo provo e mi diletto ma per il momento ancora non ci riesco.


rol65
 
ciao ecco lo script che aggiorna il file excel.
regole :
1) il file di excel deve esssere aperto
2) ovviamente deve essere quello giusto e quindi contenere il foglio ARCHIVIO

Avevo trovato gia il file leggendo il post nelle pagine precedenti.
Purtroppo excel è notoriamente lento quindi anche se lo script funziona e automatizza il tutto
non è veloce come creare solo il file di testo pero per me è accettabile.
Provate e fatemi sapere.

Codice: 
Option Explicit
Dim xlApp ' oggetto excel
Dim xlBook ' insieme di cartelle di lavoro
Dim xlSheet ' foglio di lavoro
Const xlCalculationManual = -4135 '(&HFFFFEFD9)

Const xlCalculationAutomatic = -4105 '(&HFFFFEFF7)
Const xlMaximized = -4137 '(&HFFFFEFD7)
Const xlMinimized = -4140 '(&HFFFFEFD4)



Sub Main
	Dim nEstrInizio,nEstrFine
	Dim DataIni,DataFin
	Dim FasciaOrariaIni,FasciaOrariaFin
	Dim sFile
	Dim sChrSep
	sChrSep = "|"
	If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire l'export ?",vbQuestion + vbYesNo) = vbYes Then
		Call AggiornaArchivioDL
	End If
	Call ImpostaArchivio10ELotto(2)
	sFile = GetDirectoryAppData & "Estrazioni10Lotto5M.txt"
	If ChiediDataInizioFine(DataIni,DataFin) Then
		If ChiediFasciaInizioFine(FasciaOrariaIni,FasciaOrariaFin) Then
			nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
			nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
			If IsRangeValido(nEstrInizio,nEstrFine) Then
				If MsgBox("Vuoi aggiornare direttamente il foglio excel ?" & _
					vbCrLf & "Premendo NO verrà creato il file di testo" & _
					vbCrLf & "Se premi SI il foglio SPIAMO I NUMERI deve essere aperto",vbQuestion + vbYesNo) = vbYes Then
					If IstanziaExcel Then
						Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep,True)
					End If
				Else
					If EliminaFile(sFile) Then
						Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep,False)
					End If
				End If
			End If
		End If
	End If
	Set xlSheet = Nothing
	Set xlBook = Nothing
	Set xlApp = Nothing
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep,bAggiornaXls)
	Dim k,f,idEstr
	Dim sRecord
	Dim nProgr
	Dim sDataCorr
	nProgr = 0
	For k = nEstrInizio To nEstrFine Step 228
		Call Messaggio("Estrazione : " & k)
		For f = FasciaOrariaIni To FasciaOrariaFin
			idEstr =(k - 1) + f
			ReDim aNum(0)
			If GetEstrazioneCompletaDL(idEstr,aNum) Then
				nProgr = nProgr + 1
				sDataCorr = Replace(DataEstrazioneDL(idEstr),".","/")
				sRecord = FormatSpace(nProgr,9,True) & sChrSep
				sRecord = sRecord & FormatSpace(f,3,True) & sChrSep
				sRecord = sRecord & GetOrario(f) & sChrSep
				sRecord = sRecord & Format2(Day(sDataCorr)) & sChrSep
				sRecord = sRecord & FormattaStringa(sDataCorr,"dd mmm yyyy") & sChrSep
				sRecord = sRecord & sChrSep
				sRecord = sRecord & StringaNumeri(aNum,sChrSep,True)
				If bAggiornaXls Then
					Call AddRigaXls(sRecord,nProgr,sChrSep)
				Else
					Call ScriviFile(sFile,sRecord,False,True)
				End If
			Else
				Exit For
			End If
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
	Next
	If bAggiornaXls = False Then
		Call CloseFileHandle(sFile)
		Call LanciaFile(sFile)
	Else
		
		Call AbilitaCalcoloXls (True)
		xlSheet.cells(1,1).select
		xlSheet.select
		
		xlApp.WindowState = xlMaximized 
		
	End If
End Sub
Function IsRangeValido(Inizio,Fine)
	Dim b
	b = False
	If Inizio > 0 And Fine > 0 Then
		If Fine >= Inizio Then
			b = True
		End If
	End If
	If Not b Then
		MsgBox "Range non valido , probabilemente mancano le estrazioni nella base dati " & _
		vbCrLf & "EstrazioneIni : " & Inizio & vbCrLf & "EstrazioneFine  : " & Fine
	End If
	IsRangeValido = b
End Function
Function ChiediDataInizioFine(DataI,DataF)
	If Not IsDate(DataF) Then DataF = FormattaStringa(Now,"dd/mm/yyyy")
	If Not IsDate(DataI) Then DataI = FormattaStringa(DateAdd("d",-(30),DataF),"dd/mm/yyyy")
	DataI = InputBox("Inserire data inizio ricerca in formato GG/MM/AAAA","Data inizio",DataI)
	DataF = InputBox("Inserire data fine ricerca in formato GG/MM/AAAA","Data fine",DataF)
	If IsDate(DataI) And IsDate(DataF) Then
		If DateDiff("d",DataI,DataF) >= 0 Then
			ChiediDataInizioFine = True
		Else
			MsgBox "La data FINE deve essere maggiore od uguale alla data INIZIO"
		End If
	Else
		MsgBox "Date inserite non valide"
	End If
End Function
Function GetOrario(id)
	Dim h,m
	h = id \12
	m = id Mod 12
	If h = 0 Then
		h = 5
	Else
		h = 5 + h
	End If
	If m = 12 Then
		GetOrario = Format2(h) & ":00"
	Else
		If h = 24 Then
			GetOrario = "23:59"
		Else
			GetOrario = Format2(h) & ":" & Format2(m * 5)
		End If
	End If
End Function
Function ChiediFasciaInizioFine(FasciaI,FasciaF)
	FasciaI = ChiediFasciaOraria("Fascia oraria inizio",1)
	FasciaF = ChiediFasciaOraria("Fascia oraria fine",228)
	If FasciaI > 0 And FasciaF > 0 Then
		If FasciaF >= FasciaI Then
			ChiediFasciaInizioFine = True
		Else
			MsgBox "La fascia oraria Fien deve essere maggiore della fascia oraria INIZIO"
		End If
	Else
		MsgBox "Fascie orarie non valide"
	End If
End Function
Function ChiediFasciaOraria(sCaption,nSel)
	Dim aLista(228)
	Dim h,m
	Dim i
	For h = 5 To 23
		For m = 5 To 60 Step 5
			i = i + 1
			If m = 60 Then
				aLista(i) = Format2(h + 1) & ":00"
			Else
				aLista(i) = Format2(h) & ":" & Format2(m)
			End If
		Next
	Next
	aLista(i) = "23:59"
	ChiediFasciaOraria = ScegliOpzioneMenu(aLista,nSel,sCaption)
End Function
Function GetFoglioArchivio
	On Error Resume Next
	Set xlBook = xlApp.Workbooks(1)
	Set xlSheet = xlBook.sheets("archivio")
	If Err.number <> 0 Then
		MsgBox "Il foglio excel SPIAMO I GIORNI deve essere aperto e contenere il foglio di nome <archivio>"
	Else
		GetFoglioArchivio = True
	End If
End Function
Function GetExcel
	On Error Resume Next
	Set xlApp = GetObject(,"Excel.Application")
	If Err.number <> 0 Then
		MsgBox "Il foglio excel SPIAMO I GIORNI deve essere aperto"
	Else
		GetExcel = True
	End If
End Function
Function IstanziaExcel
	If GetExcel Then
		If GetFoglioArchivio Then
			xlApp.WindowState = xlMinimized
			Call AbilitaCalcoloXls (False)
			xlSheet.Cells.Select
			xlSheet.Cells.ClearContents
			
			IstanziaExcel = True
		End If
	End If
End Function
Sub AddRigaXls(sRecord,nProgr,sChrSep)
	Dim idRiga
	Dim k
	ReDim aV(0)
	 
	Call Messaggio ("Aggiungo estrazione : " & nProgr )
	Call SplitByChar(sRecord,sChrSep,aV)
	idRiga = nProgr +(7 - 1)
	For k = 0 To UBound(aV)
		xlSheet.cells(idRiga,k + 1) = aV(k)
	Next
End Sub
Sub AbilitaCalcoloXls (b)
	Dim xlSh
	
	For Each xlSh In xlBook.worksheets
		xlSh.enablecalculation = b
	Next
	
	If b Then 
		xlApp.calculation = xlCalculationAutomatic 
	Else
		xlApp.calculation = xlCalculationManual 
	End If
End Sub
 
Ultima modifica di un moderatore:
va alla grande , devo solo modificare le formule per la ricerca sull archivio

ora sono per 12000 estrazioni vedo se posso portare a 20000 estrazion
per la statistica

grazie di nuovo LUIGI i
 
di nulla ... pero mi sa che ventimila sono troppe ci mettera un bel po' a scriverle .. forse si dovrebbe pensare a fare in modo che lo script invece che alimentare daccapo il foglio archivio andasse in accodamento sulle estrazioni gia esistenti aggiungendo solo le nuove , pero bisognerebe stabilire un po' la logica del tutto ... nel senso se va in accodamento deve continuare con l'ultimo numero progressivo ? Se le nuove estrazioni accodate non sono dello stesso range orario di quelle gia presenti che si deve fare e magari altre cose che ora non mi vengono in mente...
Ciao
 
LuigiB ha scritto:
di nulla ... pero mi sa che ventimila sono troppe ci mettera un bel po' a scriverle .. forse si dovrebbe pensare a fare in modo che lo script invece che alimentare daccapo il foglio archivio andasse in accodamento sulle estrazioni gia esistenti aggiungendo solo le nuove , pero bisognerebe stabilire un po' la logica del tutto ... nel senso se va in accodamento deve continuare con l'ultimo numero progressivo ? Se le nuove estrazioni accodate non sono dello stesso range orario di quelle gia presenti che si deve fare e magari altre cose che ora non mi vengono in mente...
Ciao
Clicca per espandere...
scusami se intervengo luigib credo che in questo modo è più facile per ogni utente crearsi un proprio archivio personale, in quanto se inseriresti un accodamento il meno smaliziato inizarebbe con le solite domande che il foglio non funziona lo scirpt non gira, invece così uno resetta tutto e via, poi solo avatar desideri66 o altri sanno come giostrare con 20000 estrazioni, questa è solo una riflessione non credi?
 
Ultima modifica:
si dal punto di vista dei calcoli che fa il foglio ovviamente la competenza è giustamente degli autori .. io pensavo a qualche sorta di meccanismo per rendere piu veloce l'aggiornamento dell'archivio pero anche quello che dici tu sul fatto che poi la gente si sbaglia
potrebbe essere vero ...
 
Grazie Luigi lo script va alla grande, sono sicuro che con avatar troverete una soluzione, come dice Keeper è giusto, però e anche comodo poter soltanto aggiornare l'archivio e non ricrearlo di nuovo
per me qualsiasi soluzione trovate va bene anzi benissimo.

Io vorrei soltanto fare ricerche in diversi orari (con calma tutte lo ore diurne) per trovare le migliori rese da condividere.
rol65
 
Ciao Rol , ineffetti è proprio questo il problema .. se l'archivio fosse lineare senza bisogno che ciascuno si faccia il suo archivio personale
basato sulle ore che a lui fanno comodo per giocare allora si potrebbe agevolemente modificare lo script in modo che vada in accodamento risparmiando tempo pero proprio perche ognuno c'ha l'archivio personalizzato lo script incontra delle difficolta piu che altro di logica.
Sentiamo che ne pensa Avatar.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 03 maggio 2025
    Bari
    31
    33
    53
    57
    73
    Cagliari
    40
    20
    72
    19
    16
    Firenze
    71
    44
    61
    70
    46
    Genova
    50
    36
    59
    25
    46
    Milano
    70
    85
    38
    83
    01
    Napoli
    28
    55
    58
    48
    24
    Palermo
    14
    62
    40
    12
    53
    Roma
    65
    36
    39
    57
    25
    Torino
    27
    43
    66
    22
    34
    Venezia
    09
    45
    58
    90
    66
    Nazionale
    68
    89
    14
    39
    25
    Estrazione Simbolotto
    Milano
    34
    02
    32
    09
    07
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto