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
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto