ERRORE IN ROSSO-GRAZIE

[Alien.]

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 = False Then
aCol = 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

 

[Pomito]

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 = False Then
aCol = 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

 

[Alien.]

Ciao,semplicemente Grazie.