script 10elotto

[Roby]

Buona sera a tutti
complimenti agli autori del programma per primis al programmatore
sono venuto a conoscenza del programma e sono corso per registrarmi
l'ho provato e non posso far altro che farvi i complimenti...
sia per la grafica che per le varie funzionalià che sono molte
tra queste gli script....
non sono pratico di script
vorrei imparare iniziando con una richiesta ove possibile
vorrei creare uno script che restiruise l'archivio di 10elotto
quello che viene estratto insieme alle estrazioni....
grazie a tutti per un eventuale aiuto.

 

[Roby]

ciao Orione

guarda questo a link

puoi trovare qualcosa di utile.


http://forum.lottoced.com/topic.asp?TOPIC_ID=128160

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[LuigiB]

Questo script crea un file di testo con le estrazioni
ciao

Sub Main
	Dim sFile 
	Dim idEstr
	Dim sRecord
	
	
	sFile = GetDirectoryAppData & "10elotto.txt"
	Call Scrivi ("Generato file " & sFile )
	Call EliminaFile (sFile)
	
	For idEstr = 1 To EstrazioniArchivio
		ReDim aColonna(90)
		Call GetColonna(idEstr,aColonna)
		sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & GetColonnaString(aColonna)
		Call ScriviFile(sFile,sRecord)
		Call Scrivi (sRecord)
		
		
		Call AvanzamentoElab(1,EstrazioniArchivio,idEstr)
		If ScriptInterrotto Then Exit For
	Next
	
End Sub
Sub GetColonna(idEstrazione,aCol)
	
	Dim nInseriti
	Dim Ruota,pos,n
	
	
	
	Do While nInseriti < 20 And pos <=5
		For pos = 1 To 5
			For Ruota = 1 To 10
				n = Estratto(idEstrazione,Ruota,pos)
				If aCol(n) = False Then
					aCol(n) = True
					nInseriti = nInseriti + 1
					
					If nInseriti = 20 Then Exit For
				End If 			
			Next
			If nInseriti = 20 Then Exit For

		Next
	Loop
	
	
	

End Sub
Function GetColonnaString(aCol)

	Dim k
	Dim sRet
	For k = 1 To 90
		If aCol(k) Then
			sRet = sRet & Format2(k) & "|"
		End If
	Next
	
	If sRet <> "" Then 
		GetColonnaString = Left(sRet,Len(sRet) - 1)
	Else
		GetColonnaString =   "0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
	End If
	
End Function