chiedo a chi lo sa due cose...

[lotto_tom75]

1) si può creare un tabellone analitico con i soli TOT numeri d'interesse immessi da tabella colorata? Se si con quale code?

2) si può downloadare con code di spazio una pagina web (es. un txt remoto) senza usare file esterni come wget... ? Se si come... ?

Grz

 

[giomi]

1) abbastanza complicato
2 ) semplice usa

DownloadFromWeb

o

Set ObjIe = CreateObject("InternetExplorer.Application")
objIE.Navigate2(sUrl)

 

[i legend]

Tom per la prima si può fare, metti un immagine di quelli che vuoi utilizzare.
Oggi non sto bene, ma se domani sto meglio volentieri
Però metti un immagine?usa in foglio di calcolo.
I numeri che non selezioni xhe ne fai?

 

[joe]

Tom,

Wget si usa se il sito è https e si ha un Pc vecchio con Vista o Xp.

Dovrebbe andar bene qualsiasi script capace di creare il tabellone analitico,

imponendo che si fermi quando ha esaurito i numeri da esporre

oppure che si auto-limiti alle ultime 250-300 Estrazioni

con uno spreco di risorse oltre quelle necessarie.

 

[lotto_tom75]

1) abbastanza complicato
2 ) semplice usa

DownloadFromWeb

o

Set ObjIe = CreateObject("InternetExplorer.Application")
objIE.Navigate2(sUrl)

Grazie mille giomi!

 

[lotto_tom75]

Tom per la prima si può fare, metti un immagine di quelli che vuoi utilizzare.
Oggi non sto bene, ma se domani sto meglio volentieri
Però metti un immagine?usa in foglio di calcolo.
I numeri che non selezioni xhe ne fai?

non c'è un gruppo numerico specifico fisso ilegend
Ad ogni modo come esempio si potrebbe utilizzare i 70 del post "brain storming..."
rimettiti leggendario!!!

 

[lotto_tom75]

Tom,

Wget si usa se il sito è https e si ha un Pc vecchio con Vista o Xp.

Dovrebbe andar bene qualsiasi script capace di creare il tabellone analitico,

imponendo che si fermi quando ha esaurito i numeri da esporre

oppure che si auto-limiti alle ultime 250-300 Estrazioni

con uno spreco di risorse oltre quelle necessarie.

Grazie joe! Però riguardo lo script non so come dargli in pasto l'array di numeri voluti... non vedo il parametro nella relativa funzione che crea il tabellone analitico... Ad es. questo come lo modificheresti affinchè visualizzasse solo i numeri da 1 a 10?

 

[i legend]

Tom basta evidenziare gli estratti che vuoi . Puoi fare anche a meno di utilizzare il tabellone analitico.
Ti chiedevo come vuoi l output.
Fai un esempio .
Lo script ha mille soluzioni è semplice

Grazie x il pensiero

 

[lotto_tom75]

Tom basta evidenziare gli estratti che vuoi . Puoi fare anche a meno di utilizzare il tabellone analitico.
Ti chiedevo come vuoi l output.
Fai un esempio .
Lo script ha mille soluzioni è semplice

Grazie x il pensiero

Più che evidenziare quelli di interesse... io preferirei che quelli non voluti non si vedessero proprio... sempre che sia possibile...

Per quanto riguarda l'esempio come ho scritto a joe potrebbe essere benissimo l'output di questo script...

https://forum.lottoced.com/threads/toms-bakery.2207214/post-2476967

dandogli in pasto... i primi 10 numeri consecutivi oppure i 70 del thread che ti ho ricordato sopra o qualsiasi altro sottogruppo che preferisci usare tu per vederne il relativo output del tabellone analitico "filtrato" alla base per così dire...

per quanto riguarda la tipologia di estrapolazione no mi servirebbe proprio quella del tabellone analitico...

 

[i legend]

ciao tom vedi se va bene

Option Explicit
'controllare se funziona correttamente
'lo script dovrebbe evidenziare i numeri scelti sul tabellone analitico
Sub Main
    Dim aR(1):aR(1) = ScegliRuota
    ReDim aNum(0):Call ScegliNumeri(aNum)
    Dim ub:ub = UBound(aNum)
    Dim V:V = ub
    Dim idE,p,e
    Dim aCeck(90)
    For e = 1 To ub
        aCeck(aNum(e)) = 1
    Next
    Scrivi "Numeri evidenziati: "&StringaNumeri(aNum)
    Scrivi" Conc | E1 E2 E3 E4 E5"
    
    For idE = EstrazioneFin To 1 Step - 1
        Scrivi FormatSpace(idE,5,1) & " | ",,0
        For p = 1 To 5
            e = Estratto(idE,aR(1),p)
            If aCeck(e) = 1 Then
                Scrivi Format2(e) & " ",,0
                V = V - 1
                aCeck(e) = 0
            Else
                Scrivi "-- ",,0
            End If
        Next
        If V = 0 Then Exit For
        Scrivi
    Next
End Sub

 

[joe]

ciao tom vedi se va bene

Ho provato lo script con la previsione che avevo postato in statistica e sembra funzionare molto bene:

Numeri evidenziati: 2.8.12.18.20.21.22.23.24.25.26.27.28.29.32.38.42.48.52.58.62.68.72.78.80.81.82.83.84.85.86.87.88.89
Conc | E1 E2 E3 E4 E5
10168 | -- -- 22 -- 25
10167 | 78 -- -- 88 27
10166 | -- 20 68 -- --
10165 | -- 85 -- -- --
10164 | -- -- -- -- --
10163 | -- -- -- -- --
10162 | -- -- -- -- --
10161 | -- -- -- -- --

dopo le estrazioni a vuoto ...

... Estratto / Ambo / Terno e poi ancora Ambo in decina nell'ultima estrazione, tutti rilevati correttamente.

 

[i legend]

Grazie joe
Ciao

 

[lotto_tom75]

ciao tom vedi se va bene

Option Explicit
'controllare se funziona correttamente
'lo script dovrebbe evidenziare i numeri scelti sul tabellone analitico
Sub Main
    Dim aR(1):aR(1) = ScegliRuota
    ReDim aNum(0):Call ScegliNumeri(aNum)
    Dim ub:ub = UBound(aNum)
    Dim V:V = ub
    Dim idE,p,e
    Dim aCeck(90)
    For e = 1 To ub
        aCeck(aNum(e)) = 1
    Next
    Scrivi "Numeri evidenziati: "&StringaNumeri(aNum)
    Scrivi" Conc | E1 E2 E3 E4 E5"
   
    For idE = EstrazioneFin To 1 Step - 1
        Scrivi FormatSpace(idE,5,1) & " | ",,0
        For p = 1 To 5
            e = Estratto(idE,aR(1),p)
            If aCeck(e) = 1 Then
                Scrivi Format2(e) & " ",,0
                V = V - 1
                aCeck(e) = 0
            Else
                Scrivi "-- ",,0
            End If
        Next
        If V = 0 Then Exit For
        Scrivi
    Next
End Sub

Ti rispondo così amico e maestro e grazie infinite

 

[i legend]

Di nulla