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ì 30 maggio 2025
    Bari
    72
    07
    04
    37
    54
    Cagliari
    15
    27
    54
    33
    16
    Firenze
    35
    54
    20
    80
    02
    Genova
    25
    76
    44
    21
    87
    Milano
    59
    44
    88
    77
    63
    Napoli
    35
    90
    85
    60
    12
    Palermo
    49
    61
    08
    32
    11
    Roma
    37
    40
    03
    06
    58
    Torino
    21
    46
    55
    24
    25
    Venezia
    58
    28
    42
    19
    35
    Nazionale
    74
    42
    32
    87
    60
    Estrazione Simbolotto
    Milano
    16
    22
    33
    36
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto