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
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto