Novità

Dove trovo questo file?

siriano

Member
Ho scaricato uno script che non mi funziona perchè dice che non trova questo file:
sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"

ho fatto una ricerca sul mio pc ed effettivamente non c'è, devo per caso scaricarlo ed
inserirlo io in qualche cartella?

Grazie e saluti.
 
puoi esportare in excel le estrazioni che ti interessao dopo di che le salvi in formato testo , comunque bisognerebbe sempre vedere lo script per sapere come si aspetta che siano le estrazioni dentro il famoso file
 
Ciao Luigi, grazie per la risposta.
Lo script mi sembra che è proprio tuo, lo riporto sotto:

Class clsPresenze
Dim Presenze
Dim sNumeri
Dim Rit
Dim RitMax
End Class
Sub Main
Dim sFile
Dim idEstr
Dim sRecord
Dim nClasse
Dim k
Dim sKey
Dim clsPres
Dim collPres
Dim nTrovati
Dim aColonne
Dim aNumeri
nClasse = ScegliClasse
If nClasse <= 0 Then Exit Sub
sFile = GetDirectoryAppData & "Estrazioni10ELotto.txt"
Call EliminaFile(sFile)
Call Messaggio("Calcolo frequenza")
Set collPres = GetNewCollection
For idEstr = 44389 To EstrazioneFin 'EstrazioneIni To EstrazioneFin
ReDim aColonna(0)
If GetColonna(idEstr,aColonna) Then
sRecord = FormatSpace(IndiceAnnuale(idEstr),5,True) & "|" & DataEstrazione(idEstr) & "|" & StringaNumeri(aColonna,"|")
Call ScriviFile(sFile,sRecord)
aColonne = SviluppoIntegrale(aColonna,nClasse)
For k = 1 To UBound(aColonne)
sKey = "k"
For j = 1 To nClasse
sKey = sKey & Format2(aColonne(k,j)) & "."
Next
If sKey <> "" Then
sKey = Left(sKey,Len(sKey) - 1)
Set clsPres = GetClsPres(sKey,collPres)
clsPres.Presenze = clsPres.Presenze + 1
End If
Next
End If
Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
If ScriptInterrotto Then Exit For
Next
Call CloseFileHandle(sFile)
ReDim aComb(5,2)
Call IsolaPiuFrequenti(collPres,aComb)
If ApriBaseDatiFT(sFile,20,"|") Then
Call Messaggio("Creo lista")
Call Scrivi("Elenco delle 5 combinazioni da " & nClasse & " numeri piu frequenti al 10 e lotto")
Call Scrivi
ReDim aTitoli(4)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
Call InitTabella(aTitoli)
k = 0
For k = 1 To UBound(aComb)
aNumeri = Split(aComb(k,2),".")
ReDim aV(4)
aV(1) = aComb(k,2)
aV(2) = aComb(k,1)
aV(3) = RitardoCombinazioneFT(aNumeri,nClasse)
aV(4) = SerieStoricoFT(1,EstrazioniArchivioFT,aNumeri,nClasse)
If aComb(k,1) > 0 Then
Call AddRigaTabella(aV)
End If
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For
Next
Call CreaTabella(2,0,0,5)
Else
MsgBox "File estrazioni 10 e lotto non prodotto"
End If
End Sub
Function GetClsPres(sKey,collPres)
On Error Resume Next
Dim clsP
Set clsP = collPres(sKey)
If clsP Is Nothing Then
Set clsP = New clsPresenze
clsP.sNumeri = Mid(sKey,2)
clsP.Presenze = 0
collPres.Add clsP,sKey
End If
Set GetClsPres = clsP
End Function
Function GetColonna(idEstrazione,colonna)
Dim nInseriti
Dim Ruota,pos,n
Dim k,i
ReDim aCol(90)
ReDim colonna(20)
Do While nInseriti < 20 And pos <= 5
For pos = 1 To 5
For Ruota = 1 To 10
n = Estratto(idEstrazione,Ruota,pos)
If n > 0 Then
If aCol(n) = False Then
aCol(n) = True
nInseriti = nInseriti + 1
If nInseriti = 20 Then Exit For
End If
End If
Next
If nInseriti = 20 Then Exit For
Next
Loop
For k = 1 To 90
If aCol(k) Then
i = i + 1
colonna(i) = k
End If
Next
ReDim Preserve colonna(i)
If i = 20 Then
GetColonna = True
Else
GetColonna = False
End If
End Function
Function ScegliClasse()
ReDim aVoci(5)
aVoci(0) = "Estratto"
aVoci(1) = "Ambo"
aVoci(2) = "Terno"
aVoci(3) = "Quaterna"
aVoci(4) = "Cinquina"
aVoci(5) = "Sestina"


ScegliClasse = ScegliOpzioneMenu(aVoci,2,"Secegli tipo combinazione") + 1
End Function
Sub IsolaPiuFrequenti(collPres,aComb)
Dim k,j,i
Dim clsPres
Call Messaggio("Selezione combinazioni piu frequenti")
ReDim aComb(5,2)
For k = 1 To UBound(aComb)
aComb(k,1) = 0
aComb(k,2) = ""
Next
i = 0
For Each clsPres In collPres
For k = 1 To UBound(aComb)
If clsPres.presenze >= aComb(k,1) Then
For j = UBound(aComb) To(k + 1) Step - 1
aComb(j,1) = aComb(j - 1,1)
aComb(j,2) = aComb(j - 1,2)
Next
aComb(k,1) = clsPres.presenze
aComb(k,2) = clsPres.snumeri
Exit For
End If
Next
i = i + 1
Call AvanzamentoElab(1,collPres.count,i)
If ScriptInterrotto Then Exit For
Next
End Sub
 
ho capito .. quel file lo scrive lui ma c'è un problema con il range che è impostto fisso su estrazioni che si vede non hai .
rimetti la riga come l'avevo scritta io
For idEstr = 44389 To EstrazioneFin 'EstrazioneIni To EstrazioneFin

For idEstr = EstrazioneIni To EstrazioneFin
 
Si grazie funziona, pensavo che facendo quella variazione fosse lo stesso, sono proprio inesperto.
Però poi andando su spaziometria > 10elotto > formazioni > ambiintegrali i dati non corrispondono
ScreenShot002.jpg
ScreenShot003.jpg

Approfitto della tua cortesia per chiederti questo, sto cercando di cominciare a fare qualcosa con gli script
e devo mettere in fila alcuni if ma non riesco a farlo funzionare
Sub Main()
Dim caso
fin = EstrazioneFin
ini = fin
For es = ini To fin
AvanzamentoElab ini,fin,es

For r1 = 1 To 10
e1 = Estratto(es,r1,1)
e5 = Estratto(es,r1,5)
n1 = Fuori90(e1 + e5)

If Cadenza(n1) = 1 Then
pos = 1
If Cadenza(n1) = 2 Then
pos = 2


caso = caso + 1
ColoreTesto(7)
Scrivi "Previsione N° " & caso
ColoreTesto(0)
Scrivi "Estrazione del " & DataEstrazione(es) & " sulla ruota di " & NomeRuota(r1) & " <> Numeri estratti: " & StringaEstratti(es,r1)
Scrivi "---------------------- Base1 " & " |" & bas1 & "|" & " ----------------- Base2 |" & bas2 & "|"
Scrivi " Ambata: " & n1 & " " & "Ambata determinata:" & " " & n1 & " in " & pos & "° posizione. ",1,2,6
Scrivi " Ambi secchi: " & n1 & "." & ab1 & " e " & n1 & "." & ab2 & " sulla ruota di " & NomeRuota(r1) & " e tutte. ",1,2,4
Scrivi
End If
End If
Next:Next
End Sub

Grazie, buona serata.
 
Ciao Siriano se sposti le chiusure end if prima del conteggio dei casi vedrai che scrive tutti i tuoi conteggi.
Poi dichiari i numeri ricavati in un numero vettore e poi dopo la scrittura puoi impostare l'imposta giocata ed il gioca es e dopo i next scrivere il resoconto.
Prova.
 
Ok grazie, anche il mio script funziona.
Invece per quanto riguarda la prima parte del mio post predente?
....Però poi andando su spaziometria > 10elotto > formazioni > ambiintegrali i dati non corrispondono...

Buona giornata.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto