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
    venerdì 19 dicembre 2025
    Bari
    31
    29
    78
    66
    61
    Cagliari
    45
    72
    65
    38
    35
    Firenze
    80
    01
    33
    11
    36
    Genova
    15
    81
    02
    47
    83
    Milano
    88
    52
    04
    76
    24
    Napoli
    10
    72
    37
    58
    07
    Palermo
    78
    05
    34
    48
    35
    Roma
    23
    22
    42
    75
    02
    Torino
    73
    59
    48
    47
    70
    Venezia
    02
    78
    31
    38
    72
    Nazionale
    04
    28
    85
    60
    57
    Estrazione Simbolotto
    Venezia
    30
    10
    43
    28
    21
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto