Dove trovo questo file?

[siriano]

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.

 

[LuigiB]

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

 

[siriano]

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

 

[LuigiB]

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

 

[siriano]

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



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.

 

[Mike58]

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.

 

[siriano]

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.