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
    giovedì 13 novembre 2025
    Bari
    32
    65
    71
    85
    34
    Cagliari
    57
    35
    60
    27
    59
    Firenze
    25
    69
    54
    55
    03
    Genova
    02
    18
    53
    83
    79
    Milano
    19
    02
    60
    13
    83
    Napoli
    87
    35
    78
    04
    69
    Palermo
    46
    40
    55
    25
    71
    Roma
    14
    23
    28
    62
    01
    Torino
    78
    08
    04
    03
    63
    Venezia
    41
    17
    16
    49
    42
    Nazionale
    83
    08
    03
    67
    86
    Estrazione Simbolotto
    Torino
    20
    44
    35
    10
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto