Novità

script di mike che voglio modificare

P

ppaaoolloo

Super Member >PLATINUM<
ciao,
vorrei poter utilizzare questo script di Mike che segue
ma modificando solo i gruppetti dei numeri della
tabella che ne contiene 90

esempio
a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
ecc.

con altre lunghette da me scelte,

esempio

a(01) = "01-02-22-23-25"
a(02) = "02-03-24-25-29"
a(03) = "03-04-55-58-59"
a(04) = "04-05-33-36-39"
a(05) = "05-0641-42-43"
a(06) = "06-07-77-78-79"
a(07) = "07-08-12-14-15"
a(08) = "08-09-16-18-19"
ecc.

ma ne vorrei inserire qualche migliaio....

la mia domanda è:
fino a quante lunghette posso inserire?
c'è un limite massimo?

ringrazio anticipatamente

ecco lo script di mike


Sub Main
Dim a(90)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",2))
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,1))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(30)
atitoli(01) = " fila "
atitoli(02) = " numeri "
atitoli(03) = " Rit. "
atitoli(04) = " Rit. M. "
atitoli(05) = " Estr. "
atitoli(06) = " -1 "
atitoli(07) = " -2 "
atitoli(08) = " -3 "
atitoli(09) = " -4 "
atitoli(10) = " -5 "
atitoli(11) = " -6 "
atitoli(12) = " -7 "
atitoli(13) = " -8 "
atitoli(14) = " -9 "
atitoli(15) = " -10 "
atitoli(16) = " Estr. "
atitoli(17) = " +2 "
atitoli(18) = " +3 "
atitoli(19) = " +4 "
atitoli(20) = " +5 "
atitoli(21) = " +6 "
atitoli(22) = " +7 "
atitoli(23) = " +8 "
atitoli(24) = " +9 "
atitoli(25) = " +10 "
atitoli(26) = " +11 "
atitoli(27) = " I.C. "
atitoli(28) = " Media uscita "
atitoli(29) = " Stringa estratti "
atitoli(30) = " Ultima ESTR_Esito "

Call InitTabella(atitoli,2,,2,5)

a(01) = "01-02"
a(02) = "02-03"
a(03) = "03-04"
a(04) = "04-05"
a(05) = "05-06"
a(06) = "06-07"
a(07) = "07-08"
a(08) = "08-09"
a(09) = "09-10"
a(10) = "10-11"
a(11) = "11-12"
a(12) = "12-13"
a(13) = "13-14"
a(14) = "14-15"
a(15) = "15-16"
a(16) = "16-17"
a(17) = "17-18"
a(18) = "18-19"
a(19) = "19-20"
a(20) = "20-21"
a(21) = "21-22"
a(22) = "22-23"
a(23) = "23-24"
a(24) = "24-25"
a(25) = "25-26"
a(26) = "26-27"
a(27) = "27-28"
a(28) = "28-29"
a(29) = "29-30"
a(30) = "30-31"
a(31) = "31-32"
a(32) = "32-33"
a(33) = "33-34"
a(34) = "34-35"
a(35) = "35-36"
a(36) = "36-37"
a(37) = "37-38"
a(38) = "38-39"
a(39) = "39-40"
a(40) = "40-41"
a(41) = "41-42"
a(42) = "42-43"
a(43) = "43-44"
a(44) = "44-45"
a(45) = "45-46"
a(46) = "46-47"
a(47) = "47-48"
a(48) = "48-49"
a(49) = "49-50"
a(50) = "50-51"
a(51) = "51-52"
a(52) = "52-53"
a(53) = "53-54"
a(54) = "54-55"
a(55) = "55-56"
a(56) = "56-57"
a(57) = "57-58"
a(58) = "58-59"
a(59) = "59-60"
a(60) = "60-61"
a(61) = "61-62"
a(62) = "62-63"
a(63) = "63-64"
a(64) = "64-65"
a(65) = "65-66"
a(66) = "66-67"
a(67) = "67-68"
a(68) = "68-69"
a(69) = "69-70"
a(70) = "70-71"
a(71) = "71-72"
a(72) = "72-73"
a(73) = "73-74"
a(74) = "74-75"
a(75) = "75-76"
a(76) = "76-77"
a(77) = "77-78"
a(78) = "78-79"
a(79) = "79-80"
a(80) = "80-81"
a(81) = "81-82"
a(82) = "82-83"
a(83) = "83-84"
a(84) = "84-85"
a(85) = "85-86"
a(86) = "86-87"
a(87) = "87-88"
a(88) = "88-89"
a(89) = "89-90"
a(90) = "90-01"
'--------------------------------------------------------------------
ReDim aPos(5)
'aPos(1) = True
'aPos(2) = True
'aPos(3) = True
aPos(4) = True
aPos(5) = True
For N = 1 To UBound(a)
Nu = Split("0-" &(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin,,aPos)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,Nothing,esitoF,, estrF)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
Call StatisticaFormazioneTurbo(nu,aRuote,1,ritP,maxP,IncrP,aaa,fin,fin,,aPos)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
hhh = SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,nu,aRuote,1)
iii = SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,nu,aRuote,1)
lll = SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,nu,aRuote,1)
mmm = SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,nu,aRuote,1)



'End If
If fre > 0 Then
ReDim avalori(30)
avalori(01) = " Dec. " & Format2(n)
avalori(02) = StringaNumeri(nu)
avalori(03) = rit
avalori(04) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = hhh
avalori(13) = iii
avalori(14) = lll
avalori(15) = mmm
avalori(16) = aaa
avalori(17) = aaa + bbb
avalori(18) = aaa + bbb + ccc
avalori(19) = aaa + bbb + ccc + ddd
avalori(20) = aaa + bbb + ccc + ddd + eee
avalori(21) = aaa + bbb + ccc + ddd + eee + fff
avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
avalori(27) = Round(qt/fre,2)
avalori(28) = Round(fre/qt*rit,2)
avalori(29) = retestratti
avalori(30) = esitoF & " : " & estrF


Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
 
ciao
ho provato ad inserire le mie lunghette
e sono riuscito ad arrivare fino a 2.000
dopo di che lo script va in tilt

facendo qualche variazione oppure cambiandolo
si potrebbe arrivare ad inserirne 24.000?
questo è il numero di lunghette che ho pensato
e già pronte.

ringrazio anticipatamente chi vorrà aiutarmi

saluti
 
Hai provato con un foglio txt per le lunghette?
Le tabelle non possono sfruttare più di un tot di righe ,se superato tale limite potrebbero dare errore.
 
20220826_080154.jpg
Questo è il messaggio che mi da mentre faccio il copia incolla delle lunghette, mentre come detto sopra fino a 2000 è tutto ok.
 
Ciao a Tutti.

Forse dipende dalla ram del computer, ho provato in uno script a inserire molte righe ed a me da errore di Overflow con 1665 righe

il mio computer ha 4 giga di ram.
 
Hai provato ad inserire le lunghette in un foglio fi block note?
Poi quando lanci lo script utilizzi leggi righedafile le scorri ed in base hai filtri le metti in tabella. 24000 righe non so se stanno in tabella. Il foglio dello script viene appesantito troppo con tutte quelle righe.
 
ciao a tutti
alla fine non sono riuscito a fare niente di buono,
così ho fatto 12 script con 2.000 lunghette
è una grandissima perdita di tempo
ma per lo meno riesco ad ottenere quello che
cercavo, comunque ringrazio tutti per i
consigli che mi avete dato
buona serata
 
Quando analizzi le lunghette, avrai dei filtri che le ridurranno a quante più o meno? Puoi postare 10 lunghette di esempio . Non necessariamente le tue , random va benissimo giusto per capire come sono scritte, per non fare un lavoro inutile , e farti riscrivere tutto nuovamente.
Scrivo questo perché il primo suggerimento mi sembrava una strada percorribile.
Cmq se hai risolto, magari non è bellissima e funzionale ma ti faccio i miei complimenti ugualmente per aver trovato una soluzione. 🙂👍
 
Ultima modifica:
seguito idee riportate .
problema , non e' tanto lettura righe , ma visuallizazione di tali .
occorre buona ram .
Codice: 
Option Explicit
' ref_20220916_01
Dim clsHSS
Sub Main
   Dim sFileBd
   ' imposto il percorso per il file della base dati da usare
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   ' istanzio l'oggetto HSS
   Set clsHSS = CreateObject("HSS.ClsHighSpeedStat")
   ' inizializzo l'archivio.N.B. E' la prima cosa da fare
   ' 1 indica che il file è l'archivio lotto di spaziometria
   Call clsHSS.Init(sFileBd,1)
   ReDim a(00)
   Dim Ru(1)
   ReDim aRuote(11)
   Dim k,N,qualeTab,qt,sorte,color,sFile,Fin,Ini
   Dim NU,rit,max,Incr,fre,retesito,retestratti
   Dim esitoF,estrF,ritP,maxP,IncrP,aaa
   Dim bbb,ccc,ddd,eee,fff,ggg,hhh,iii,lll,mmm,x
   qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
   'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
   qt = CInt(InputBox("QUANTE , CONTROLLO",,200))
   sorte = CInt(InputBox("QUALE SORTE ",,1))
   color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
   sFile = ScegliFile(".\",".txt")
   Dim posta(2)
   posta(1) = 1
   posta(2) = 1
   Fin = EstrazioneFin
   Ini = EstrazioneFin - qt
   Call TempoTrascorso()
   If ScegliRuote(aRuote) > 0 Then
      Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
      Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
      Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
      Scrivi
      For k = 1 To UBound(aRuote)
         If aRuote(k) > 0 Then
            Ru(1) = aRuote(k)
            'For rt = 1 To 12
            'Ru(1) = aRuote(k)
            ReDim atitoli(30)
            atitoli(01) = " fila "
            atitoli(02) = " numeri "
            atitoli(03) = " Rit. "
            atitoli(04) = " Rit. M. "
            atitoli(05) = " Estr. "
            atitoli(06) = " -1 "
            atitoli(07) = " -2 "
            atitoli(08) = " -3 "
            atitoli(09) = " -4 "
            atitoli(10) = " -5 "
            atitoli(11) = " -6 "
            atitoli(12) = " -7 "
            atitoli(13) = " -8 "
            atitoli(14) = " -9 "
            atitoli(15) = " -10 "
            atitoli(16) = " Estr. "
            atitoli(17) = " +2 "
            atitoli(18) = " +3 "
            atitoli(19) = " +4 "
            atitoli(20) = " +5 "
            atitoli(21) = " +6 "
            atitoli(22) = " +7 "
            atitoli(23) = " +8 "
            atitoli(24) = " +9 "
            atitoli(25) = " +10 "
            atitoli(26) = " +11 "
            atitoli(27) = " I.C. "
            atitoli(28) = " Media uscita "
            atitoli(29) = " Stringa estratti "
            atitoli(30) = " Ultima ESTR_Esito "
            Call InitTabella(atitoli,2,,2,5)
            '-----.----------------------------
            Call LeggiRigheFileDiTesto(sFile,a)
            For N = 1 To UBound(a)
               NU = Split("0-" &(a(N)),"-")
               ReDim aPos(5)
               aPos(1) = True
               aPos(2) = True
               aPos(3) = True
               aPos(4) = True
               aPos(5) = True
               Call clsHSS.StatisticaFormazione(NU,aRuote,sorte,rit,max,Incr,fre,Ini,Fin,,aPos)
               'If Ru(1) = 11 Then
               'ReDim rr(10)
               'For xx = 1 To 10
               'rr(xx) = xx
               'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
               'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
               'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
               'Next
               'End If
               'If Ru(1) <> 11 Then
               Call clsHSS.VerificaEsito(NU,aRuote,Fin - rit,sorte,,Nothing,retesito,,retestratti)
               Call clsHSS.VerificaEsito(NU,aRuote,EstrazioneFin,1,,Nothing,esitoF,,estrF)
               'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
               Call clsHSS.StatisticaFormazione(NU,aRuote,1,ritP,maxP,IncrP,aaa,Fin,Fin,,aPos)
               bbb = clsHSS.SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,NU,aRuote,1)
               ccc = clsHSS.SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,NU,aRuote,1)
               ddd = clsHSS.SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,NU,aRuote,1)
               eee = clsHSS.SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,NU,aRuote,1)
               fff = clsHSS.SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,NU,aRuote,1)
               ggg = clsHSS.SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,NU,aRuote,1)
               hhh = clsHSS.SerieFreq(EstrazioneFin - 7,EstrazioneFin - 7,NU,aRuote,1)
               iii = clsHSS.SerieFreq(EstrazioneFin - 8,EstrazioneFin - 8,NU,aRuote,1)
               lll = clsHSS.SerieFreq(EstrazioneFin - 9,EstrazioneFin - 9,NU,aRuote,1)
               mmm = clsHSS.SerieFreq(EstrazioneFin - 10,EstrazioneFin - 10,NU,aRuote,1)
               'End If
               If fre > 0 Then
                  ReDim avalori(30)
                  avalori(01) = " Dec. " & Format2(N)
                  avalori(02) = StringaNumeri(NU,"-",True)
                  avalori(03) = rit
                  avalori(04) = max
                  avalori(05) = aaa
                  avalori(06) = bbb
                  avalori(07) = ccc
                  avalori(08) = ddd
                  avalori(09) = eee
                  avalori(10) = fff
                  avalori(11) = ggg
                  avalori(12) = hhh
                  avalori(13) = iii
                  avalori(14) = lll
                  avalori(15) = mmm
                  avalori(16) = aaa
                  avalori(17) = aaa + bbb
                  avalori(18) = aaa + bbb + ccc
                  avalori(19) = aaa + bbb + ccc + ddd
                  avalori(20) = aaa + bbb + ccc + ddd + eee
                  avalori(21) = aaa + bbb + ccc + ddd + eee + fff
                  avalori(22) = aaa + bbb + ccc + ddd + eee + fff + ggg
                  avalori(23) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh
                  avalori(24) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii
                  avalori(25) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll
                  avalori(26) = aaa + bbb + ccc + ddd + eee + fff + ggg + hhh + iii + lll + mmm
                  avalori(27) = Round(qt/fre,2)
                  avalori(28) = Round(fre/qt*rit,2)
                  avalori(29) = retestratti
                  avalori(30) = esitoF & " : " & estrF
                  Call AddRigaTabella(avalori,,,2)
               End If
               For x = 1 To 15
                  If N = color Then Call SetColoreCella((x),3,1)
               Next
               '-----------------------------------.
               Call AvanzamentoElab(000,UBound(a),N)
               Call Messaggio("Lettura Colonna : " & _
               FormattaStringa(N,"00000"))
            Next
            '-----------------------------------------
         End If
      Next
   End If
   Call SetTableWidth("100%")
   If qualeTab = 1 Then Call CreaTabella(6)
   If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
   If qualeTab > 2 Then MsgBox " errore digit Tabella"
   Call Scrivi()
   Call Scrivi("Tempo di elaborazione : " & TempoTrascorso)
   Call Scrivi()
   Call PicClear()
   Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
   Call PicEsegui()
End Sub
 
Ciao giomi, qualche tempo fa ho provato ad usare questa classe per velocizzare una ricerca. Potresti controllare se il ritardo che ottieni coincide con i valori delle tabelle di spaziometria?
Riscontravo su alcune formazioni differenze, ma non capisco perché .
Ottimo lavoro, la libreria clshss è stata
Poco utilizzata, se non da magia un utente molto bravo a fare listati.
Ciao:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto