Novità

Richiesta script (solo LuigiB ci può salvare)

  • Creatore Discussione Creatore Discussione rol65
  • Data di inizio Data di inizio
R

rol65

Guest
Buongiorno a tutti, è possibile creare uno script che mi asporti in un file .txt dell'archivio 10eLotto5Min con le seguenti caratteristiche?

N° progressino estr., N°estr.giornaliera, ora, giorno, data, i 20 estratti



[TD="class: xl65"]8715[/TD]
[TD="class: xl66"]54[/TD]
[TD="class: xl67"] 09.30[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69, width: 64"][/TD]
[TD="class: xl70, width: 64"]11[/TD]
[TD="class: xl70, width: 64"]18[/TD]
[TD="class: xl70, width: 64"]24[/TD]
[TD="class: xl70, width: 64"]30[/TD]
[TD="class: xl70, width: 64"]32[/TD]
[TD="class: xl70, width: 64"]38[/TD]
[TD="class: xl70, width: 64"]45[/TD]
[TD="class: xl70, width: 64"]52[/TD]
[TD="class: xl70, width: 64"]55[/TD]
[TD="class: xl70, width: 64"]58[/TD]
[TD="class: xl70, width: 64"]65[/TD]
[TD="class: xl70, width: 64"]67[/TD]
[TD="class: xl70, width: 64"]68[/TD]
[TD="class: xl70, width: 64"]69[/TD]
[TD="class: xl70, width: 64"]73[/TD]
[TD="class: xl70, width: 64"]76[/TD]
[TD="class: xl70, width: 64"]77[/TD]
[TD="class: xl70, width: 64"]78[/TD]
[TD="class: xl70, width: 64"]81[/TD]
[TD="class: xl70, width: 64"]86[/TD]

[TD="class: xl65"]8716[/TD]
[TD="class: xl66"]55[/TD]
[TD="class: xl71"] 09:35[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]4[/TD]
[TD="class: xl70"]6[/TD]
[TD="class: xl70"]13[/TD]
[TD="class: xl70"]20[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]26[/TD]
[TD="class: xl70"]32[/TD]
[TD="class: xl70"]33[/TD]
[TD="class: xl70"]36[/TD]
[TD="class: xl70"]49[/TD]
[TD="class: xl70"]54[/TD]
[TD="class: xl70"]58[/TD]
[TD="class: xl70"]67[/TD]
[TD="class: xl70"]68[/TD]
[TD="class: xl70"]79[/TD]
[TD="class: xl70"]80[/TD]
[TD="class: xl70"]81[/TD]
[TD="class: xl70"]85[/TD]
[TD="class: xl70"]88[/TD]
[TD="class: xl70"]89[/TD]

[TD="class: xl65"]8717[/TD]
[TD="class: xl66"]56[/TD]
[TD="class: xl71"] 09:40[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]2[/TD]
[TD="class: xl70"]11[/TD]
[TD="class: xl70"]20[/TD]
[TD="class: xl70"]21[/TD]
[TD="class: xl70"]40[/TD]
[TD="class: xl70"]50[/TD]
[TD="class: xl70"]51[/TD]
[TD="class: xl70"]52[/TD]
[TD="class: xl70"]55[/TD]
[TD="class: xl70"]59[/TD]
[TD="class: xl70"]60[/TD]
[TD="class: xl70"]62[/TD]
[TD="class: xl70"]63[/TD]
[TD="class: xl70"]64[/TD]
[TD="class: xl70"]66[/TD]
[TD="class: xl70"]73[/TD]
[TD="class: xl70"]79[/TD]
[TD="class: xl70"]82[/TD]
[TD="class: xl70"]84[/TD]
[TD="class: xl70"]86[/TD]

[TD="class: xl65"]8718[/TD]
[TD="class: xl66"]57[/TD]
[TD="class: xl71"] 09:45[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]2[/TD]
[TD="class: xl70"]6[/TD]
[TD="class: xl70"]9[/TD]
[TD="class: xl70"]10[/TD]
[TD="class: xl70"]17[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]33[/TD]
[TD="class: xl70"]37[/TD]
[TD="class: xl70"]38[/TD]
[TD="class: xl70"]45[/TD]
[TD="class: xl70"]46[/TD]
[TD="class: xl70"]51[/TD]
[TD="class: xl70"]55[/TD]
[TD="class: xl70"]58[/TD]
[TD="class: xl70"]72[/TD]
[TD="class: xl70"]73[/TD]
[TD="class: xl70"]76[/TD]
[TD="class: xl70"]80[/TD]
[TD="class: xl70"]83[/TD]
[TD="class: xl70"]90[/TD]

[TD="class: xl65"]8719[/TD]
[TD="class: xl66"]58[/TD]
[TD="class: xl71"] 09:50[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]2[/TD]
[TD="class: xl70"]7[/TD]
[TD="class: xl70"]8[/TD]
[TD="class: xl70"]23[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]29[/TD]
[TD="class: xl70"]34[/TD]
[TD="class: xl70"]50[/TD]
[TD="class: xl70"]53[/TD]
[TD="class: xl70"]59[/TD]
[TD="class: xl70"]65[/TD]
[TD="class: xl70"]67[/TD]
[TD="class: xl70"]69[/TD]
[TD="class: xl70"]71[/TD]
[TD="class: xl70"]73[/TD]
[TD="class: xl70"]74[/TD]
[TD="class: xl70"]76[/TD]
[TD="class: xl70"]77[/TD]
[TD="class: xl70"]81[/TD]
[TD="class: xl70"]86[/TD]

[TD="class: xl65"]8720[/TD]
[TD="class: xl66"]59[/TD]
[TD="class: xl71"] 09:55[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]2[/TD]
[TD="class: xl70"]4[/TD]
[TD="class: xl70"]7[/TD]
[TD="class: xl70"]8[/TD]
[TD="class: xl70"]9[/TD]
[TD="class: xl70"]21[/TD]
[TD="class: xl70"]22[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]36[/TD]
[TD="class: xl70"]40[/TD]
[TD="class: xl70"]47[/TD]
[TD="class: xl70"]50[/TD]
[TD="class: xl70"]54[/TD]
[TD="class: xl70"]59[/TD]
[TD="class: xl70"]65[/TD]
[TD="class: xl70"]66[/TD]
[TD="class: xl70"]82[/TD]
[TD="class: xl70"]83[/TD]
[TD="class: xl70"]85[/TD]
[TD="class: xl70"]90[/TD]

[TD="class: xl65"]8721[/TD]
[TD="class: xl66"]60[/TD]
[TD="class: xl71"] 10:00[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]1[/TD]
[TD="class: xl70"]7[/TD]
[TD="class: xl70"]10[/TD]
[TD="class: xl70"]16[/TD]
[TD="class: xl70"]22[/TD]
[TD="class: xl70"]24[/TD]
[TD="class: xl70"]27[/TD]
[TD="class: xl70"]28[/TD]
[TD="class: xl70"]32[/TD]
[TD="class: xl70"]34[/TD]
[TD="class: xl70"]41[/TD]
[TD="class: xl70"]45[/TD]
[TD="class: xl70"]60[/TD]
[TD="class: xl70"]62[/TD]
[TD="class: xl70"]73[/TD]
[TD="class: xl70"]74[/TD]
[TD="class: xl70"]76[/TD]
[TD="class: xl70"]79[/TD]
[TD="class: xl70"]87[/TD]
[TD="class: xl70"]89[/TD]

[TD="class: xl65"]8722[/TD]
[TD="class: xl66"]61[/TD]
[TD="class: xl71"] 10:05[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]5[/TD]
[TD="class: xl70"]6[/TD]
[TD="class: xl70"]9[/TD]
[TD="class: xl70"]10[/TD]
[TD="class: xl70"]21[/TD]
[TD="class: xl70"]30[/TD]
[TD="class: xl70"]37[/TD]
[TD="class: xl70"]38[/TD]
[TD="class: xl70"]41[/TD]
[TD="class: xl70"]43[/TD]
[TD="class: xl70"]45[/TD]
[TD="class: xl70"]47[/TD]
[TD="class: xl70"]53[/TD]
[TD="class: xl70"]57[/TD]
[TD="class: xl70"]60[/TD]
[TD="class: xl70"]65[/TD]
[TD="class: xl70"]69[/TD]
[TD="class: xl70"]70[/TD]
[TD="class: xl70"]77[/TD]
[TD="class: xl70"]87[/TD]

[TD="class: xl65"]8723[/TD]
[TD="class: xl66"]62[/TD]
[TD="class: xl71"] 10:10[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]4[/TD]
[TD="class: xl70"]6[/TD]
[TD="class: xl70"]8[/TD]
[TD="class: xl70"]13[/TD]
[TD="class: xl70"]14[/TD]
[TD="class: xl70"]16[/TD]
[TD="class: xl70"]18[/TD]
[TD="class: xl70"]19[/TD]
[TD="class: xl70"]30[/TD]
[TD="class: xl70"]42[/TD]
[TD="class: xl70"]49[/TD]
[TD="class: xl70"]54[/TD]
[TD="class: xl70"]55[/TD]
[TD="class: xl70"]56[/TD]
[TD="class: xl70"]58[/TD]
[TD="class: xl70"]62[/TD]
[TD="class: xl70"]64[/TD]
[TD="class: xl70"]73[/TD]
[TD="class: xl70"]80[/TD]
[TD="class: xl70"]81[/TD]

[TD="class: xl65"]8724[/TD]
[TD="class: xl66"]63[/TD]
[TD="class: xl71"] 10:15[/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"][/TD]
[TD="class: xl70"]1[/TD]
[TD="class: xl70"]3[/TD]
[TD="class: xl70"]14[/TD]
[TD="class: xl70"]16[/TD]
[TD="class: xl70"]24[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]26[/TD]
[TD="class: xl70"]34[/TD]
[TD="class: xl70"]39[/TD]
[TD="class: xl70"]43[/TD]
[TD="class: xl70"]51[/TD]
[TD="class: xl70"]53[/TD]
[TD="class: xl70"]56[/TD]
[TD="class: xl70"]61[/TD]
[TD="class: xl70"]64[/TD]
[TD="class: xl70"]66[/TD]
[TD="class: xl70"]70[/TD]
[TD="class: xl70"]80[/TD]
[TD="class: xl70"]82[/TD]
[TD="class: xl70"]89[/TD]

il tutto potendo decidete dalla data iniziale e data finale e dal concorso giornaliero da n° a n°

questo script mi servirebbe per creare poi in excel l'archivio per il bellisimo programma (Spiamo i Giorni) realizzato da Desideri66, Rocco e ultimamente modificato da Avatar.

Grazie a TUTTI.
 
Ultima modifica:
ecco la pizza d'asporto me la sono mangiata proprio stasera ...;)

Codice: 
Option Explicit
Sub Main
	Dim nEstrInizio,nEstrFine
	Dim DataIni,DataFin
	Dim FasciaOrariaIni,FasciaOrariaFin
	Dim sFile
	Dim sChrSep
	sChrSep = "|"
	Call ImpostaArchivio10ELotto(2)
	sFile = GetDirectoryAppData & "Estrazioni10Lotto5M.txt"
	If EliminaFile(sFile) Then
		If ChiediDataInizioFine(DataIni,DataFin) Then
			nEstrInizio = DataEstrToIdEstrDL(Day(DataIni),Month(DataIni),Year(DataIni),1)
			nEstrFine = DataEstrToIdEstrDL(Day(DataFin),Month(DataFin),Year(DataFin),1)
			If IsRangeValido(nEstrInizio,nEstrFine) Then
				Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
			End If
		End If
	End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
	Dim k,f,idEstr
	Dim sRecord
	For k = nEstrInizio To nEstrFine Step 228
		Call Messaggio("Estrazione : " & k)
		For f = 1 To 228
			idEstr =(k - 1) + f
			ReDim aNum(0)
			If GetEstrazioneCompletaDL(idEstr,aNum) Then
				sRecord = FormatSpace(idEstr,9,True) & sChrSep
				sRecord = sRecord & FormatSpace(f,3,True) & sChrSep
				sRecord = sRecord & GetOrario(f) & sChrSep
				sRecord = sRecord & FormattaStringa(Replace(DataEstrazioneDL(idEstr),".","/"),"dd mmm yyyy") & sChrSep
				sRecord = sRecord & StringaNumeri(aNum,sChrSep,True)
				Call ScriviFile(sFile,sRecord,False,True)
			Else
				Exit For
			End If
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
	Next
	Call CloseFileHandle(sFile)
	Call LanciaFile(sFile)
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
 
Ultima modifica di un moderatore:
si potrebbe anche inserire un rang di orario es.9.30 12.45
 
Ultima modifica:
Grande Luigi,
se possibile come descritto all'inizio, ci sarebbero delle modifiche da fare

1) Nella 1° colonna pertendo da sinistra incremento estrazioni deve sempre partire dal n° 1 in crescendo, qualsiasi sia la data di inizio e fine.

2) Sempre da sinistra, dopo la terza colonna dell'orario manca la colonna che indica solo il giorno, importante per il programma che deve utilizzare l'archivio.

3) E per ultimo la possibilità di inserire il rang di orario es. dal 01-01-12 al 15-08-12 tutte le str. dalle 9.30 12.45 oppure dal n° al n° giornaliero.

100092| 1|05.05|16 lug 2012|02|10|15|18|20|22|28|34|35|43|47|48|55|56|60|61|69|71|72|78
100093| 2|05.10|16 lug 2012|01|06|10|14|20|24|34|37|47|49|56|62|64|69|71|74|77|84|85|86
100094| 3|05.15|16 lug 2012|03|08|18|24|29|30|33|35|37|43|44|45|52|56|61|66|70|71|72|81
100095| 4|05.20|16 lug 2012|08|09|10|16|26|27|35|44|46|50|59|60|61|70|72|81|83|85|87|89



[TD="class: xl65, width: 64"]8715[/TD]
[TD="class: xl66, width: 64"]54[/TD]
[TD="class: xl67, width: 64"] 09.30
[/TD]
[TD="class: xl65, width: 64"]6[/TD]
[TD="class: xl68, width: 64"]06-ago-12[/TD]
[TD="class: xl69, width: 64"] [/TD]
[TD="class: xl70, width: 64"]11[/TD]
[TD="class: xl70, width: 64"]18[/TD]
[TD="class: xl70, width: 64"]24[/TD]
[TD="class: xl70, width: 64"]30[/TD]
[TD="class: xl70, width: 64"]32[/TD]
[TD="class: xl70, width: 64"]38[/TD]
[TD="class: xl70, width: 64"]45[/TD]
[TD="class: xl70, width: 64"]52[/TD]
[TD="class: xl70, width: 64"]55[/TD]
[TD="class: xl70, width: 64"]58[/TD]
[TD="class: xl70, width: 64"]65[/TD]
[TD="class: xl70, width: 64"]67[/TD]
[TD="class: xl70, width: 64"]68[/TD]
[TD="class: xl70, width: 64"]69[/TD]
[TD="class: xl70, width: 64"]73[/TD]
[TD="class: xl70, width: 64"]76[/TD]
[TD="class: xl70, width: 64"]77[/TD]
[TD="class: xl70, width: 64"]78[/TD]
[TD="class: xl70, width: 64"]81[/TD]
[TD="class: xl70, width: 64"]86[/TD]

[TD="class: xl65"]8716[/TD]
[TD="class: xl66"]55[/TD]
[TD="class: xl71"] 09:35 [/TD]
[TD="class: xl65"]6[/TD]
[TD="class: xl68"]06-ago-12[/TD]
[TD="class: xl69"] [/TD]
[TD="class: xl70"]4[/TD]
[TD="class: xl70"]6[/TD]
[TD="class: xl70"]13[/TD]
[TD="class: xl70"]20[/TD]
[TD="class: xl70"]25[/TD]
[TD="class: xl70"]26[/TD]
[TD="class: xl70"]32[/TD]
[TD="class: xl70"]33[/TD]
[TD="class: xl70"]36[/TD]
[TD="class: xl70"]49[/TD]
[TD="class: xl70"]54[/TD]
[TD="class: xl70"]58[/TD]
[TD="class: xl70"]67[/TD]
[TD="class: xl70"]68[/TD]
[TD="class: xl70"]79[/TD]
[TD="class: xl70"]80[/TD]
[TD="class: xl70"]81[/TD]
[TD="class: xl70"]85[/TD]
[TD="class: xl70"]88[/TD]
[TD="class: xl70"]89[/TD]

Tutto questo se possibile comunque sia Grazie
rol65
 
Codice: 
Option Explicit
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 EliminaFile(sFile) Then
		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
					Call EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin ,sFile,sChrSep)
				End If
			End If 
		End If
	End If
	
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,FasciaOrariaIni,FasciaOrariaFin,sFile,sChrSep)
	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 & StringaNumeri(aNum,sChrSep,True)
				Call ScriviFile(sFile,sRecord,False,True)
			Else
				Exit For
			End If
			If ScriptInterrotto Then Exit For
		Next
		If ScriptInterrotto Then Exit For
		Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
	Next
	Call CloseFileHandle(sFile)
	Call LanciaFile(sFile)
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
 
Ciao LuigiB, sto facendo delle prove il file è perfetto, ma in conversione excel non mi vengono in questo modo, come fare?


[TD="class: xl65"]8832[/TD]
[TD="class: xl66, width: 64"]91[/TD]
[TD="class: xl70, width: 64"] 12:35[/TD]
[TD="class: xl65, width: 64"]8[/TD]
[TD="class: xl67, width: 64"]08-ago-12[/TD]
[TD="class: xl68, width: 64"][/TD]
[TD="class: xl69, width: 64"]4[/TD]
[TD="class: xl69, width: 64"]7[/TD]
[TD="class: xl69, width: 64"]8[/TD]
[TD="class: xl69, width: 64"]15[/TD]
[TD="class: xl69, width: 64"]17[/TD]
[TD="class: xl69, width: 64"]24[/TD]
[TD="class: xl69, width: 64"]29[/TD]
[TD="class: xl69, width: 64"]31[/TD]
[TD="class: xl69, width: 64"]34[/TD]
[TD="class: xl69, width: 64"]39[/TD]
[TD="class: xl69, width: 64"]41[/TD]
[TD="class: xl69, width: 64"]58[/TD]
[TD="class: xl69, width: 64"]64[/TD]
[TD="class: xl69, width: 64"]66[/TD]
[TD="class: xl69, width: 64"]70[/TD]
[TD="class: xl69, width: 64"]71[/TD]
[TD="class: xl69, width: 64"]76[/TD]
[TD="class: xl69, width: 64"]79[/TD]
[TD="class: xl69, width: 64"]80[/TD]
[TD="class: xl69, width: 64"]90[/TD]

[TD="class: xl65"]8833[/TD]
[TD="class: xl66"]92[/TD]
[TD="class: xl70"] 12:40[/TD]
[TD="class: xl65"]8[/TD]
[TD="class: xl67"]08-ago-12[/TD]
[TD="class: xl68"][/TD]
[TD="class: xl69"]5[/TD]
[TD="class: xl69"]9[/TD]
[TD="class: xl69"]18[/TD]
[TD="class: xl69"]24[/TD]
[TD="class: xl69"]35[/TD]
[TD="class: xl69"]37[/TD]
[TD="class: xl69"]45[/TD]
[TD="class: xl69"]46[/TD]
[TD="class: xl69"]49[/TD]
[TD="class: xl69"]56[/TD]
[TD="class: xl69"]67[/TD]
[TD="class: xl69"]70[/TD]
[TD="class: xl69"]73[/TD]
[TD="class: xl69"]77[/TD]
[TD="class: xl69"]80[/TD]
[TD="class: xl69"]81[/TD]
[TD="class: xl69"]82[/TD]
[TD="class: xl69"]83[/TD]
[TD="class: xl69"]86[/TD]
[TD="class: xl69"]88[/TD]

[TD="class: xl65"]8834[/TD]
[TD="class: xl66"]93[/TD]
[TD="class: xl70"] 12:45[/TD]
[TD="class: xl65"]8[/TD]
[TD="class: xl67"]08-ago-12[/TD]
[TD="class: xl68"][/TD]
[TD="class: xl69"]5[/TD]
[TD="class: xl69"]24[/TD]
[TD="class: xl69"]30[/TD]
[TD="class: xl69"]34[/TD]
[TD="class: xl69"]36[/TD]
[TD="class: xl69"]38[/TD]
[TD="class: xl69"]39[/TD]
[TD="class: xl69"]43[/TD]
[TD="class: xl69"]44[/TD]
[TD="class: xl69"]49[/TD]
[TD="class: xl69"]50[/TD]
[TD="class: xl69"]56[/TD]
[TD="class: xl69"]61[/TD]
[TD="class: xl69"]63[/TD]
[TD="class: xl69"]68[/TD]
[TD="class: xl69"]70[/TD]
[TD="class: xl69"]71[/TD]
[TD="class: xl69"]78[/TD]
[TD="class: xl69"]79[/TD]
[TD="class: xl69"]80[/TD]

dopo la data ci deve essere uno spazio vuoto (che metterei io con excel senza problemi).
Saluti
rol65
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 04 maggio 2026
    Bari
    22
    24
    23
    33
    09
    Cagliari
    40
    15
    22
    90
    51
    Firenze
    70
    02
    71
    41
    40
    Genova
    51
    80
    25
    69
    30
    Milano
    23
    28
    89
    02
    64
    Napoli
    16
    54
    41
    08
    56
    Palermo
    18
    25
    11
    66
    36
    Roma
    28
    07
    03
    47
    76
    Torino
    72
    24
    01
    07
    70
    Venezia
    10
    80
    17
    69
    13
    Nazionale
    06
    39
    41
    42
    38
    Estrazione Simbolotto
    Milano
    18
    31
    25
    04
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto