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
 
P

ppaaoolloo

Super Member >PLATINUM<
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
 
i legend

i legend

Premium Member
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.
 
P

ppaaoolloo

Super Member >PLATINUM<
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.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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.
 
i legend

i legend

Premium Member
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.
 
P

ppaaoolloo

Super Member >PLATINUM<
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
 
i legend

i legend

Premium Member
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:
G

giomi

Banned
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
 
i legend

i legend

Premium Member
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
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto